Check-in [9fb27167af]
Overview
Comment:Added registry test
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 9fb27167af88dfafbcbc612e2a7fa35eb153513b
User & Date: rkeene on 2010-10-12 16:13:51
Other Links: manifest | tags
Context
2010-10-13
07:10
Corrected patch to "registry" in Tcl 8.4 to build with new mingw check-in: e33de4de96 user: rkeene tags: trunk
2010-10-12
16:13
Added registry test check-in: 9fb27167af user: rkeene tags: trunk
15:56
Added patch for Tcl 8.4.19 to compile with newer versions of GCC check-in: 4f2db7cae0 user: rkeene tags: trunk
Changes

Added build/test/tests/14-registry.tcl version [62d62de639].



























































>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
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
27
28
29
#! /usr/bin/env tclsh

set haveReg 0
catch {
	package require registry
	set haveReg 1
}

if {!$haveReg} {
	exit 0
}

catch {
	registry delete HKEY_CURRENT_USER test
}

set value "TestValue"
registry set HKEY_CURRENT_USER test $value multi_sz

set check [registry get HKEY_CURRENT_USER test]

if {$value != $check} {
	puts "Expected: $value"
	puts "Got:      $check"

	exit 1
}

exit 0