summaryrefslogtreecommitdiffstats
path: root/tests/expr.test
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2012-08-04 07:46:48 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2012-08-04 07:46:48 (GMT)
commit26779f588a5178e773c4effc1c1ba604e9dda9fb (patch)
tree651f5be6f444e7c4b4fb789d3f11e9e608cd5085 /tests/expr.test
parentaa8f3c2fc3166ccdb25c69c648c92c6a2b3b0aa2 (diff)
parent24ef33dc101a3e9114318b884c1e99d792f4739d (diff)
downloadtcl-26779f588a5178e773c4effc1c1ba604e9dda9fb.zip
tcl-26779f588a5178e773c4effc1c1ba604e9dda9fb.tar.gz
tcl-26779f588a5178e773c4effc1c1ba604e9dda9fb.tar.bz2
Diffstat (limited to 'tests/expr.test')
-rw-r--r--tests/expr.test3
1 files changed, 3 insertions, 0 deletions
diff --git a/tests/expr.test b/tests/expr.test
index 6679569..6ad7208 100644
--- a/tests/expr.test
+++ b/tests/expr.test
@@ -15,6 +15,9 @@ if {[lsearch [namespace children] ::tcltest] == -1} {
namespace import -force ::tcltest::*
}
+::tcltest::loadTestedCommands
+catch [list package require -exact Tcltest [info patchlevel]]
+
testConstraint testmathfunctions [expr {
([catch {expr T1()} msg] != 1) || ($msg ne {invalid command name "tcl::mathfunc::T1"})
}]