diff options
| author | hershey <hershey@noemail.net> | 1998-08-12 16:08:26 (GMT) |
|---|---|---|
| committer | hershey <hershey@noemail.net> | 1998-08-12 16:08:26 (GMT) |
| commit | d0b7e1dd03b67231a2322ee7beeedf1bb8e8eb10 (patch) | |
| tree | b2d76ba31aad120c6545e59bccf23162f76fa07f /tests | |
| parent | 7bc2ea389b9b325c84a85b282edc005f4503be72 (diff) | |
| download | tk-d0b7e1dd03b67231a2322ee7beeedf1bb8e8eb10.zip tk-d0b7e1dd03b67231a2322ee7beeedf1bb8e8eb10.tar.gz tk-d0b7e1dd03b67231a2322ee7beeedf1bb8e8eb10.tar.bz2 | |
skips tests that require tktest executable
FossilOrigin-Name: 3a4b1855200603678bcb0c85e979810f7115bddf
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/macEmbed.test | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/tests/macEmbed.test b/tests/macEmbed.test index f912dcd..b85e01a 100644 --- a/tests/macEmbed.test +++ b/tests/macEmbed.test @@ -30,6 +30,13 @@ test macEmbed-1.2 {TkpUseWindow procedure, bad window identifier} { catch {destroy .t} list [catch {toplevel .t -use 47} msg] $msg } {1 {The window ID 47 does not correspond to a valid Tk Window.}} + +if {[string compare testembed [info commands testembed]] != 0} { + puts "This application hasn't been compiled with the testembed command," + puts "therefore I am skipping all of these tests." + return +} + test macEmbed-1.3 {TkpUseWindow procedure, creating Container records} { eval destroy [winfo child .] frame .f1 -container 1 -width 200 -height 50 |