===================================================================
RCS file: /cvs/palm/Palm-Keyring/t/keyring5-samples.t,v
retrieving revision 1.1
retrieving revision 1.4
diff -u -r1.1 -r1.4
--- palm/Palm-Keyring/t/keyring5-samples.t	2007/02/18 05:50:25	1.1
+++ palm/Palm-Keyring/t/keyring5-samples.t	2007/02/27 17:08:05	1.4
@@ -1,10 +1,9 @@
-#!/usr/bin/perl
-# $RedRiver: keyring4.t,v 1.1 2007/02/17 23:36:07 andrew Exp $
+#!/usr/bin/perl -T
+# $RedRiver: keyring5-samples.t,v 1.3 2007/02/23 22:05:17 andrew Exp $
 use strict;
 use warnings;
 
 use Test::More tests => 30;
-use Data::Dumper;
 
 BEGIN { use_ok( 'Palm::PDB' ); }
 BEGIN { use_ok( 'Palm::Keyring' ); }
@@ -83,12 +82,26 @@
     my $pdb;
     ok( $pdb = new Palm::PDB, 'new Palm::PDB' );
     ok( $pdb->Load('t/' . $file), "Loading '$file'" );
-    ok( $pdb->Password($password), 'Passing Password' );
-    my @recs = ();
-    foreach my $rec (@{ $pdb->{records}}) {
-        my $acct;
-        ok( $acct = $pdb->Decrypt( $rec ), 'Decrypting record ' . scalar @recs );
-        push @recs, $acct;
+    SKIP: {
+        skip 'Digest::HMAC_SHA1 not installed', 5 unless 
+            eval " require Digest::HMAC_SHA1 ";
+
+        if ($pdb->{appinfo}->{cipher} > 0) {
+            my $crypt = Palm::Keyring::crypts($pdb->{appinfo}->{cipher});
+            skip 'Crypt::CBC not installed', 5 unless 
+                eval "require Crypt::CBC";
+            skip 'Crypt::' . $crypt->{name} . ' not installed', 5 unless 
+                eval "require Crypt::$crypt->{name}";
+        }
+
+        $password = 'abc';
+        ok( $pdb->Password($password), 'Passing Password' );
+        my @recs = ();
+        foreach my $rec (@{ $pdb->{records}}) {
+            my $acct;
+            ok( $acct = $pdb->Decrypt( $rec ), 'Decrypting record ' . scalar @recs );
+            push @recs, $acct;
+        }
+        is_deeply(\@recs, $orig_recs, "Matching records in '$file'" );
     }
-    is_deeply( $orig_recs, \@recs, "Matching records in '$file'" );
 }