diff options
author | dkf <donal.k.fellows@manchester.ac.uk> | 2012-06-25 12:57:50 (GMT) |
---|---|---|
committer | dkf <donal.k.fellows@manchester.ac.uk> | 2012-06-25 12:57:50 (GMT) |
commit | 6127c8f5c0c24bcc81f0e80c7489f0f6fc94bb01 (patch) | |
tree | 6f7fbc2ac8742c8c3c00c0f6ba91990ac9e00498 /tests/encoding.test | |
parent | 3759b05ed032d2795215249b406622f4e064f730 (diff) | |
parent | a4cd5432c443e7b9816f64275f12c4ed016082aa (diff) | |
download | tcl-6127c8f5c0c24bcc81f0e80c7489f0f6fc94bb01.zip tcl-6127c8f5c0c24bcc81f0e80c7489f0f6fc94bb01.tar.gz tcl-6127c8f5c0c24bcc81f0e80c7489f0f6fc94bb01.tar.bz2 |
[Bug 3537605]: Make [encoding dirs ? ?] report the right error message.
Diffstat (limited to 'tests/encoding.test')
-rw-r--r-- | tests/encoding.test | 8 |
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 |