[Perl-openssl-checkins] Crypt/OpenSSL/RSA/t rsa.t,1.9,1.10

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

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

Modified Files:
	rsa.t 
Log Message:
Patch from Andreas Vögele <an...@al...> to fix the number of
tests when use_sha512_hash is not available.


Index: rsa.t
===================================================================
RCS file: /cvsroot/perl-openssl/Crypt/OpenSSL/RSA/t/rsa.t,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** rsa.t	13 Nov 2006 12:11:08 -0000	1.9
--- rsa.t	15 May 2007 04:35:59 -0000	1.10
***************
*** 5,9 ****
  use Crypt::OpenSSL::RSA;
  
! BEGIN { plan tests => 45 + (UNIVERSAL::can("Crypt::OpenSSL::RSA", "use_sha512_hash") ? 3*6 : 0) }
  
  sub _Test_Encrypt_And_Decrypt
--- 5,9 ----
  use Crypt::OpenSSL::RSA;
  
! BEGIN { plan tests => 43 + (UNIVERSAL::can("Crypt::OpenSSL::RSA", "use_sha512_hash") ? 4*5 : 0) }
  
  sub _Test_Encrypt_And_Decrypt