version 1.10, 2008/09/18 02:47:37 |
version 1.12, 2008/09/18 02:51:09 |
|
|
#!/usr/bin/perl -T |
#!/usr/bin/perl -T |
# $RedRiver: keyring5.t,v 1.9 2007/09/13 15:44:39 andrew Exp $ |
# $RedRiver: keyring5.t,v 1.11 2008/09/18 01:50:25 andrew Exp $ |
use strict; |
use strict; |
use warnings; |
use warnings; |
|
|
|
|
my $password = '12345'; |
my $password = '12345'; |
my $new_password = '54321'; |
my $new_password = '54321'; |
|
|
|
my $original_accts = [ |
|
{ 0 => { |
|
'label_id' => 0, |
|
'data' => '', |
|
'label' => 'name', |
|
'font' => 0, |
|
}, |
|
2 => { |
|
'label_id' => 2, |
|
'data' => 'only password is set', |
|
'label' => 'password', |
|
'font' => 0, |
|
}, |
|
3 => { |
|
'label_id' => 3, |
|
'data' => { |
|
'month' => 1, |
|
'day' => 1, |
|
'year' => 107 |
|
}, |
|
'label' => 'lastchange', |
|
'font' => 0, |
|
} |
|
}, |
|
{ 0 => { |
|
'label_id' => 0, |
|
'data' => 'test', |
|
'label' => 'name', |
|
'font' => 0, |
|
}, |
|
2 => { |
|
'label_id' => 2, |
|
'data' => 'abcd1234', |
|
'label' => 'password', |
|
'font' => 0, |
|
}, |
|
3 => { |
|
'label_id' => 3, |
|
'data' => { |
|
'month' => 1, |
|
'day' => 11, |
|
'year' => 107 |
|
}, |
|
'label' => 'lastchange', |
|
'font' => 0, |
|
}, |
|
255 => { |
|
'label_id' => 255, |
|
'data' => 'This is a short note.', |
|
'label' => 'notes', |
|
'font' => 0, |
|
} |
|
}, |
|
{ 0 => { |
|
'label_id' => 0, |
|
'data' => '', |
|
'label' => 'name', |
|
'font' => 0, |
|
}, |
|
2 => { |
|
'label_id' => 2, |
|
'data' => 'password (date is 2/2/07)', |
|
'label' => 'password', |
|
'font' => 0, |
|
}, |
|
3 => { |
|
'label_id' => 3, |
|
'data' => { |
|
'month' => 1, |
|
'day' => 2, |
|
'year' => 107 |
|
}, |
|
'label' => 'lastchange', |
|
'font' => 0, |
|
} |
|
} |
|
]; |
|
|
foreach my $cipher ( 0 .. 3 ) { |
foreach my $cipher ( 0 .. 3 ) { |
|
|
#next unless $cipher == 0; |
#next unless $cipher == 0; |
|
|
password => $password, |
password => $password, |
cipher => $cipher, |
cipher => $cipher, |
}; |
}; |
|
|
my $original_accts = [ |
|
{ 0 => { |
|
'label_id' => 0, |
|
'data' => '', |
|
'label' => 'name', |
|
'font' => 0, |
|
}, |
|
2 => { |
|
'label_id' => 2, |
|
'data' => 'only password is set', |
|
'label' => 'password', |
|
'font' => 0, |
|
}, |
|
3 => { |
|
'label_id' => 3, |
|
'data' => { |
|
'month' => 1, |
|
'day' => 1, |
|
'year' => 107 |
|
}, |
|
'label' => 'lastchange', |
|
'font' => 0, |
|
} |
|
}, |
|
{ 0 => { |
|
'label_id' => 0, |
|
'data' => 'test', |
|
'label' => 'name', |
|
'font' => 0, |
|
}, |
|
2 => { |
|
'label_id' => 2, |
|
'data' => 'abcd1234', |
|
'label' => 'password', |
|
'font' => 0, |
|
}, |
|
3 => { |
|
'label_id' => 3, |
|
'data' => { |
|
'month' => 1, |
|
'day' => 11, |
|
'year' => 107 |
|
}, |
|
'label' => 'lastchange', |
|
'font' => 0, |
|
}, |
|
255 => { |
|
'label_id' => 255, |
|
'data' => 'This is a short note.', |
|
'label' => 'notes', |
|
'font' => 0, |
|
} |
|
}, |
|
{ 0 => { |
|
'label_id' => 0, |
|
'data' => '', |
|
'label' => 'name', |
|
'font' => 0, |
|
}, |
|
2 => { |
|
'label_id' => 2, |
|
'data' => 'password (date is 2/2/07)', |
|
'label' => 'password', |
|
'font' => 0, |
|
}, |
|
3 => { |
|
'label_id' => 3, |
|
'data' => { |
|
'month' => 1, |
|
'day' => 2, |
|
'year' => 107 |
|
}, |
|
'label' => 'lastchange', |
|
'font' => 0, |
|
} |
|
} |
|
]; |
|
|
|
my $Num_Tests_Left = 34; |
my $Num_Tests_Left = 34; |
SKIP: { |
SKIP: { |