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