Author: coke
Date: Sun Mar 19 12:03:34 2006
New Revision: 11944
Modified:
trunk/languages/APL/APL.pir
trunk/languages/APL/config/root.in
trunk/languages/APL/t/harness
trunk/languages/APL/t/simple.t
Log:
Remove hack that hardcoded source. Note lack of ability to do unicode
operators in TODO test. Allow "make test" to pass.
Modified: trunk/languages/APL/APL.pir
==============================================================================
--- trunk/languages/APL/APL.pir (original)
+++ trunk/languages/APL/APL.pir Sun Mar 19 12:03:34 2006
@@ -13,7 +13,6 @@
.local string source
source = _get_source(args)
- source = unicode:"print 10 \u00d7 2\n"
=for debug
Modified: trunk/languages/APL/config/root.in
==============================================================================
--- trunk/languages/APL/config/root.in (original)
+++ trunk/languages/APL/config/root.in Sun Mar 19 12:03:34 2006
@@ -68,17 +68,18 @@
@echo ""
test: all
- $(PERL) -Ilib [EMAIL PROTECTED]@harness [EMAIL PROTECTED]@.*t
+ $(PERL) -Ilib [EMAIL PROTECTED]@harness [EMAIL PROTECTED]@*.t
testclean:
- $(RM_F) "[EMAIL PROTECTED]@*.p1" "[EMAIL PROTECTED]@*.out"
+ $(RM_F) "[EMAIL PROTECTED]@*.apl" "[EMAIL PROTECTED]@*.out"
clean: testclean
- $(RM_F) APL.pbc
- $(RM_F) $(GENERATED)
- $(RM_F) "[EMAIL PROTECTED]@*.pbc"
- $(RM_F) "[EMAIL PROTECTED]@[EMAIL PROTECTED]@*.pbc"
- $(RM_F) "[EMAIL PROTECTED]@[EMAIL PROTECTED]@*.pbc"
+ $(RM_F) \
+ APL.pbc \
+ $(GENERATED) \
+ "[EMAIL PROTECTED]@*.pbc" \
+ "[EMAIL PROTECTED]@[EMAIL PROTECTED]@*.pbc" \
+ "[EMAIL PROTECTED]@[EMAIL PROTECTED]@*.pbc"
realclean: clean
$(RM_F) Makefile
Modified: trunk/languages/APL/t/harness
==============================================================================
--- trunk/languages/APL/t/harness (original)
+++ trunk/languages/APL/t/harness Sun Mar 19 12:03:34 2006
@@ -5,7 +5,7 @@
use Test::Harness;
use File::Spec;
-my $language = "punie";
+my $language = "APL";
=pod
Modified: trunk/languages/APL/t/simple.t
==============================================================================
--- trunk/languages/APL/t/simple.t (original)
+++ trunk/languages/APL/t/simple.t Sun Mar 19 12:03:34 2006
@@ -2,8 +2,16 @@
use strict;
use lib qw(t . lib ../lib ../../lib ../../../lib);
-use Parrot::Test tests => 1;
+use Parrot::Test tests => 2;
+use Test::More;
+TODO: {
+ local $TODO = "no unicode input files yet.";
language_output_is('APL', <<'CODE', '20', 'scalar multiplication');
-print 10 × 2;
+print 10 × 2
+CODE
+}
+
+language_output_is('APL', <<'CODE', '20', 'scalar multiplication');
+print 10 * 2
CODE
