diff options
| author | stanton <stanton> | 1998-09-30 02:15:12 (GMT) |
|---|---|---|
| committer | stanton <stanton> | 1998-09-30 02:15:12 (GMT) |
| commit | 3c1a537631e7e5fdc7c237b92a582824afea1fda (patch) | |
| tree | 1da3d93d793cd6abb62cd2204f5e4f73406f2752 /tests/winfo.test | |
| parent | c16d45ef706cbb616125e57ec8a1f809bae3c9df (diff) | |
| download | tk-3c1a537631e7e5fdc7c237b92a582824afea1fda.zip tk-3c1a537631e7e5fdc7c237b92a582824afea1fda.tar.gz tk-3c1a537631e7e5fdc7c237b92a582824afea1fda.tar.bz2 | |
Merged 8.0.3 changes into 8.1
Diffstat (limited to 'tests/winfo.test')
| -rw-r--r-- | tests/winfo.test | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/tests/winfo.test b/tests/winfo.test index 4b9b60f..5cd0098 100644 --- a/tests/winfo.test +++ b/tests/winfo.test @@ -7,7 +7,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# SCCS: @(#) winfo.test 1.20 97/05/26 13:24:39 +# RCS: @(#) $Id: winfo.test,v 1.1.4.2 1998/09/30 02:19:09 stanton Exp $ if {[info procs test] != "test"} { source defs @@ -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] |