Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Added a test for encrypting binary message intended to catch new line translation issue. Test fails only on Windows. |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
dcf97702ed414a66fc493252e32437f4 |
| User & Date: | sgolovan 2016-04-26 11:10:46.462 |
Context
|
2016-04-26
| ||
| 11:16 | In addition to encoding set translation to binary if the message-to-be-encipher encoding is set to binary. This closes ticket [e3b54f438c]. check-in: 0e03edca40 user: sgolovan tags: trunk | |
| 11:10 | Added a test for encrypting binary message intended to catch new line translation issue. Test fails only on Windows. check-in: dcf97702ed user: sgolovan tags: trunk | |
|
2016-01-13
| ||
| 19:41 | Fixed regexp which finds gpg version. check-in: 09a9f954b2 user: sgolovan tags: trunk | |
Changes
Changes to ChangeLog.
1 2 3 4 5 6 7 | 2016-01-13 Sergei Golovan <sgolovan@nes.ru> * tclgpg.test: Fixed unsetting GPG_AGENT_INFO. * tclgpg.tcl: Don't treat warnings which gpg sends to the standard error as errors. | > > > > > | 1 2 3 4 5 6 7 8 9 10 11 12 | 2016-04-26 Sergei Golovan <sgolovan@nes.ru> * tclgpg.test: Added a test for encrypting binary message intended to catch new line translation issue. Test fails only on Windows. 2016-01-13 Sergei Golovan <sgolovan@nes.ru> * tclgpg.test: Fixed unsetting GPG_AGENT_INFO. * tclgpg.tcl: Don't treat warnings which gpg sends to the standard error as errors. |
| ︙ | ︙ |
Changes to tclgpg.test.
| ︙ | ︙ | |||
343 344 345 346 347 348 349 350 351 352 353 354 355 356 |
set msg [$c encrypt -input $message -recipients $r]
$c decrypt -input $msg
} -cleanup {
$c free
$r free
} -result [list plaintext $message]
test sign-verify-1.1 {Ordinary sign (armored)} -body {
set c [::gpg::new]
$c set -property armor -value true
$c set -property passphrase-callback -value pcb1
$c set -property pinentry-mode -value loopback
$c set -property encoding -value utf-8
$c set -property signers -value 0FCE5909C0AD7044BAF1C2A94A6276E6C52F1712
| > > > > > > > > > > > | 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 |
set msg [$c encrypt -input $message -recipients $r]
$c decrypt -input $msg
} -cleanup {
$c free
$r free
} -result [list plaintext $message]
test encrypt-decrypt-1.7 {Symmetric cipher (binary input)} -body {
set c [::gpg::new]
$c set -property armor -value true
$c set -property passphrase-callback -value pcb1
$c set -property pinentry-mode -value loopback
$c set -property encoding -value binary
encoding convertfrom \
[$c decrypt -input [$c encrypt -input [encoding convertto \
"$message\r\n$message"]]]
} -result [list plaintext "$message\r\n$message"] -cleanup {$c free}
test sign-verify-1.1 {Ordinary sign (armored)} -body {
set c [::gpg::new]
$c set -property armor -value true
$c set -property passphrase-callback -value pcb1
$c set -property pinentry-mode -value loopback
$c set -property encoding -value utf-8
$c set -property signers -value 0FCE5909C0AD7044BAF1C2A94A6276E6C52F1712
|
| ︙ | ︙ |