summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2012-06-25 12:57:50 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2012-06-25 12:57:50 (GMT)
commit54096927a3f71635771813b5ceb91110ac92011e (patch)
tree6f7fbc2ac8742c8c3c00c0f6ba91990ac9e00498 /tests
parent076eb7c9e473f60d3821b1fcc622f69fbb8eba14 (diff)
parent527a4f67fa396747502ba37514a882725f401110 (diff)
downloadtcl-54096927a3f71635771813b5ceb91110ac92011e.zip
tcl-54096927a3f71635771813b5ceb91110ac92011e.tar.gz
tcl-54096927a3f71635771813b5ceb91110ac92011e.tar.bz2
[Bug 3537605]: Make [encoding dirs ? ?] report the right error message.
Diffstat (limited to 'tests')
-rw-r--r--tests/encoding.test8
1 files changed, 8 insertions, 0 deletions
diff --git a/tests/encoding.test b/tests/encoding.test
index 51b7aa1..b4ee7c3 100644
--- a/tests/encoding.test
+++ b/tests/encoding.test
@@ -582,6 +582,14 @@ file delete {*}[glob -directory [temporaryDirectory] *.chars *.tcltestout]
# EscapeFreeProc, GetTableEncoding, unilen are fully tested by the rest of
# this file.
+
+test encoding-27.1 {encoding dirs basic behavior} -returnCodes error -body {
+ encoding dirs ? ?
+} -result {wrong # args: should be "encoding dirs ?dirList?"}
+test encoding-27.2 {encoding dirs basic behavior} -returnCodes error -body {
+ encoding dirs "\{not a list"
+} -result "expected directory list but got \"\{not a list\""
+
}
runtests