[svn:parrot] r37085 - trunk/t/pharness

[coke at svn.parrot.org]

Author: coke
Date: Tue Mar  3 03:27:45 2009
New Revision: 37085
URL: https://trac.parrot.org/parrot/changeset/37085

Log:
Update harness testing to account for mapping of harness options to
actual parrot options. (TT #394)

Modified:
   trunk/t/pharness/02-get_test_prog_args.t

Modified: trunk/t/pharness/02-get_test_prog_args.t
==============================================================================
--- trunk/t/pharness/02-get_test_prog_args.t	Mon Mar  2 22:39:14 2009	(r37084)
+++ trunk/t/pharness/02-get_test_prog_args.t	Tue Mar  3 03:27:45 2009	(r37085)
@@ -28,7 +28,7 @@
 ($gc_debug, $run_exec) = (0,0);
 $args = get_test_prog_args($optsref, $gc_debug, $run_exec);
 like($args, qr/-d/, "Got expected option");
-like($args, qr/-g/, "Got expected option");
+like($args, qr/--runcore=cgoto/, "Got expected option");
 like($args, qr/-D40/, "Got expected option");
 
 $optsref = {
@@ -40,7 +40,7 @@
 ($gc_debug, $run_exec) = (0,0);
 $args = get_test_prog_args($optsref, $gc_debug, $run_exec);
 like($args, qr/-d/, "Got expected option");
-like($args, qr/-g/, "Got expected option");
+like($args, qr/--runcore=cgoto/, "Got expected option");
 like($args, qr/-D40/, "Got expected option");
 like($args, qr/-O2/, "Got expected option");
 
@@ -52,7 +52,7 @@
 ($gc_debug, $run_exec) = (1,0);
 $args = get_test_prog_args($optsref, $gc_debug, $run_exec);
 like($args, qr/-d/, "Got expected option");
-like($args, qr/-g/, "Got expected option");
+like($args, qr/--runcore=cgoto/, "Got expected option");
 like($args, qr/-D40/, "Got expected option");
 like($args, qr/\s--gc-debug/, "Got expected option");
 
@@ -64,7 +64,7 @@
 ($gc_debug, $run_exec) = (0,1);
 $args = get_test_prog_args($optsref, $gc_debug, $run_exec);
 like($args, qr/-d/, "Got expected option");
-like($args, qr/-g/, "Got expected option");
+like($args, qr/--runcore=cgoto/, "Got expected option");
 like($args, qr/-D40/, "Got expected option");
 like($args, qr/\s--run-exec/, "Got expected option");