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.
|
