[svn:parrot] r21703 - in branches/pdd15oo: runtime/parrot/library/Data/Dumper t/pdd15oo

[chromatic]

Author: chromatic
Date: Sun Sep 30 21:20:20 2007
New Revision: 21703

Modified:
   branches/pdd15oo/runtime/parrot/library/Data/Dumper/Default.pir
   branches/pdd15oo/t/pdd15oo/dumper.t

Log:
[Data::Dumper] Make one more Data::Dumper test pass thanks to fix for Object
definedness.


Modified: branches/pdd15oo/runtime/parrot/library/Data/Dumper/Default.pir
==============================================================================
--- branches/pdd15oo/runtime/parrot/library/Data/Dumper/Default.pir     
(original)
+++ branches/pdd15oo/runtime/parrot/library/Data/Dumper/Default.pir     Sun Sep 
30 21:20:20 2007
@@ -206,7 +206,6 @@
     print "{ ... }"
     branch END
 CAN_DUMP:
-print "Dumping\n"
     dump."__dump"( self, name )
 END:
     .return ( 1 )

Modified: branches/pdd15oo/t/pdd15oo/dumper.t
==============================================================================
--- branches/pdd15oo/t/pdd15oo/dumper.t (original)
+++ branches/pdd15oo/t/pdd15oo/dumper.t Sun Sep 30 21:20:20 2007
@@ -518,9 +518,9 @@
 
     load_bytecode "dumper.pbc"
 
-    temp = newclass "TestClass"
-
+    temp  = newclass "TestClass"
     array = new 'ResizablePMCArray'
+
     o = temp.'new'()
     push array, o
     o = temp.'new'()
@@ -546,7 +546,7 @@
 
     print subindent
     print "_"
-    name = self
+    name = typeof self
     print name
     print "::__dump\n"
 
@@ -559,11 +559,11 @@
 .end
 CODE
 "VAR1" => ResizablePMCArray (size:2) [
-    PMC 'Object' {
+    PMC 'TestClass' {
         this is
         _TestClass::__dump
     },
-    PMC 'Object' {
+    PMC 'TestClass' {
         this is
         _TestClass::__dump
     }