TclGPG  Check-in [ffd35a0769]

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Fixed conversion encoding for the test with binary message. This closes ticket [c3263a9efa].
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: ffd35a07693f3216ba0b398cca9c7497a288c7aa
User & Date: sgolovan 2016-06-15 12:02:21
Context
2017-08-08
08:59
Clarified a few failure reasons for fetching keys. check-in: 8d1c1f78b9 user: sgolovan tags: trunk
2016-06-15
12:02
Fixed conversion encoding for the test with binary message. This closes ticket [c3263a9efa]. check-in: ffd35a0769 user: sgolovan tags: trunk
2016-04-26
12:45
Fixed copyright years. check-in: 7d3683aa69 user: sgolovan tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to ChangeLog.






1
2
3
4
5
6
7





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.

	* tclgpg.tcl: In addition to encoding set translation to binary if
	  the message-to-be-encipher encoding is set to binary. This closes
>
>
>
>
>







1
2
3
4
5
6
7
8
9
10
11
12
2016-06-15  Sergei Golovan  <sgolovan@nes.ru>

	* tclgpg.test: Fixed conversion encoding for the test with binary
	  message. This closes ticket [c3263a9efa].

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.

	* tclgpg.tcl: In addition to encoding set translation to binary if
	  the message-to-be-encipher encoding is set to binary. This closes

Changes to tclgpg.test.

349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364

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







|
|







349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364

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 utf-8 \
             [$c decrypt -input [$c encrypt -input [encoding convertto utf-8 \
                                                             "$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