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