perl-openssl-checkins

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

Update of /cvsroot/perl-openssl/Crypt/OpenSSL/Random
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4068

Modified Files:
	test.pl 
Log Message:
more robust test


Index: test.pl
===================================================================
RCS file: /cvsroot/perl-openssl/Crypt/OpenSSL/Random/test.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** test.pl	9 Apr 2001 22:54:47 -0000	1.2
--- test.pl	3 Jan 2006 15:12:11 -0000	1.3
***************
*** 33,37 ****
          print "not ok $number - from $file:$line\n";
      }
! }    
  
  Crypt::OpenSSL::Random::random_seed("Here are 19 bytes...");
--- 33,37 ----
          print "not ok $number - from $file:$line\n";
      }
! }
  
  Crypt::OpenSSL::Random::random_seed("Here are 19 bytes...");
***************
*** 40,43 ****
  my_test(Crypt::OpenSSL::Random::random_status());
  
! my_test(length(Crypt::OpenSSL::Random::random_bytes(53)), 53);
! my_test(length(Crypt::OpenSSL::Random::random_pseudo_bytes(53)), 53);
--- 40,43 ----
  my_test(Crypt::OpenSSL::Random::random_status());
  
! my_test(length(Crypt::OpenSSL::Random::random_bytes(53)) == 53);
! my_test(length(Crypt::OpenSSL::Random::random_pseudo_bytes(53)) == 53);