[svn:parrot] r44806 - branches/ops_pct/compilers/opsc/t

[bacek at svn.parrot.org]

Author: bacek
Date: Tue Mar  9 12:32:22 2010
New Revision: 44806
URL: https://trac.parrot.org/parrot/changeset/44806

Log:
More test updates

Modified:
   branches/ops_pct/compilers/opsc/t/07-emitter.t

Modified: branches/ops_pct/compilers/opsc/t/07-emitter.t
==============================================================================
--- branches/ops_pct/compilers/opsc/t/07-emitter.t	Tue Mar  9 12:30:02 2010	(r44805)
+++ branches/ops_pct/compilers/opsc/t/07-emitter.t	Tue Mar  9 12:32:22 2010	(r44806)
@@ -77,7 +77,7 @@
     restart ADDRESS(234);
 }';
 my $new_body := translate_op_body($trans, $op_body);
-my $restart_addr_ok := $new_body ~~ /'return' \s '(' 'opcode_t' \s '*' ')' \s '234'/;
+my $restart_addr_ok := $new_body ~~ /'return' \s '(' 'opcode_t' \s '*' ')' \s? '234'/;
 ok($restart_addr_ok, "restart ADDRESS() translated ok");
 
 $op_body := '
@@ -85,7 +85,7 @@
     goto OFFSET($1);
 }';
 $new_body := translate_op_body($trans, $op_body);
-$restart_addr_ok := $new_body ~~ /'return (opcode_t *) cur_opcode + IREG(1);'/;
+$restart_addr_ok := $new_body ~~ /'return (opcode_t *)cur_opcode + IREG(1);'/;
 ok($restart_addr_ok, "goto OFFSET() and \$1 translated ok");
 ok($new_body ~~ /'PARROT_JUMP_RELATIVE'/, "jump flags generated");