[svn:parrot] r42396 - trunk/runtime/parrot/library

fperrad at svn.parrot.org fperrad at svn.parrot.org
Tue Nov 10 06:28:37 UTC 2009


Author: fperrad
Date: Tue Nov 10 06:28:36 2009
New Revision: 42396
URL: https://trac.parrot.org/parrot/changeset/42396

Log:
[distutils] step 'test' try first to run 'perl t/harness'

Modified:
   trunk/runtime/parrot/library/distutils.pir

Modified: trunk/runtime/parrot/library/distutils.pir
==============================================================================
--- trunk/runtime/parrot/library/distutils.pir	Tue Nov 10 06:13:41 2009	(r42395)
+++ trunk/runtime/parrot/library/distutils.pir	Tue Nov 10 06:28:36 2009	(r42396)
@@ -1155,6 +1155,10 @@
 
 =head3 Step test
 
+If t/harness exists, run : perl t/harness
+
+Else run : prove t/*.t
+
 =over 4
 
 =item prove_exec
@@ -1173,20 +1177,29 @@
     .param pmc kv :slurpy :named
     run_step('build', kv :flat :named)
     .local string cmd
+    $I0 = file_exists('t/harness')
+    unless $I0 goto L1
+    cmd = "perl -I"
+    $S0 = get_libdir()
+    cmd .= $S0
+    cmd .= "/tools/lib t/harness"
+    goto L2
+  L1:
     cmd = "prove"
     $I0 = exists kv['prove_exec']
-    unless $I0 goto L1
+    unless $I0 goto L3
     cmd .= " --exec="
     $S0 = kv['prove_exec']
     cmd .= $S0
-  L1:
+  L3:
     cmd .= " "
     $S0 = "t/*.t" # default
     $I0 = exists kv['prove_files']
-    unless $I0 goto L2
+    unless $I0 goto L4
     $S0 = kv['prove_files']
-  L2:
+  L4:
     cmd .= $S0
+  L2:
     system(cmd)
 .end
 


More information about the parrot-commits mailing list