diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-04-10 11:01:52 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-04-10 11:01:52 (GMT) |
| commit | bb7cd71c99b02286373e20ac3cc35538f9a26799 (patch) | |
| tree | da3ddd5544fa58d0283d7de291c19156e1b52de3 /tests/case.test | |
| parent | 211801be532da7c72b73cf0311dc07eaef32aac5 (diff) | |
| parent | 1d506e42aefb665e5243f2ca4cbaeb86c4c4036e (diff) | |
| download | tcl-tip_468_bis.zip tcl-tip_468_bis.tar.gz tcl-tip_468_bis.tar.bz2 | |
Merge "tip-468" branch. Add new function Tcl_OpenTcpClientEx() with same change as Tcl_OpenTcpServerEx(): in stead of a port number, supplie a "service" string.tip_468_bis
Diffstat (limited to 'tests/case.test')
| -rw-r--r-- | tests/case.test | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/tests/case.test b/tests/case.test index 6d63cea..d7558a9 100644 --- a/tests/case.test +++ b/tests/case.test @@ -11,6 +11,11 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. +if {![llength [info commands case]]} { + # No "case" command? So no need to test + return +} + if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest namespace import -force ::tcltest::* |