diff options
author | ericm <ericm@noemail.net> | 2000-08-03 21:40:55 (GMT) |
---|---|---|
committer | ericm <ericm@noemail.net> | 2000-08-03 21:40:55 (GMT) |
commit | 4f3922ae41c1fd6450226119c93d812dc09d4688 (patch) | |
tree | 4f09e41924634513aea136acfb74dbaa5799d22b /tests | |
parent | 03e99ddcb232901f4cc019f28c7c0d3b5c4450ba (diff) | |
download | tcl-4f3922ae41c1fd6450226119c93d812dc09d4688.zip tcl-4f3922ae41c1fd6450226119c93d812dc09d4688.tar.gz tcl-4f3922ae41c1fd6450226119c93d812dc09d4688.tar.bz2 |
Backport of mcunknown fixes for 8.3.2.
FossilOrigin-Name: 3fc06e9129af139009a2c2f545886b64ae3f21ba
Diffstat (limited to 'tests')
-rw-r--r-- | tests/msgcat.test | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/tests/msgcat.test b/tests/msgcat.test index 04e570b..90d0e05 100644 --- a/tests/msgcat.test +++ b/tests/msgcat.test @@ -12,7 +12,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: msgcat.test,v 1.8 2000/04/11 21:16:18 ericm Exp $ +# RCS: @(#) $Id: msgcat.test,v 1.8.2.1 2000/08/03 21:40:55 ericm Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -401,6 +401,9 @@ test msgcat-7.2 {::msgcat::mc, extra args go through to format} { test msgcat-7.3 {::msgcat::mc, errors from format are propagated} { catch {::msgcat::mc format3 "good test"} } 1 +test msgcat-7.4 {::msgcat::mc, extra args are given to unknown} { + ::msgcat::mc "this is a %s" "good test" +} "this is a good test" # Reset the locale ::msgcat::mclocale $oldlocale |