[svn:parrot] r21738 - branches/pdd15oo/t/pdd15oo

[allison]

Author: allison
Date: Mon Oct  1 23:13:10 2007
New Revision: 21738

Modified:
   branches/pdd15oo/t/pdd15oo/objects.t

Log:
[pdd15oo] Fixing assumption that objects will return an empty string for vtable 
get_string.


Modified: branches/pdd15oo/t/pdd15oo/objects.t
==============================================================================
--- branches/pdd15oo/t/pdd15oo/objects.t        (original)
+++ branches/pdd15oo/t/pdd15oo/objects.t        Mon Oct  1 23:13:10 2007
@@ -242,27 +242,27 @@
 pasm_output_is( <<'CODE', <<'OUTPUT', "new object - classname" );
     newclass P1, "Foo"
     new P2, P1
-    set S0, P1 # class
+    set S0, P1    # class
     print S0
     print "\n"
-    set S0, P2 # object
+    typeof S0, P2 # object
     print S0
     print "\n"
 
     class P3, P1
-    set S0, P1 # class
+    set S0, P1    # class
     print S0
     print "\n"
     class P3, P1
-    set S0, P2 # object
+    typeof S0, P2 # object
     print S0
     print "\n"
     end
 CODE
 Foo
-
 Foo
-
+Foo
+Foo
 OUTPUT
 
 pasm_output_is( <<'CODE', <<'OUTPUT', "isa subclass" );