Author: coke
Date: Wed Mar 22 06:03:48 2006
New Revision: 11979
Modified:
trunk/languages/APL/APL.pir
trunk/languages/APL/t/simple.t
Log:
Woot.
reading in utf8-encoding files is now possible, take advantage of this
and un-todo a test.
Modified: trunk/languages/APL/APL.pir
==============================================================================
--- trunk/languages/APL/APL.pir (original)
+++ trunk/languages/APL/APL.pir Wed Mar 22 06:03:48 2006
@@ -157,6 +157,7 @@
.local pmc filehandle
filehandle = open filename, "<"
unless filehandle goto err_no_file
+ push filehandle, 'utf8'
$S1 = read filehandle, 65535
close filehandle
.return ($S1)
Modified: trunk/languages/APL/t/simple.t
==============================================================================
--- trunk/languages/APL/t/simple.t (original)
+++ trunk/languages/APL/t/simple.t Wed Mar 22 06:03:48 2006
@@ -12,12 +12,9 @@
: plan skip_all => "No unicode library available.";
-TODO: {
- local $TODO = "no unicode input files yet.";
language_output_is('APL', <<'CODE', '20', 'scalar multiplication');
print 10 × 2
CODE
-}
language_output_is('APL', <<'CODE', '20', 'scalar multiplication');
print 10 * 2
