diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2012-06-25 12:54:29 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2012-06-25 12:54:29 (GMT) |
| commit | 527a4f67fa396747502ba37514a882725f401110 (patch) | |
| tree | a15d6e3db57d75ff1a3a0fa261928a216015aba8 /tests/encoding.test | |
| parent | 3b5f5de0a5c31cd0891ca0398b8573ce3e7111b8 (diff) | |
| download | tcl-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.test | 8 |
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 |