Artifact 62d62de639f2e021c4f2e3c91e29c484c4c2d985:

• File build/test/tests/14-registry.tcl — part of check-in [9fb27167af] at 2010-10-12 16:13:51 on branch trunk — Added registry test (user: rkeene, size: 385) [annotate] [blame] [check-ins using]

#! /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