TclPKCS11

Check-in [00bd99c476]
Login

Check-in [00bd99c476]

Overview
Comment:Tclpkcs11 0.9.6 Updated test script to not call exit
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk | release-0.9.6
Files: files | file ages | folders
SHA3-256: 00bd99c47608a4a1679e7f851afe59f16c1e29f683cd21e1bcd8dd745077adbd
User & Date: rkeene on 2010-10-11 13:55:56.000
Other Links: manifest | tags
Context
2010-10-12
00:58
Removed references to "dllimport" check-in: e1252f4d5b user: rkeene tags: trunk
2010-10-11
13:55
Tclpkcs11 0.9.6 Updated test script to not call exit check-in: 00bd99c476 user: rkeene tags: release-0.9.6, trunk
13:55
Updated local testing scripts to building using verbose errors check-in: 768c073914 user: rkeene tags: trunk
Changes
Side-by-Side Diff Ignore Whitespace Patch
Modified build/makearch.info from [258616da79] to [a49ece06fe].
︙
12
13
14
15
16
17
18
19

20
21
22
23
24
25
26

12
13
14
15
16
17
18

19
20
21
22
23
24
25
26








-
+








# If set to "auto" it will be maintained in a file called .version
# in the source directory and the revision will be incremented
# each time a "makearch" is done.
#
# If @@SVNLCR@@ is used anywhere in this version number, it will be
# replaced with the highest last-changed-rev from the output of
#   svn info -R    (or 0)
VERS="0.9.5"
VERS="0.9.6"

# Space sperated list of documents, if they exist, they will be
# prefixed with the contents of the DOC_HDR file and substitution
# will occur:
#     @@UTIL@@ becomes the utility name ${UTIL}
#     @@VERS@@ becomes the utility version
#     @@DATE@@ becomes the current date
︙
Modified test.tcl from [ce581f0c53] to [e1ed48f58d].
︙
59
60
61
62
63
64
65
66

67
68
69
70
71
72
73
74
75
76
77
78

79
80
81
82

59
60
61
62
63
64
65

66
67
68
69
70
71
72
73
74
75
76
77

78
79
80
81
82








-
+











-
+





			break
		}
	}

	if {$plain != $orig} {
		puts "Decryption error!  Expected \"$orig\", got \"$plain\""

		exit 1
		break
	}

	set cipher [pki::encrypt -binary -priv -- $orig $certinfo_list]
	set plain  [pki::decrypt -binary -pub -- $cipher $certinfo_list]

	set sig    [pki::sign $orig $certinfo_list]
	set verify [pki::verify $sig $orig $certinfo_list]

	if {!$verify} {
		puts "Signature verification error!"

		exit 1
		break
	}
}

pki::pkcs11::unloadmodule $handle