summaryrefslogtreecommitdiffstats
path: root/tests/encoding.test
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2012-06-25 12:54:29 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2012-06-25 12:54:29 (GMT)
commit527a4f67fa396747502ba37514a882725f401110 (patch)
treea15d6e3db57d75ff1a3a0fa261928a216015aba8 /tests/encoding.test
parent3b5f5de0a5c31cd0891ca0398b8573ce3e7111b8 (diff)
downloadtcl-527a4f67fa396747502ba37514a882725f401110.zip
tcl-527a4f67fa396747502ba37514a882725f401110.tar.gz
tcl-527a4f67fa396747502ba37514a882725f401110.tar.bz2
[Bug 3537605]: Make [encoding dirs ? ?] report the right error message.
Diffstat (limited to 'tests/encoding.test')
-rw-r--r--tests/encoding.test8
1 files changed, 8 insertions, 0 deletions
diff --git a/tests/encoding.test b/tests/encoding.test
index 836f277..aa50360 100644
--- a/tests/encoding.test
+++ b/tests/encoding.test
@@ -586,6 +586,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