[Perl-openssl-checkins] Crypt/OpenSSL/Random test.pl,1.3,1.4

[Ian R. <iro...@us...>]

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.