diff options
Diffstat (limited to 'lang/itcl/files/patch-test')
| -rw-r--r-- | lang/itcl/files/patch-test | 26 |
1 files changed, 0 insertions, 26 deletions
diff --git a/lang/itcl/files/patch-test b/lang/itcl/files/patch-test deleted file mode 100644 index 4f8554bbfd81..000000000000 --- a/lang/itcl/files/patch-test +++ /dev/null @@ -1,26 +0,0 @@ ---- tests/ensemble.test 2004-02-12 13:09:50.000000000 -0500 -+++ tests/ensemble.test 2010-01-24 14:57:20.000000000 -0500 -@@ -97,12 +97,19 @@ - "itcl::ensemble test_numbers {part foo}"}} - --test ensemble-1.11 {part argument errors are handled gracefully} { -- list [catch "itcl::ensemble test_numbers {part foo {{}} {}}" msg] $msg $errorInfo --} {1 {procedure "foo" has argument with no name} {procedure "foo" has argument with no name -+if {$tcl_version < 8.5} { -+ set errmsg111 {procedure "foo" has argument with no name} -+} else { -+ set errmsg111 {argument with no name} -+} -+set errmsg111 [format {1 {%s} {%s - while executing - "part foo {{}} {}" - ("ensemble" body line 1) - invoked from within --"itcl::ensemble test_numbers {part foo {{}} {}}"}} -+"itcl::ensemble test_numbers {part foo {{}} {}}"}} $errmsg111 $errmsg111] -+ -+test ensemble-1.11 {part argument errors are handled gracefully} { -+ list [catch "itcl::ensemble test_numbers {part foo {{}} {}}" msg] $msg $errorInfo -+} $errmsg111 - - test ensemble-2.0 {defining subensembles} { |