Check-in [9fb27167af]
Overview
SHA1:9fb27167af88dfafbcbc612e2a7fa35eb153513b
Date: 2010-10-12 16:13:51
User: rkeene
Comment:Added registry test
Timelines: family | ancestors | descendants | both | trunk
Downloads: Tarball | ZIP archive
Other Links: files | file ages | folders | manifest
Tags And Properties
Context
2010-10-13
07:10
[e33de4de96] Corrected patch to "registry" in Tcl 8.4 to build with new mingw (user: rkeene, tags: trunk)
2010-10-12
16:13
[9fb27167af] Added registry test (user: rkeene, tags: trunk)
15:56
[4f2db7cae0] Added patch for Tcl 8.4.19 to compile with newer versions of GCC (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