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  +#! /usr/bin/env tclsh
            2  +
            3  +set haveReg 0
            4  +catch {
            5  +	package require registry
            6  +	set haveReg 1
            7  +}
            8  +
            9  +if {!$haveReg} {
           10  +	exit 0
           11  +}
           12  +
           13  +catch {
           14  +	registry delete HKEY_CURRENT_USER test
           15  +}
           16  +
           17  +set value "TestValue"
           18  +registry set HKEY_CURRENT_USER test $value multi_sz
           19  +
           20  +set check [registry get HKEY_CURRENT_USER test]
           21  +
           22  +if {$value != $check} {
           23  +	puts "Expected: $value"
           24  +	puts "Got:      $check"
           25  +
           26  +	exit 1
           27  +}
           28  +
           29  +exit 0