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

Author: pmichaud
Date: Wed Dec  3 06:14:42 2008
New Revision: 33456

Modified:
   trunk/t/op/cmp-nonbranch.t

Log:
[core]:  Add tests for trac #11.


Modified: trunk/t/op/cmp-nonbranch.t
==============================================================================
--- trunk/t/op/cmp-nonbranch.t	(original)
+++ trunk/t/op/cmp-nonbranch.t	Wed Dec  3 06:14:42 2008
@@ -17,7 +17,7 @@
 =cut
 
 
-.const int TESTS = 88
+.const int TESTS = 90
 
 .macro EXP()
   exp_nok:
@@ -61,6 +61,7 @@
     'iseq'()
     'isne'()
     'cmp'()
+    'trac#11'()
 .end
 
 
@@ -1185,6 +1186,21 @@
     is(exp, res, desc)
 .end
 
+
+.sub 'trac#11'
+    $P0 = new 'String'
+    assign $P0, 'foo'
+
+    null $P1
+    $I0 = issame $P0, $P1
+    is($I0, 0, 'issame String,Null')
+
+    $P1 = split ' ', 'parrot speaks your language'
+    $I0 = issame $P0, $P1
+    is($I0, 0, 'issame String,ResizableStringArray')
+.end
+
+
 # Local Variables:
 #   mode: pir
 #   fill-column: 100

• [svn:parrot] r33456 - trunk/t/op by pmichaud