[Perl-openssl-checkins] Crypt/OpenSSL/RSA/t rsa.t,1.2,1.3

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

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

Modified Files:
	rsa.t 
Log Message:
I can think of no good reason to disallow secret keys from verifying
signatures


Index: rsa.t
===================================================================
RCS file: /cvsroot/perl-openssl/Crypt/OpenSSL/RSA/t/rsa.t,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** rsa.t	27 Apr 2003 19:59:40 -0000	1.2
--- rsa.t	18 Feb 2004 16:39:20 -0000	1.3
***************
*** 5,9 ****
  use Crypt::OpenSSL::RSA;
  
! BEGIN { plan tests => 19 }
  
  sub _Test_Sign_And_Verify
--- 5,9 ----
  use Crypt::OpenSSL::RSA;
  
! BEGIN { plan tests => 22 }
  
  sub _Test_Sign_And_Verify
***************
*** 17,20 ****
--- 17,21 ----
      $false_sig =~ tr/[a-f]/[0a-d]/;
      ok(! $rsa_pub->verify( $plaintext, pack( "H*", $false_sig ) ) );
+     ok(! $rsa->verify( $plaintext, pack( "H*", $false_sig ) ) );
  }