Author: coke Date: Thu Mar 23 06:05:32 2006 New Revision: 11997 Added: trunk/languages/APL/t/characters.t (contents, props changed) trunk/languages/APL/t/numbers.t (contents, props changed) trunk/languages/APL/t/variables.t (contents, props changed) Modified: trunk/MANIFEST trunk/languages/APL/t/simple.t
Log: [APL] ~ Add some (skipped) tests. Modified: trunk/MANIFEST ============================================================================== --- trunk/MANIFEST (original) +++ trunk/MANIFEST Thu Mar 23 06:05:32 2006 @@ -709,8 +709,11 @@ languages/APL/lib/POST/Val.pir [APL] languages/APL/lib/POST/Var.pir [APL] languages/APL/t/APL.pm [APL] +languages/APL/t/characters.t [APL] languages/APL/t/harness [APL] +languages/APL/t/numbers.t [APL] languages/APL/t/simple.t [APL] +languages/APL/t/variables.t [APL] languages/BASIC/compiler/BASIC_README [BASIC] languages/BASIC/compiler/compile.pl [BASIC] languages/BASIC/compiler/COMP_assignments.pm [BASIC] Added: trunk/languages/APL/t/characters.t ============================================================================== --- (empty file) +++ trunk/languages/APL/t/characters.t Thu Mar 23 06:05:32 2006 @@ -0,0 +1,38 @@ +#!/usr/bin/perl + +use lib qw(t . lib ../lib ../../lib ../../../lib); +use t::APL tests => 6; + +run_apl_is(); + +__DATA__ + +=== double quotes +--- APL: print "testing" +--- out: testing +--- skip: not implemented + +=== double quote, embedded double +--- APL: print "he said, ""she said.""" +--- out: he said, "she said." +--- skip: not implemented + +=== double quote, embedded single +--- APL: print "he said he can't" +--- out: he said he can't +--- skip: not implemented + +=== single quotes +--- APL: print 'testing' +--- out: testing +--- skip: not implemented + +=== single quotes, embedded single +--- APL: print 'surely you can''t be serious.' +--- out: surely you can't be serious +--- skip: not implemented + +=== single quote, embedded double +--- APL: print '"and?"' +--- out: and? +--- skip: not implemented Added: trunk/languages/APL/t/numbers.t ============================================================================== --- (empty file) +++ trunk/languages/APL/t/numbers.t Thu Mar 23 06:05:32 2006 @@ -0,0 +1,37 @@ +#!/usr/bin/perl + +use lib qw(t . lib ../lib ../../lib ../../../lib); +use t::APL tests => 6; + +run_apl_is(); + +__DATA__ + +=== integer +--- APL: print 2 +--- out: 2 + +=== negative integer +--- APL: print ⁻2 +--- out: ⁻2 +--- skip: not implemented + +=== number +--- APL: print 1.44 +--- out: 1.44 +--- skip: need to drop extra zeros. + +=== negative number +--- APL: print ⁻1.44 +--- out: ⁻1.44 +--- skip: not implemented + +=== positive exponent +--- APL: print 10E2 +--- out: 1000 +--- skip: not implemented + +=== negative exponent +--- APL: print 144E⁻2 +--- out: 1.44 +--- skip: not implemented Modified: trunk/languages/APL/t/simple.t ============================================================================== --- trunk/languages/APL/t/simple.t (original) +++ trunk/languages/APL/t/simple.t Thu Mar 23 06:05:32 2006 @@ -1,22 +1,12 @@ #!/usr/bin/perl use lib qw(t . lib ../lib ../../lib ../../../lib); -use t::APL tests => 7; +use t::APL tests => 4; run_apl_is(); __DATA__ -=== 'double quotes' ---- APL: print "he said, ""she said.""" ---- out: he said, "she said." ---- skip: characters don't work yet. - -=== 'single quotes' ---- APL: print 'surely you can''t be serious.' ---- out: surely you can't be serious ---- skip: characters don't work yet. - === vectors --- APL: print 10 2 3 --- out: 10 2 3 @@ -36,6 +26,3 @@ --- APL: print 10 × 2 --- out: 20 -=== scalar multiplication (ascii) ---- APL: print 10 * 2 ---- out: 20 Added: trunk/languages/APL/t/variables.t ============================================================================== --- (empty file) +++ trunk/languages/APL/t/variables.t Thu Mar 23 06:05:32 2006 @@ -0,0 +1,40 @@ +#!/usr/bin/perl + +use lib qw(t . lib ../lib ../../lib ../../../lib); +use t::APL tests => 4; + +run_apl_is(); + +__DATA__ + +=== assignment, scalar integer +--- APL +X←2 +X +--- out +2 +--- skip: not implemented + +=== assignment, character vector +--- APL +X←'foo' +X +--- out +foo +--- skip: not implemented + +=== longer var names +--- APL +SOMEVARIABLE←3.14 +SOMEVARIABLE +--- out +3.14 +--- skip: not implemented + +=== assignment, integer vector +--- APL +X←1 2 3 4 +X +--- out +1 2 3 4 +--- skip: not implemented
