|
From: Ian R. <iro...@us...> - 2006-01-06 14:46:01
|
Update of /cvsroot/perl-openssl/Crypt/OpenSSL/Random In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13640 Modified Files: test.pl Log Message: test the return value of random_seed Index: test.pl =================================================================== RCS file: /cvsroot/perl-openssl/Crypt/OpenSSL/Random/test.pl,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** test.pl 3 Jan 2006 15:12:11 -0000 1.3 --- test.pl 6 Jan 2006 14:45:46 -0000 1.4 *************** *** 7,11 **** # (It may become useful if the test is moved to ./t subdirectory.) ! BEGIN { $| = 1; print "1..1\n"; } END {print "not ok 1\n" unless $loaded;} use Crypt::OpenSSL::Random; --- 7,11 ---- # (It may become useful if the test is moved to ./t subdirectory.) ! BEGIN { $| = 1; print "1..5\n"; } END {print "not ok 1\n" unless $loaded;} use Crypt::OpenSSL::Random; *************** *** 35,39 **** } ! Crypt::OpenSSL::Random::random_seed("Here are 19 bytes..."); # We should now be seeded, regardless. --- 35,39 ---- } ! my_test(Crypt::OpenSSL::Random::random_seed("Here are 19 bytes...")); # We should now be seeded, regardless. |