[svn:parrot] r9887 - trunk/t/op

[leo]

Author: leo
Date: Thu Nov 10 09:36:31 2005
New Revision: 9887

Modified:
   trunk/t/op/string_cs.t
Log:
skip tests that need  icu

Modified: trunk/t/op/string_cs.t
==============================================================================
--- trunk/t/op/string_cs.t      (original)
+++ trunk/t/op/string_cs.t      Thu Nov 10 09:36:31 2005
@@ -17,6 +17,7 @@ Tests charset support.
 =cut
 
 use Parrot::Test tests => 41;
+use Parrot::Config;
 use Test::More;
 
 output_is( <<'CODE', <<OUTPUT, "basic syntax" );
@@ -505,6 +506,8 @@ abcdefg
 abcdefg
 OUTPUT
 
+SKIP: {
+  skip('no ICU lib', 10) unless $PConfig{has_icu};
 output_is( <<'CODE', <<"OUTPUT", "unicode downcase");
     set S0, iso-8859-1:"T�TSCH"
     find_charset I0, "unicode"
@@ -687,3 +690,5 @@ CODE
 1
 6
 OUTPUT
+
+}  # SKIP