diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-07-28 23:22:36 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-07-28 23:22:36 (GMT) |
| commit | a3af17ef6c2cb79bbda7f23819f3abc5b8cc82cb (patch) | |
| tree | 4b28336c18397a0d59174b25eae6e7bec8051c40 /tests/registry.test | |
| parent | ecb3629055eb5a5c39bab62005d6ca5913dcd5e6 (diff) | |
| parent | 7fef4f4ce4148bf2c05b55d8af0fdc6b5d3356b1 (diff) | |
| download | tcl-a3af17ef6c2cb79bbda7f23819f3abc5b8cc82cb.zip tcl-a3af17ef6c2cb79bbda7f23819f3abc5b8cc82cb.tar.gz tcl-a3af17ef6c2cb79bbda7f23819f3abc5b8cc82cb.tar.bz2 | |
[Bug 3549770] Multiple test failures running tcltest outside build tree
Diffstat (limited to 'tests/registry.test')
| -rw-r--r-- | tests/registry.test | 11 |
1 files changed, 4 insertions, 7 deletions
diff --git a/tests/registry.test b/tests/registry.test index 400277f..71d1fad 100644 --- a/tests/registry.test +++ b/tests/registry.test @@ -17,13 +17,10 @@ if {[lsearch [namespace children] ::tcltest] == -1} { testConstraint reg 0 if {[testConstraint win]} { - catch { - # Is the registry extension already static to this shell? - if [catch {load {} Registry; set ::reglib {}}] { - # try the location given to use on the commandline to tcltest + if {![catch { ::tcltest::loadTestedCommands - load $::reglib Registry - } + package require registry + }]} { testConstraint reg 1 } } @@ -505,7 +502,7 @@ test registry-6.20 {GetValue: values with Unicode strings with embedded nulls} { registry delete HKEY_CURRENT_USER\\TclFoobar set result } "foo ba r baz" -test registry-6.21 {GetValue: very long value names and values} {pcOnly} { +test registry-6.21 {GetValue: very long value names and values} {pcOnly reg} { registry set HKEY_CURRENT_USER\\TclFoobar [string repeat k 16383] [string repeat x 16383] multi_sz set result [registry get HKEY_CURRENT_USER\\TclFoobar [string repeat k 16383]] registry delete HKEY_CURRENT_USER\\TclFoobar |