TclGPG  Check-in [6361d617e5]

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

Overview
Comment:Explicitly unset the GPG_AGENT_INFO environment variable because it interferes with tests.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 6361d617e550ef5421b15812121b5a938887927e
User & Date: sergei 2015-12-31 20:12:15
Context
2016-01-01
09:48
Fixed parsing the gpg status output during keys import if there are expired keys in the keyring. Also, added a few code comments. check-in: 5ca7d8906d user: sgolovan tags: trunk
2015-12-31
20:12
Explicitly unset the GPG_AGENT_INFO environment variable because it interferes with tests. check-in: 6361d617e5 user: sergei tags: trunk
2015-12-30
11:41
Added option -keys to the import routine. check-in: e0cfba5122 user: sgolovan tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to ChangeLog.






1
2
3
4
5
6
7





2015-12-30  Sergei Golovan  <sgolovan@nes.ru>

	* tclgpg.tcl, tclgpg.test: Added incomplete (but usable) support for
	  importing and deleting GPG keys.

	* configure.in: Bumped the package version to 1.1.

>
>
>
>
>







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

	* tclgpg.test: Explicitly unset the GPG_AGENT_INFO environment
	  variable because it interferes with tests.

2015-12-30  Sergei Golovan  <sgolovan@nes.ru>

	* tclgpg.tcl, tclgpg.test: Added incomplete (but usable) support for
	  importing and deleting GPG keys.

	* configure.in: Bumped the package version to 1.1.

Changes to tclgpg.test.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17


18
19
20
21
22
23
24
# tclgpg.test --
#
#       This file is part of the TclGPG library. It contains tests.
#
# Copyright (c) 2008-2014 Sergei Golovan <sgolovan@nes.ru>
#
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAMER OF ALL WARRANTIES.

package require tcltest 2

namespace import tcltest::*

set auto_path [linsert $auto_path 0 [file dirname [info script]]]

set env(GNUPGHOME) [file join [file dirname [info script]] gnupg]
catch {file attributes $env(GNUPGHOME) -permissions 0700}



package forget gpg
package require -exact gpg 1.1

test new-1.1 {Create context} -body {
    set c [::gpg::new]
    list [string equal [info procs $c] $c] \




|












>
>







1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
# tclgpg.test --
#
#       This file is part of the TclGPG library. It contains tests.
#
# Copyright (c) 2008-2015 Sergei Golovan <sgolovan@nes.ru>
#
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAMER OF ALL WARRANTIES.

package require tcltest 2

namespace import tcltest::*

set auto_path [linsert $auto_path 0 [file dirname [info script]]]

set env(GNUPGHOME) [file join [file dirname [info script]] gnupg]
catch {file attributes $env(GNUPGHOME) -permissions 0700}

unset env(GPG_AGENT_INFO)

package forget gpg
package require -exact gpg 1.1

test new-1.1 {Create context} -body {
    set c [::gpg::new]
    list [string equal [info procs $c] $c] \