[svn:parrot] r43440 - in trunk: config/gen/makefiles lib/Parrot/Harness t

[plobsing at svn.parrot.org]

Author: plobsing
Date: Wed Jan 13 03:39:39 2010
New Revision: 43440
URL: https://trac.parrot.org/parrot/changeset/43440

Log:
add -G flag to t/harness and testG makefile target to run tests with '-runcore gcdebug'

running these tests currently gives 8 failures on linux x86_64

Modified:
   trunk/config/gen/makefiles/root.in
   trunk/lib/Parrot/Harness/Options.pm
   trunk/t/harness

Modified: trunk/config/gen/makefiles/root.in
==============================================================================
--- trunk/config/gen/makefiles/root.in	Wed Jan 13 03:09:31 2010	(r43439)
+++ trunk/config/gen/makefiles/root.in	Wed Jan 13 03:39:39 2010	(r43440)
@@ -2002,6 +2002,10 @@
 testg : test_prep
 	$(PERL) t/harness $(EXTRA_TEST_ARGS) -g $(RUNCORE_TEST_FILES)
 
+# GC Debug core
+testG : test_prep
+	$(PERL) t/harness $(EXTRA_TEST_ARGS) -G $(RUNCORE_TEST_FILES)
+
 # JIT core - target retained, but falls back to standard core
 testj : test_prep
 	$(PERL) t/harness $(EXTRA_TEST_ARGS) $(RUNCORE_TEST_FILES)

Modified: trunk/lib/Parrot/Harness/Options.pm
==============================================================================
--- trunk/lib/Parrot/Harness/Options.pm	Wed Jan 13 03:09:31 2010	(r43439)
+++ trunk/lib/Parrot/Harness/Options.pm	Wed Jan 13 03:39:39 2010	(r43440)
@@ -92,6 +92,7 @@
     my %remap      = (
         'j' => '-runcore=fast',
         'g' => '-runcore=cgoto',
+        'G' => '-runcore=gcdebug',
         'C' => '-runcore=cgp',
         'S' => '-runcore=switch',
         'b' => '-runcore=bounds',

Modified: trunk/t/harness
==============================================================================
--- trunk/t/harness	Wed Jan 13 03:09:31 2010	(r43439)
+++ trunk/t/harness	Wed Jan 13 03:39:39 2010	(r43440)
@@ -36,7 +36,7 @@
 # Suck the short options into the TEST_PROG_ARGS
 # environmental variable.
 my %opts;
-getopts('wgjPCSefbvdr?hO:D:', \%opts);
+getopts('wgGjPCSefbvdr?hO:D:', \%opts);
 
 if ($opts{'?'} || $opts{h} || $longopts->{help}) {
     Usage();
@@ -141,6 +141,10 @@
 
 Run the C<CGoto> core.
 
+=item C<-G>
+
+Run the C<GCDebug> core.
+
 =item C<-j>
 
 Alias for running with the fast core.