[svn:parrot] r41677 - branches/pcc_reapply/t/op

[dukeleto at svn.parrot.org]

Author: dukeleto
Date: Sun Oct  4 08:53:17 2009
New Revision: 41677
URL: https://trac.parrot.org/parrot/changeset/41677

Log:
[pcc_reapply][t] Fix some tests in t/op/calling.t that now throw slightly different error messages

Modified:
   branches/pcc_reapply/t/op/calling.t

Modified: branches/pcc_reapply/t/op/calling.t
==============================================================================
--- branches/pcc_reapply/t/op/calling.t	Sun Oct  4 08:21:54 2009	(r41676)
+++ branches/pcc_reapply/t/op/calling.t	Sun Oct  4 08:53:17 2009	(r41677)
@@ -2088,7 +2088,7 @@
 1120
 OUTPUT
 
-pir_error_output_like( <<'CODE', <<'OUTPUT', "argc mismatch - missing named" );
+pir_error_output_like( <<'CODE', qr/named parameters must follow all positional parameters/, "argc mismatch - missing named" );
 .sub main :main
     .include "errors.pasm"
     errorson .PARROT_ERRORS_PARAM_COUNT_FLAG
@@ -2105,10 +2105,8 @@
         print "\n"
 .end
 CODE
-/too few arguments/
-OUTPUT
 
-pir_error_output_like( <<'CODE', <<'OUTPUT', "argc mismatch - missing named" );
+pir_error_output_like( <<'CODE', qr/too few positional arguments/, "argc mismatch - missing named" );
 .sub main :main
     .include "errors.pasm"
     errorson .PARROT_ERRORS_PARAM_COUNT_FLAG
@@ -2125,8 +2123,6 @@
         print "\n"
 .end
 CODE
-/too few arguments/
-OUTPUT
 
 pir_error_output_like( <<'CODE', <<'OUTPUT', "argc mismatch - too many named" );
 .sub main :main