[svn:parrot] r48683 - trunk/t/oo

[cotto at svn.parrot.org]

Author: cotto
Date: Fri Aug 27 04:04:00 2010
New Revision: 48683
URL: https://trac.parrot.org/parrot/changeset/48683

Log:
add a test for TT #809 to ensure that isa works with an rsa

Modified:
   trunk/t/oo/isa.t

Modified: trunk/t/oo/isa.t
==============================================================================
--- trunk/t/oo/isa.t	Fri Aug 27 00:28:37 2010	(r48682)
+++ trunk/t/oo/isa.t	Fri Aug 27 04:04:00 2010	(r48683)
@@ -20,7 +20,7 @@
 .sub main :main
     .include 'test_more.pir'
 
-    plan(29)
+    plan(30)
 
     isa_by_string_name()
     isa_by_class_object()
@@ -28,6 +28,7 @@
     subclass_isa_by_class_object()
     string_isa_and_pmc_isa_have_same_result()
     string_register_and_string_pmc_isa_have_same_result()
+    isa_accepts_rsa()
 .end
 
 
@@ -181,6 +182,14 @@
     ok( $I0, '... and false when it is not' )
 .end
 
+.sub isa_accepts_rsa
+    $P0 = newclass ['Foo';'Buz']
+    $P1 = new $P0
+    $P0 = split "::", "Foo::Buz"
+    $I0 = isa $P1, $P0
+    ok($I0, "isa accepts a ResizablePMCArray")
+ .end
+
 .HLL 'foo'
 .namespace ['XYZ']