===================================================================
RCS file: /cvs/palm/Palm-Keyring/t/keyring.t,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -r1.9 -r1.10
--- palm/Palm-Keyring/t/keyring.t	2007/02/19 00:22:42	1.9
+++ palm/Palm-Keyring/t/keyring.t	2007/02/19 01:37:10	1.10
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $RedRiver: keyring.t,v 1.8 2007/02/18 16:24:53 andrew Exp $
+# $RedRiver: keyring.t,v 1.9 2007/02/19 00:22:42 andrew Exp $
 use strict;
 use warnings;
 
@@ -102,7 +102,7 @@
     $decrypted = {};
     ok( $pdb->Password(), 'Forget password' );
 
-    eval{ $decrypted = $pdb->Decrypt($pdb->{'records'}->[1]) };
+    eval{ $decrypted = $pdb->Decrypt($pdb->{'records'}->[$rec_num]) };
     ok( $@, 'Don\'t decrypt' );
 
     isnt( $decrypted->{password}, $new_password, 'Didn\'t get new password' );