diff options
Diffstat (limited to 'tests/winClipboard.test')
| -rw-r--r-- | tests/winClipboard.test | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/tests/winClipboard.test b/tests/winClipboard.test index 492ced9..e693c6a 100644 --- a/tests/winClipboard.test +++ b/tests/winClipboard.test @@ -10,7 +10,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: winClipboard.test,v 1.5 1999/05/22 01:59:22 stanton Exp $ +# RCS: @(#) $Id: winClipboard.test,v 1.6 1999/12/14 06:53:15 hobbs Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { source [file join [pwd] [file dirname [info script]] defs.tcl] @@ -19,6 +19,12 @@ if {[lsearch [namespace children] ::tcltest] == -1} { # Note that these tests may fail if another application is grabbing the # clipboard (e.g. an X server) +if {[llength [info command testclipboard]] == 0} { + puts "\"testclipboard\" isn't defined, skipping winClipboard tests" + ::tcltest::cleanupTests + return +} + test winClipboard-1.1 {TkSelGetSelection} {pcOnly} { clipboard clear catch {selection get -selection CLIPBOARD} msg |