Overview
| Comment: | Tclpkcs11 0.9.6 Updated test script to not call exit |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk | release-0.9.6 |
| Files: | files | file ages | folders |
| SHA3-256: |
00bd99c47608a4a1679e7f851afe59f1 |
| User & Date: | rkeene on 2010-10-11 13:55:56 |
| 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
Modified build/makearch.info from [258616da79] to [a49ece06fe].
| ︙ | ︙ | |||
12 13 14 15 16 17 18 | # 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) | | | 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.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 |
break
}
}
if {$plain != $orig} {
puts "Decryption error! Expected \"$orig\", got \"$plain\""
| | | | 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\""
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!"
break
}
}
pki::pkcs11::unloadmodule $handle
|