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

[nwellnhof at svn.parrot.org]

Author: nwellnhof
Date: Fri Oct 29 02:53:51 2010
New Revision: 49726
URL: https://trac.parrot.org/parrot/changeset/49726

Log:
[t] More string tests

Modified:
   trunk/t/op/string_cs.t

Modified: trunk/t/op/string_cs.t
==============================================================================
--- trunk/t/op/string_cs.t	Fri Oct 29 02:53:32 2010	(r49725)
+++ trunk/t/op/string_cs.t	Fri Oct 29 02:53:51 2010	(r49726)
@@ -896,22 +896,47 @@
     $S0 = iso-8859-1:"a\xFCb 1"
     $S1 = utf8:"a\xFCb 2"
     $I0 = islt $S0, $S1
-    say $I0
+    print $I0
     $I0 = isgt $S1, $S0
-    say $I0
+    print $I0
 
     $S0 = utf8:"a\uBABEb c\uBEEFd 1"
     $S1 = ucs2:"a\uBABEb c\uBEEFd 2"
     $I0 = islt $S0, $S1
-    say $I0
+    print $I0
     $I0 = isgt $S1, $S0
-    say $I0
+    print $I0
+
+    $S0 = utf8:"a\uBABEb c\uBEEFd 1"
+    $S1 = ucs2:"a\uBABEb c\uBEEFd 11"
+    $I0 = islt $S0, $S1
+    print $I0
+    $I0 = isgt $S1, $S0
+    print $I0
+
+    $S0 = utf8:""
+    $S1 = ucs2:"a\uBABEb"
+    $I0 = islt $S0, $S1
+    print $I0
+    $I0 = isgt $S1, $S0
+    print $I0
+
+    $S0 = utf8:"a\uBABEb c\uBEEFd"
+    $S1 = ucs2:"a\uBABEb c\uBEEFd"
+    $I0 = isle $S0, $S1
+    print $I0
+    $I0 = isge $S1, $S0
+    print $I0
+
+    $S0 = utf8:""
+    $S1 = ucs2:""
+    $I0 = iseq $S0, $S1
+    print $I0
+
+    print "\n"
 .end
 CODE
-1
-1
-1
-1
+11111111111
 OUTPUT
 
 # Local Variables: