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 | 3f9c403daa87772cfc14b14c526209bf611553f4 (patch) | |
| tree | 4b28336c18397a0d59174b25eae6e7bec8051c40 /tests/registry.test | |
| parent | 4562f64b892a515fb81ace2907ceea4f4185ef32 (diff) | |
| parent | a8b104c3b5ef5cf3721b20a37d48360b90f77a10 (diff) | |
| download | tcl-3f9c403daa87772cfc14b14c526209bf611553f4.zip tcl-3f9c403daa87772cfc14b14c526209bf611553f4.tar.gz tcl-3f9c403daa87772cfc14b14c526209bf611553f4.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 |