summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--ChangeLog6
-rw-r--r--tests/cmdMZ.test23
2 files changed, 28 insertions, 1 deletions
diff --git a/ChangeLog b/ChangeLog
index 82796c8..47b95fb 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2004-07-06 Kevin B. Kenny <kennykb@acm.org>
+
+ * tests/cmdMZ.test (cmdMZ-return-2.15,cmdMZ-return-2.16):
+ Added a test that a return code containing spaces is correctly
+ returned.
+
2004-07-06 Donal K. Fellows <donal.k.fellows@man.ac.uk>
* tools/man2html2.tcl (IPmacro, setTabs): Added support for the
diff --git a/tests/cmdMZ.test b/tests/cmdMZ.test
index ae5725b..827c77b 100644
--- a/tests/cmdMZ.test
+++ b/tests/cmdMZ.test
@@ -11,7 +11,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: cmdMZ.test,v 1.22 2004/06/23 15:36:55 dkf Exp $
+# RCS: @(#) $Id: cmdMZ.test,v 1.23 2004/07/06 20:17:11 kennykb Exp $
if {[catch {package require tcltest 2.1}]} {
puts stderr "Skipping tests in [info script]. tcltest 2.1 required."
@@ -151,6 +151,27 @@ test cmdMZ-return-2.14 {return option handling} -body {
return -level 0 -code error -options {-code foo -options {-code break}}
} -returnCodes break -result {}
+test cmdMZ-return-2.15 {return opton handling} -setup {
+ proc p {} {
+ return -code error -errorcode {a b} c
+ }
+ } -body {
+ list [catch p result] $result $::errorCode
+ } -cleanup {
+ rename p {}
+ } -result {1 c {a b}}
+
+test cmdMZ-return-2.16 {return opton handling} -setup {
+ proc p {} {
+ return -code error -errorcode [list a b] c
+ }
+ } -body {
+ list [catch p result] $result $::errorCode
+ } -cleanup {
+ rename p {}
+ } -result {1 c {a b}}
+
+
# Check that the result of a [return -options $opts $result] is
# indistinguishable from that of the originally caught script, no
# matter what the script is/does. (TIP 90)