[eclectus]

- use petite on win32 git-svn-id: https://svn.parrot.org/parrot/trunk@26962 d31e2699-5ff4-0310-a27c-f18f2fbe73fe
parrot · Apr 13, 2008 · ea695ba · ea695ba
1 parent d4b9a8f
commit ea695ba
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/languages/eclectus/t/harness b/languages/eclectus/t/harness
@@ -30,7 +30,9 @@ use lib qw( ../lib ../../lib ../../lib );
 
 use Parrot::Test::Harness
     language => 'eclectus',
-    exec	    => [ 'gosh', '-fcase-fold', '-I', '.',  '-l', 'gauche/prelude.scm' ],
+    exec     => ($^O eq 'MSWin32')
+              ? [ 'petite', '--script' ]
+              : [ 'gosh', '-fcase-fold', '-I', '.',  '-l', 'gauche/prelude.scm' ],
     #exec     => [ 'guile', '--debug', '-l', 'guile/prelude.scm', '-s' ],
     files    => [ 't/*.pl' ];