[prev in list] [next in list] [prev in thread] [next in thread] 

List:       mason-cvs
Subject:    [Mason-checkins] [3824] Add an additional test to make sure errors
From:       autarch () urth ! org
Date:       2007-04-22 15:58:43
Message-ID: E1HfeSZ-0006nP-UN () urth ! org
[Download RAW message or body]

Revision: 3824
Author:   autarch
Date:     2007-04-22 10:58:43 -0500 (Sun, 22 Apr 2007)
ViewCVS:  https://svn.urth.org/listing.php?repname=Mason&rev=3824

Log Message:
-----------
Add an additional test to make sure errors are not upgraded to
exceptions when errors_are_exceptions is false.

Fix test names.

Modified Paths:
--------------
    trunk/t/13-errors.t
Modified: trunk/t/13-errors.t
===================================================================
--- trunk/t/13-errors.t	2007-04-22 15:55:54 UTC (rev 3823)
+++ trunk/t/13-errors.t	2007-04-22 15:58:43 UTC (rev 3824)
@@ -349,8 +349,8 @@
 
 #------------------------------------------------------------
 
-    $group->add_test( name => 'exception_are_exceptions_false',
-                      description => 'Test error-handling with \
exception_are_exceptions set to false', +    $group->add_test( name => \
'errors_are_exceptions_false', +                      description => 'Test \
error-handling with errors_are_exceptions set to false',  interp_params => { \
errors_are_exceptions => 0 },  component => <<'EOF',
 % die 'a string error';
@@ -360,8 +360,22 @@
 
 #------------------------------------------------------------
 
-    $group->add_test( name => 'exception_are_exceptions_false_fatal_mode',
-                      description => 'Test error-handling with \
exception_are_exceptions set to false and error_mode set to fatal', +    \
$group->add_test( name => 'errors_are_exceptions_no_upgrade', +                      \
description => 'Test that errors do not become object with errors_are_exceptions set \
to false', +                      interp_params => { errors_are_exceptions => 0 },
+                      component => <<'EOF',
+% eval { die 'a string error' };
+exception: <% ref $@ ? ref $@ : 'not a ref' %>
+EOF
+                      expect => <<'EOF',
+exception: not a ref
+EOF
+                    );
+
+#------------------------------------------------------------
+
+    $group->add_test( name => 'errors_are_exceptions_false_fatal_mode',
+                      description => 'Test error-handling with errors_are_exceptions \
set to false and error_mode set to fatal',  interp_params => { errors_are_exceptions \
=> 0,  error_mode => 'fatal',
                                        },




-------------------------------------------------------------------------
This SF.net email is sponsored by DB2 Express
Download DB2 Express C - the FREE version of DB2 express and take
control of your XML. No limits. Just data. Click to get it now.
http://sourceforge.net/powerbar/db2/
_______________________________________________
Mason-checkins mailing list
Mason-checkins@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mason-checkins


[prev in list] [next in list] [prev in thread] [next in thread]