Author: coke
Date: Mon Mar 20 10:58:24 2006
New Revision: 11951
Modified:
trunk/languages/APL/TODO
trunk/languages/APL/t/simple.t
Log:
[APL] move some items from TODO to todo tests.
Modified: trunk/languages/APL/TODO
==============================================================================
--- trunk/languages/APL/TODO (original)
+++ trunk/languages/APL/TODO Mon Mar 20 10:58:24 2006
@@ -3,16 +3,3 @@
- allow precompilation of the TGE work - no reason to run this every runtime.
- RT #38733 - can't read in utf-8 encoded files at the moment.
-
-- Allow specification of vectors
-
-- Allow binary/unary versions of the same operator, e.g.:
-
-⌈ 2.5
-3
-
-as opposed to
-
- 2 ⌈ 3
-3
-
Modified: trunk/languages/APL/t/simple.t
==============================================================================
--- trunk/languages/APL/t/simple.t (original)
+++ trunk/languages/APL/t/simple.t Mon Mar 20 10:58:24 2006
@@ -2,7 +2,7 @@
use strict;
use lib qw(t . lib ../lib ../../lib ../../../lib);
-use Parrot::Test tests => 2;
+use Parrot::Test tests => 7;
use Test::More;
TODO: {
@@ -15,3 +15,37 @@
language_output_is('APL', <<'CODE', '20', 'scalar multiplication');
print 10 * 2
CODE
+
+TODO: {
+ local $TODO = "characters don't work yet.";
+
+language_output_is('APL', <<'CODE', q{he said, "she said."}, 'double quotes');
+print "he said, ""she said."""
+CODE
+
+language_output_is('APL', <<'CODE', q{surely you can't be serious}, 'single
quotes');
+print 'surely you can''t be serious.'
+CODE
+}
+
+TODO: {
+ local $TODO = "basic vector support missing";
+
+language_output_is('APL', <<'CODE', '10 2 3', 'vectors');
+print 10 2 3
+CODE
+}
+
+TODO: {
+ local $TODO = "use same glyph in monadic and dyadic forms...";
+
+language_output_is('APL', <<'CODE', '3', 'ceiling (scalar)');
+print ⌈ 2.5
+CODE
+
+language_output_is('APL', <<'CODE', '3', 'maximum (scalar)');
+print 2 ⌈ 3
+CODE
+}
+
+
