diff options
| author | sebres <sebres@users.sourceforge.net> | 2018-11-22 18:30:49 (GMT) |
|---|---|---|
| committer | sebres <sebres@users.sourceforge.net> | 2018-11-22 18:30:49 (GMT) |
| commit | cae3501f7a647be921654d936ae0f66e3695ea70 (patch) | |
| tree | b5e404aa5dab94bbb3848f05696da7a3d3144f27 | |
| parent | c2ce99823eec77ebd96f226d73c0389e446c45b6 (diff) | |
| download | tcl-cae3501f7a647be921654d936ae0f66e3695ea70.zip tcl-cae3501f7a647be921654d936ae0f66e3695ea70.tar.gz tcl-cae3501f7a647be921654d936ae0f66e3695ea70.tar.bz2 | |
fixes typo in [e108e6b947], test added to cover this case
| -rw-r--r-- | library/msgcat/msgcat.tcl | 2 | ||||
| -rw-r--r-- | tests/msgcat.test | 8 |
2 files changed, 5 insertions, 5 deletions
diff --git a/library/msgcat/msgcat.tcl b/library/msgcat/msgcat.tcl index 129cd9c..db1231c 100644 --- a/library/msgcat/msgcat.tcl +++ b/library/msgcat/msgcat.tcl @@ -1105,7 +1105,7 @@ proc msgcat::mcflmset {pairs} { return -code error "must only be used inside a message catalog loaded\ with ::msgcat::mcload" } - tailcal mcmset $FileLocale $pairs + tailcall mcmset $FileLocale $pairs } # msgcat::mcunknown -- diff --git a/tests/msgcat.test b/tests/msgcat.test index 3dde124..4ab3622 100644 --- a/tests/msgcat.test +++ b/tests/msgcat.test @@ -693,18 +693,18 @@ if {[package vsatisfies [package provide msgcat] 1.7]} { set msgdir3 [makeDirectory msgdir3] makeFile "::msgcat::mcflset k2 v2 ; ::msgcat::mcload [list $msgdir3]"\ l2.msg $msgdir2 - makeFile {::msgcat::mcflset k3 v3} l2.msg $msgdir3 + makeFile {::msgcat::mcflset k3 v3 ; ::msgcat::mcflmset {k4 v4 k5 v5}} l2.msg $msgdir3 # chained mcload - test msgcat-8.2 {mcflset} -setup { + test msgcat-8.2 {mcflset/mcflmset} -setup { variable locale [mclocale] mclocale l2 mcload $msgdir2 } -cleanup { mclocale $locale } -body { - return [mc k2][mc k3] - } -result v2v3 + return [mc k2][mc k3]--[mc k4][mc k5] + } -result v2v3--v4v5 removeFile l2.msg $msgdir2 removeDirectory msgdir2 |