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

[bacek at svn.parrot.org]

Author: bacek
Date: Sat Jun 13 22:43:41 2009
New Revision: 39539
URL: https://trac.parrot.org/parrot/changeset/39539

Log:
[t][cage] Skip unicode tests when no ICU available. Util++, chromatic++, bacek--.

Modified:
   trunk/t/op/stringu.t

Modified: trunk/t/op/stringu.t
==============================================================================
--- trunk/t/op/stringu.t	Sat Jun 13 22:43:12 2009	(r39538)
+++ trunk/t/op/stringu.t	Sat Jun 13 22:43:41 2009	(r39539)
@@ -502,7 +502,9 @@
 OUTPUT
 
 
-pir_output_is( <<'CODE', <<'OUT', 'numification of unicode strings' );
+SKIP: {
+    skip( 'no ICU lib', 3 ) unless $PConfig{has_icu};
+pir_output_is( <<'CODE', <<'OUT', 'numification of unicode strings to int' );
 .sub main :main
      $S0 = "140"
      $I0 = $S0
@@ -517,7 +519,7 @@
 140
 OUT
 
-pir_output_is( <<'CODE', <<'OUT', 'numification of unicode strings' );
+pir_output_is( <<'CODE', <<'OUT', 'numification of unicode strings to float' );
 .sub main :main
      $S0 = "140"
      $N0 = $S0
@@ -532,7 +534,7 @@
 140
 OUT
 
-pir_output_is( <<'CODE', <<'OUT', 'numification of unicode strings' );
+pir_output_is( <<'CODE', <<'OUT', 'numification of unicode strings float mixed' );
 .sub main :main
     $S0 = unicode:"140 r\x{e9}sum\x{e9}s"
     $N0 = $S0
@@ -546,7 +548,7 @@
 140
 140
 OUT
-
+}
 
 
 # Local Variables: