Author: particle
Date: Tue Mar 21 09:05:42 2006
New Revision: 11971
Modified:
trunk/languages/APL/t/simple.t
Log:
[APL]
~ Skip tests if we don't have unicode (fixed)
Modified: trunk/languages/APL/t/simple.t
==============================================================================
--- trunk/languages/APL/t/simple.t (original)
+++ trunk/languages/APL/t/simple.t Tue Mar 21 09:05:42 2006
@@ -3,11 +3,14 @@
use strict;
use lib qw(t . lib ../lib ../../lib ../../../lib);
use Parrot::Config;
-use Parrot::Test tests => 7;
+use Parrot::Test;
use Test::More;
# APL really needs unicode to function
-plan skip_all => "No unicode library available." unless $PConfig{has_icu};
+$PConfig{has_icu}
+ ? plan tests => 7
+ : plan skip_all => "No unicode library available.";
+
TODO: {
local $TODO = "no unicode input files yet.";
