Re: FAIL: lang-tcl with gettext-0.11.2

[Bruno Haible]

Benoit Sibaud writes:

> *) i686-pc-linux-gnu and sparc-unknown-linux-gnu
> 
> called "::msgcat::mc" with too many arguments
>      while executing
> "::msgcat::mc "%s is replaced by %s." "FF" "EUR""
>      invoked from within
> "puts [::msgcat::mc "%s is replaced by %s." "FF" "EUR"]
> "
>      (file "program.tcl" line 6)
> FAIL: lang-tcl
> 1 of 163 tests failed

Thanks for the report. It's a bug in the testsuite; this patch should
fix it.

Bruno

*** tests/lang-tcl      11 Mar 2002 12:16:14 -0000      1.3
--- tests/lang-tcl      16 May 2002 11:56:13 -0000      1.4
***************
*** 14,20 ****
  ::msgcat::mcload [file join [file dirname [info script]] msgs]
  proc _ {s} {return [::msgcat::mc $s]}
  puts [_ "'Your command, please?', asked the waiter."]
! puts [::msgcat::mc "%s is replaced by %s." "FF" "EUR"]
  EOF
  
  tmpfiles="$tmpfiles prog.pot"
--- 14,20 ----
  ::msgcat::mcload [file join [file dirname [info script]] msgs]
  proc _ {s} {return [::msgcat::mc $s]}
  puts [_ "'Your command, please?', asked the waiter."]
! puts [format [::msgcat::mc "%s is replaced by %s."] "FF" "EUR"]
  EOF
  
  tmpfiles="$tmpfiles prog.pot"