[svn] gcry - r1380 - in trunk: . tests

svn author wk cvs at cvs.gnupg.org
Thu Jan 22 12:51:22 CET 2009


Author: wk
Date: 2009-01-22 12:51:22 +0100 (Thu, 22 Jan 2009)
New Revision: 1380

Modified:
   trunk/THANKS
   trunk/tests/ChangeLog
   trunk/tests/cavs_driver.pl
   trunk/tests/cavs_tests.sh
Log:
DSA Tweak for the CAVS test script


Modified: trunk/tests/ChangeLog
===================================================================
--- trunk/tests/ChangeLog	2009-01-22 10:38:22 UTC (rev 1379)
+++ trunk/tests/ChangeLog	2009-01-22 11:51:22 UTC (rev 1380)
@@ -1,5 +1,7 @@
 2009-01-22  Werner Koch  <wk at g10code.com>
 
+	* cavs_tests.sh: Pass option -D to driver if required.
+
 	* fipsdrv.c (run_dsa_sign): Use hash of the data.
 	(dsa_gen_with_seed): New.
 	(run_dsa_pqg_gen): Add args SEED and SEEDLEN and use them.

Modified: trunk/THANKS
===================================================================
--- trunk/THANKS	2009-01-22 10:38:22 UTC (rev 1379)
+++ trunk/THANKS	2009-01-22 11:51:22 UTC (rev 1380)
@@ -119,6 +119,7 @@
 Simon Josefsson            jas at extundo.com
 SL Baur 		   steve at xemacs.org
 Stephan Austermuehle       au at hcsd.de
+Stephan Müller             smueller at atsec com
 Stephane Corthesy          stephane at sente.ch
 Stefan Karrmann 	   S.Karrmann at gmx.net
 Stefan Keller		   dres at cs.tu-berlin.de

Modified: trunk/tests/cavs_driver.pl
===================================================================
--- trunk/tests/cavs_driver.pl	2009-01-22 10:38:22 UTC (rev 1379)
+++ trunk/tests/cavs_driver.pl	2009-01-22 11:51:22 UTC (rev 1380)
@@ -1,6 +1,6 @@
 #!/usr/bin/env perl
 #
-# $Id: cavs_driver.pl 1494 2009-01-21 19:30:16Z smueller $
+# $Id: cavs_driver.pl 1495 2009-01-22 10:47:13Z smueller $
 #
 # CAVS test driver (based on the OpenSSL driver)
 # Written by: Stephan Müller <sm at atsec.com>
@@ -1518,6 +1518,11 @@
 		die "Return value does not contain all expected values of P, Q, G, Seed, c, H for dsa_pqggen"
 			if (!defined($P) || !defined($Q) || !defined($G) ||
 			    !defined($Seed) || !defined($c) || !defined($H));
+
+		# now change the counter to decimal as CAVS wants decimal
+		# counter value although all other is HEX
+		$c = hex($c);
+
 		$out .= "P = $P\n";
 		$out .= "Q = $Q\n";
 		$out .= "G = $G\n";

Modified: trunk/tests/cavs_tests.sh
===================================================================
--- trunk/tests/cavs_tests.sh	2009-01-22 10:38:22 UTC (rev 1379)
+++ trunk/tests/cavs_tests.sh	2009-01-22 11:51:22 UTC (rev 1380)
@@ -46,6 +46,7 @@
     local rspfile
     local tmprspfile
     local respdir
+    local dflag=""
 
     tmprspfile=$(echo "$reqfile" | sed 's,.req$,.rsp,')
     rspfile=$(echo "$tmprspfile" | sed 's,/req/,/resp/,' )
@@ -53,8 +54,12 @@
     [ -f "$tmprspfile" ] && rm "$tmprspfile"
     [ -d "$respdir" ] || mkdir "$respdir"
     [ -f "$rspfile" ] &&  rm "$rspfile"
+
+    if echo "$reqfile" | grep '/DSA/req/' >/dev/null 2>/dev/null; then
+        dflag="-D"
+    fi 
     
-    if ./cavs_driver.pl -I libgcrypt "$reqfile"; then
+    if ./cavs_driver.pl -I libgcrypt $dflag "$reqfile"; then
       if [ -f "$tmprspfile" ]; then
           mv "$tmprspfile" "$rspfile"
       else 
@@ -119,7 +124,7 @@
 
 if [ -f "$errors_seen_file" ]; then
     rm "$errors_seen_file"
-    echo "Error enountered - not packing up response file" >&2
+    echo "Error encountered - not packing up response file" >&2
     exit 1
 fi
 




More information about the Gnupg-commits mailing list