TclGPG  Check-in [dcf97702ed]

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 | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:dcf97702ed414a66fc493252e32437f47079f40b
User & Date: sgolovan 2016-04-26 11:10:46
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