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" );
-
[svn:parrot] r35984 - trunk/t/tools/pmc2cutils
by cotto