[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