[26039] trunk/base/src/darwinports1.0/test_util.tcl

[source_changes at macosforge.org]

Revision: 26039
          http://trac.macosforge.org/projects/macports/changeset/26039
Author:   eridius at macports.org
Date:     2007-06-09 16:29:50 -0700 (Sat, 09 Jun 2007)

Log Message:
-----------
Add another case to test_util.tcl

Modified Paths:
--------------
    trunk/base/src/darwinports1.0/test_util.tcl

Modified: trunk/base/src/darwinports1.0/test_util.tcl
===================================================================
--- trunk/base/src/darwinports1.0/test_util.tcl	2007-06-09 23:17:25 UTC (rev 26038)
+++ trunk/base/src/darwinports1.0/test_util.tcl	2007-06-09 23:29:50 UTC (rev 26039)
@@ -457,6 +457,13 @@
                 join $list ", "
             }
         } "code: correct, msg: correct, info: probably correct"
+        block {try-break-catch} {
+            try {
+                break
+            } catch {*} {
+                error "catch triggered"
+            }
+        } -break
         
         # ensure the stack is sound
         var ::_trycatch::catchStack {}

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.macosforge.org/pipermail/macports-changes/attachments/20070609/5f58d5bd/attachment.html