develooper Front page | perl.cvs.parrot | Postings from January 2009

[svn:parrot] r35984 - trunk/t/tools/pmc2cutils

From:
cotto
Date:
January 24, 2009 23:31
Subject:
[svn:parrot] r35984 - trunk/t/tools/pmc2cutils
Message ID:
20090125073115.67642CB9AE@x12.develooper.com
Author: cotto
Date: Sat Jan 24 23:31:14 2009
New Revision: 35984

Modified:
   trunk/t/tools/pmc2cutils/05-gen_c.t

Log:
[t] fix the remaining failing tests caused by implementing ATTR inheritance
This closes TT #219.


Modified: trunk/t/tools/pmc2cutils/05-gen_c.t
==============================================================================
--- trunk/t/tools/pmc2cutils/05-gen_c.t	(original)
+++ trunk/t/tools/pmc2cutils/05-gen_c.t	Sat Jan 24 23:31:14 2009
@@ -114,6 +114,15 @@
     $dump_file = $self->dump_vtable("$main::topdir/src/vtable.tbl");
     ok( -e $dump_file, "dump_vtable created vtable.dump" );
 
+    #create a dump for default.pmc
+    Parrot::Pmc2c::Pmc2cMain->new(
+        {
+            include => \@include, 
+            opt=>\%opt,
+            args=>[qq{$temppmcdir/default.pmc}],
+            bin=>$Bin
+        }
+    )->dump_pmc();
     ok( $self->dump_pmc(),               "dump_pmc succeeded" );
     ok( -f qq{$temppmcdir/default.dump}, "default.dump created as expected" );
     ok( -f qq{$temppmcdir/array.dump},   "array.dump created as expected" );
@@ -208,6 +217,19 @@
     $dump_file = $self->dump_vtable("$main::topdir/src/vtable.tbl");
     ok( -e $dump_file, "dump_vtable created vtable.dump" );
 
+
+    #create dumps for dependencies of boolean
+    for my $pmc ( qq{$temppmcdir/default.pmc},  qq{$temppmcdir/class.pmc} ) {
+        Parrot::Pmc2c::Pmc2cMain->new(
+            {
+                include => \@include, 
+                opt=>\%opt,
+                args=>[$pmc],
+                bin=>$Bin
+            }
+        )->dump_pmc();
+    }
+
     ok( $self->dump_pmc(),               "dump_pmc succeeded" );
     ok( -f qq{$temppmcdir/default.dump}, "default.dump created as expected" );
     ok( -f qq{$temppmcdir/class.dump},   "class.dump created as expected" );



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About