diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-01-25 12:22:16 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-01-25 12:22:16 (GMT) |
| commit | d95abe6b6fe069f55ce27900c99fec5949d63a15 (patch) | |
| tree | c261490c8b413208fd28174c52e9044de53d3853 /tests/case.test | |
| parent | f73959c2df224df88d79415e16dfab56b8756008 (diff) | |
| download | tcl-d95abe6b6fe069f55ce27900c99fec5949d63a15.zip tcl-d95abe6b6fe069f55ce27900c99fec5949d63a15.tar.gz tcl-d95abe6b6fe069f55ce27900c99fec5949d63a15.tar.bz2 | |
If TCL_NO_DEPRECATED is defined, remove the "case" statement, and use much less interp->result. Implementation mostly taken over from "novem". If TCL_NO_DEPRECATED is not defined, nothing changes.
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::* |