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

[bacek at svn.parrot.org]

Author: bacek
Date: Sat Jun  5 22:08:15 2010
New Revision: 47393
URL: https://trac.parrot.org/parrot/changeset/47393

Log:
Fix test - remove (now) redundant loadlib io_ops.

Modified:
   trunk/t/op/string_cs.t

Modified: trunk/t/op/string_cs.t
==============================================================================
--- trunk/t/op/string_cs.t	Sat Jun  5 22:07:45 2010	(r47392)
+++ trunk/t/op/string_cs.t	Sat Jun  5 22:08:15 2010	(r47393)
@@ -411,7 +411,6 @@
 SKIP: {
     skip( 'no ICU lib', 17 ) unless $PConfig{has_icu};
     pir_output_is( <<'CODE', <<"OUTPUT", "unicode downcase" );
-.loadlib 'io_ops'
 .sub main :main
     set $S0, iso-8859-1:"TÖTSCH"
     find_charset $I0, "unicode"
@@ -623,7 +622,6 @@
 OUTPUT
 
     pir_output_is( <<'CODE', <<"OUTPUT", "unicode upcase" );
-.loadlib 'io_ops'
 .sub main :main
     set $S0, iso-8859-1:"tötsch"
     find_charset $I0, "unicode"
@@ -640,7 +638,6 @@
 OUTPUT
 
     pir_output_is( <<'CODE', <<"OUTPUT", "unicode upcase to combined char" );
-.loadlib 'io_ops'
 .sub main :main
     set $S1, unicode:"hacek j \u01f0"
     upcase $S1, $S1
@@ -671,7 +668,6 @@
     # 0x844fb60:      0x005f  0x005f  0x005f  0x004a  0x030c  0x0031  0x0032  0x0000
 
     pir_output_is( <<'CODE', <<"OUTPUT", "unicode upcase to combined char 3.2 bug?" );
-.loadlib 'io_ops'
 .sub main :main
     set $S1, unicode:"___\u01f0123"
     upcase $S1, $S1
@@ -686,7 +682,6 @@
 OUTPUT
 
     pir_output_is( <<'CODE', <<"OUTPUT", "unicode titlecase" );
-.loadlib 'io_ops'
 .sub main :main
     set $S0, iso-8859-1:"tötsch leo"
     find_charset $I0, "unicode"
@@ -703,7 +698,6 @@
 OUTPUT
 
     pir_output_is( <<'CODE', <<OUTPUT, "combose combined char" );
-.loadlib 'io_ops'
 .sub main :main
     set $S1, unicode:"___\u01f0___"
     length $I0, $S1