diff options
| author | hershey <hershey@noemail.net> | 1998-08-12 16:08:58 (GMT) |
|---|---|---|
| committer | hershey <hershey@noemail.net> | 1998-08-12 16:08:58 (GMT) |
| commit | b1938d13eddaa5b2834f779cfefa76bc2b91dda5 (patch) | |
| tree | b2c3c6ae1cf23fa7fa007866ae181613ccc93458 /tests/winfo.test | |
| parent | 4d8ca262b53e02be23aa4fd52bfa694e3d65f44c (diff) | |
| download | tk-b1938d13eddaa5b2834f779cfefa76bc2b91dda5.zip tk-b1938d13eddaa5b2834f779cfefa76bc2b91dda5.tar.gz tk-b1938d13eddaa5b2834f779cfefa76bc2b91dda5.tar.bz2 | |
skips tests that require tktest executable
FossilOrigin-Name: 8b26191cc344ef8e9fd29a6696098075f5ebe11c
Diffstat (limited to 'tests/winfo.test')
| -rw-r--r-- | tests/winfo.test | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/tests/winfo.test b/tests/winfo.test index 5d7292f..7f5fe9e 100644 --- a/tests/winfo.test +++ b/tests/winfo.test @@ -206,9 +206,15 @@ test winfo-7.6 {"winfo pathname" command} { test winfo-7.7 {"winfo pathname" command} { winfo pathname -displayof .b [winfo id .] } {.} -test winfo-7.8 {"winfo pathname" command} {unixOnly} { - winfo pathname [testwrapper .] -} {} + +if {[string compare testwrapper [info commands testwrapper]] == 0} { + puts "This application hasn't been compiled with the testwrapper command," + puts "therefore I am skipping all of these tests." + + test winfo-7.8 {"winfo pathname" command} {unixOnly} { + winfo pathname [testwrapper .] + } {} +} test winfo-8.1 {"winfo pointerx" command} { catch [winfo pointerx .b] |