Overview
| Comment: | Added registry test |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
9fb27167af88dfafbcbc612e2a7fa35e |
| 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
|