From 83982a01534659debf590c3dbaa637e4af35f9a0 Mon Sep 17 00:00:00 2001
From: Francois Perrad <francois.perrad@gadz.org>
Date: Sun, 30 May 2010 10:42:01 +0200
Subject: [PATCH] refactor with runtests()

---
 setup.pir | 16 +++-------------
 1 file changed, 3 insertions(+), 13 deletions(-)

diff --git a/setup.pir b/setup.pir
index 14b4821..9dd71df 100755
--- a/setup.pir
+++ b/setup.pir
@@ -163,20 +163,10 @@ SOURCES
     .param pmc kv :slurpy :named
     run_step('build', kv :flat :named)
 
-    load_bytecode 'TAP/Harness.pbc'
-    .local pmc opts, files, harness, aggregate
-    opts = new 'Hash'
+    $P0 = glob('t/pmc/*.t')
+    $P0 = sort_strings($P0)
     $S0 = get_parrot()
-    opts['exec'] = $S0
-    files = glob('t/pmc/*.t')
-    files = sort_strings(files)
-    harness = new ['TAP';'Harness']
-    harness.'process_args'(opts)
-    aggregate = harness.'runtests'(files)
-    $I0 = aggregate.'has_errors'()
-    unless $I0 goto L1
-    die "test fails"
-  L1:
+    runtests($P0 :flat, $S0 :named('exec'))
 .end
 
 # Local Variables: