diff options
Diffstat (limited to 'tests/place.test')
| -rw-r--r-- | tests/place.test | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/tests/place.test b/tests/place.test index 112cc78..ac2ece7 100644 --- a/tests/place.test +++ b/tests/place.test @@ -6,10 +6,7 @@ # All rights reserved. package require tcltest 2.1 -namespace import -force tcltest::configure -namespace import -force tcltest::testsDirectory -configure -testdir [file join [pwd] [file dirname [info script]]] -configure -loadfile [file join [testsDirectory] constraints.tcl] +eval tcltest::configure $argv tcltest::loadTestedCommands # Used for constraining memory leak tests @@ -88,6 +85,12 @@ test place-4.1 {ConfigureSlave procedure, bad -in options} { } [list 1 "can't place .t.f2 relative to itself"] test place-4.2 {ConfigureSlave procedure, bad -in option} { place forget .t.f2 + list [winfo manager .t.f2] \ + [catch {place .t.f2 -in .t.f2} err] $err \ + [winfo manager .t.f2] +} {{} 1 {can't place .t.f2 relative to itself} {}} +test place-4.3 {ConfigureSlave procedure, bad -in option} { + place forget .t.f2 list [catch {place .t.f2 -in .} msg] $msg } [list 1 "can't place .t.f2 relative to ."] @@ -422,5 +425,5 @@ test place-14.1 {memory leak testing} -setup { catch {destroy .t} # cleanup -::tcltest::cleanupTests +cleanupTests return |