diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2012-08-11 21:24:22 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2012-08-11 21:24:22 (GMT) |
| commit | 944fd5bdcf2e247575a9dd55704b37fbc2a1e9ac (patch) | |
| tree | 27fde8f62082347078d925d76441498acc190a4a /tests/string.test | |
| parent | 9dee089fa2567d307056363c20eb69c53b4e1655 (diff) | |
| parent | 88b202715dfbdfc05b7ce33d7f176595620496be (diff) | |
| download | tcl-944fd5bdcf2e247575a9dd55704b37fbc2a1e9ac.zip tcl-944fd5bdcf2e247575a9dd55704b37fbc2a1e9ac.tar.gz tcl-944fd5bdcf2e247575a9dd55704b37fbc2a1e9ac.tar.bz2 | |
merge trunk
Diffstat (limited to 'tests/string.test')
| -rw-r--r-- | tests/string.test | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/tests/string.test b/tests/string.test index b3326ae..e86c0de 100644 --- a/tests/string.test +++ b/tests/string.test @@ -17,6 +17,9 @@ if {[lsearch [namespace children] ::tcltest] == -1} { namespace import -force ::tcltest::* } +::tcltest::loadTestedCommands +catch [list package require -exact Tcltest [info patchlevel]] + # Some tests require the testobj command testConstraint testobj [expr {[info commands testobj] != {}}] @@ -1773,10 +1776,10 @@ test string-26.3.1 {tcl::prefix, bad args} -body { } -returnCodes 1 -result {error options must have an even number of elements} test string-26.3.2 {tcl::prefix, bad args} -body { tcl::prefix match -error str1 str2 -} -returnCodes 1 -result {missing error options} +} -returnCodes 1 -result {missing value for -error} test string-26.4 {tcl::prefix, bad args} -body { tcl::prefix match -message str1 str2 -} -returnCodes 1 -result {missing message} +} -returnCodes 1 -result {missing value for -message} test string-26.5 {tcl::prefix} { tcl::prefix match {apa bepa cepa depa} cepa } cepa |