[Tkabber-dev] [tclgpg] r70 committed - * tclgpg.test: Fixed results in two tests and added cleanup code...

codesite-noreply at google.com codesite-noreply at google.com
Mon Aug 31 20:16:34 MSD 2009


Revision: 70
Author: sgolovan
Date: Mon Aug 31 08:52:03 2009
Log: 	* tclgpg.test: Fixed results in two tests and added cleanup code
	  for other two.

http://code.google.com/p/tclgpg/source/detail?r=70

Modified:
  /trunk/ChangeLog
  /trunk/gnupg/random_seed
  /trunk/tclgpg.test

=======================================
--- /trunk/ChangeLog	Thu Aug 20 08:13:30 2009
+++ /trunk/ChangeLog	Mon Aug 31 08:52:03 2009
@@ -1,3 +1,8 @@
+2009-08-31  Sergei Golovan  <sgolovan at nes.ru>
+
+	* tclgpg.test: Fixed results in two tests and added cleanup code
+	  for other two.
+
  2009-08-20  Konstantin Khomoutov  <flatworm at users.sourceforge.net>

  	* tclgpg.test: Improved test suite:
=======================================
--- /trunk/gnupg/random_seed	Sun Aug 16 11:51:30 2009
+++ /trunk/gnupg/random_seed	Mon Aug 31 08:52:03 2009
Binary file, no diff available.
=======================================
--- /trunk/tclgpg.test	Thu Aug 20 07:56:18 2009
+++ /trunk/tclgpg.test	Mon Aug 31 08:52:03 2009
@@ -337,13 +337,11 @@
      $c set -property signers -value  
0FCE5909C0AD7044BAF1C2A94A6276E6C52F1712
      set sig [$c sign -input $message -mode detach]
      array set ares [$c verify -signature $sig -input $message]
-    # TODO remove when the test is fixed:
-    puts [outputChannel] [array names ares]
-    list $ares(status) $ares(plaintext)
+    set ares(status)
  } -cleanup {
      $c free
      unset sig ares
-} -result [list good $message]
+} -result good

  test sign-verify-1.4 {Detached sign (unarmored)} -body {
      set c [::gpg::new]
@@ -353,13 +351,11 @@
      $c set -property signers -value  
0FCE5909C0AD7044BAF1C2A94A6276E6C52F1712
      set sig [$c sign -input $message -mode detach]
      array set ares [$c verify -signature $sig -input $message]
-    # TODO remove when the test is fixed:
-    puts [outputChannel] [array names ares]
-    list $ares(status) $ares(plaintext)
+    set ares(status)
  } -cleanup {
      $c free
      unset sig ares
-} -result [list good $message]
+} -result good

  test sign-verify-1.5 {Clear sign} -body {
      set c [::gpg::new]
@@ -380,7 +376,7 @@
      $c set -property encoding -value utf-8
      $c set -property signers -value  
0FCE5909C0AD7044BAF1C2A94A6276E6C52F1712
      $c sign -input $message
-} -returnCodes error -result {No passphrase}
+} -returnCodes error -result {No passphrase} -cleanup {$c free}

  test sign-1.2 {Sign with incorrect passphrase} -body {
      set c [::gpg::new]
@@ -388,7 +384,7 @@
      $c set -property encoding -value utf-8
      $c set -property signers -value  
0FCE5909C0AD7044BAF1C2A94A6276E6C52F1712
      $c sign -input $message
-} -returnCodes error -result {Bad passphrase}
+} -returnCodes error -result {Bad passphrase} -cleanup {$c free}

  cleanupTests



More information about the Tkabber-dev mailing list