Overview
| Comment: | Updated test driver to not give false errors if a non-PIN related decryption error occurs |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
be76ba43550be4038083288833ca6336 |
| User & Date: | rkeene on 2010-10-10 05:36:24 |
| Other Links: | manifest | tags |
Context
|
2010-10-10
| ||
| 13:39 | Added additional OS support for loading libraries (mostly untested) check-in: f7f7813de0 user: rkeene tags: trunk | |
| 05:36 | Updated test driver to not give false errors if a non-PIN related decryption error occurs check-in: be76ba4355 user: rkeene tags: trunk | |
| 05:33 | Improved Tcl 8.6 module loading support check-in: 87f454af73 user: rkeene tags: trunk | |
Changes
Modified test.tcl from [967a299a54] to [bf4bb077d0].
| ︙ | ︙ | |||
48 49 50 51 52 53 54 55 56 57 58 59 60 61 |
puts -nonewline " *** ENTER PIN: "
flush stdout
gets stdin password
pki::pkcs11::login $handle $token_slotid $password
set plain [pki::decrypt -binary -priv $cipher $certinfo_list]
}
}
if {$plain != $orig} {
puts "Decryption error! Expected \"$orig\", got \"$plain\""
exit 1
| > > > > | 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 |
puts -nonewline " *** ENTER PIN: "
flush stdout
gets stdin password
pki::pkcs11::login $handle $token_slotid $password
set plain [pki::decrypt -binary -priv $cipher $certinfo_list]
} else {
puts stderr "$::errorInfo"
exit 1
}
}
if {$plain != $orig} {
puts "Decryption error! Expected \"$orig\", got \"$plain\""
exit 1
|
| ︙ | ︙ |