Author: coke
Date: Tue Mar 21 08:58:52 2006
New Revision: 11970
Modified:
trunk/languages/APL/config/root.in
trunk/languages/APL/t/simple.t
Log:
[APL]
~ Skip tests if we don't have unicode.
~ Be explicit in calling rulec.pir
Modified: trunk/languages/APL/config/root.in
==============================================================================
--- trunk/languages/APL/config/root.in (original)
+++ trunk/languages/APL/config/root.in Tue Mar 21 08:58:52 2006
@@ -22,7 +22,7 @@
[EMAIL PROTECTED]@APLOpLookup.pbc
$(GENERATED): [EMAIL PROTECTED]@APL.g
- $(PARROT) $(PGE_DIR)@[EMAIL PROTECTED] [EMAIL PROTECTED]@APL.g >
$(GENERATED)
+ $(PARROT) $(PGE_DIR)@[EMAIL PROTECTED] --compiler=p6rules
--output=$(GENERATED) [EMAIL PROTECTED]@APL.g
[EMAIL PROTECTED]@APLGrammar.pbc: $(GENERATED)
Modified: trunk/languages/APL/t/simple.t
==============================================================================
--- trunk/languages/APL/t/simple.t (original)
+++ trunk/languages/APL/t/simple.t Tue Mar 21 08:58:52 2006
@@ -2,9 +2,13 @@
use strict;
use lib qw(t . lib ../lib ../../lib ../../../lib);
+use Parrot::Config;
use Parrot::Test tests => 7;
use Test::More;
+# APL really needs unicode to function
+plan skip_all => "No unicode library available." unless $PConfig{has_icu};
+
TODO: {
local $TODO = "no unicode input files yet.";
language_output_is('APL', <<'CODE', '20', 'scalar multiplication');
