summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2012-08-03 14:24:34 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2012-08-03 14:24:34 (GMT)
commit9721f569eacfc8d7452182fb57bfa2a758f580b7 (patch)
tree638bb10c1c93ca8531074a657f22bf17d2447bee /tests
parent4152a1cc08547b251509c18405d318433f5ece2e (diff)
downloadtcl-9721f569eacfc8d7452182fb57bfa2a758f580b7.zip
tcl-9721f569eacfc8d7452182fb57bfa2a758f580b7.tar.gz
tcl-9721f569eacfc8d7452182fb57bfa2a758f580b7.tar.bz2
more result generation conversion
Diffstat (limited to 'tests')
-rw-r--r--tests/fileSystem.test2
-rw-r--r--tests/string.test4
2 files changed, 3 insertions, 3 deletions
diff --git a/tests/fileSystem.test b/tests/fileSystem.test
index 9469af0..38ecbee 100644
--- a/tests/fileSystem.test
+++ b/tests/fileSystem.test
@@ -484,7 +484,7 @@ test filesystem-6.22 {empty file name} {file pathtype ""} relative
test filesystem-6.23 {empty file name} {file readable ""} 0
test filesystem-6.24 {empty file name} -returnCodes error -body {
file readlink ""
-} -result {could not readlink "": no such file or directory}
+} -result {could not read link "": no such file or directory}
test filesystem-6.25 {empty file name} -returnCodes error -body {
file rename "" ""
} -result {error renaming "": no such file or directory}
diff --git a/tests/string.test b/tests/string.test
index 8cacd07..e86c0de 100644
--- a/tests/string.test
+++ b/tests/string.test
@@ -1776,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