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

jkeenan at svn.parrot.org jkeenan at svn.parrot.org
Fri Feb 5 02:26:45 UTC 2010


Author: jkeenan
Date: Fri Feb  5 02:26:43 2010
New Revision: 43720
URL: https://trac.parrot.org/parrot/changeset/43720

Log:
Use resizablepmcarray.pmc instead of the now departed array.pmc.

Modified:
   trunk/t/tools/pmc2cutils/02-find_file.t
   trunk/t/tools/pmc2cutils/04-dump_pmc.t
   trunk/t/tools/pmc2cutils/05-gen_c.t

Modified: trunk/t/tools/pmc2cutils/02-find_file.t
==============================================================================
--- trunk/t/tools/pmc2cutils/02-find_file.t	Thu Feb  4 23:31:50 2010	(r43719)
+++ trunk/t/tools/pmc2cutils/02-find_file.t	Fri Feb  5 02:26:43 2010	(r43720)
@@ -37,7 +37,7 @@
 );
 
 my ( $file, $path );
-$file = q{array.pmc};
+$file = q{resizablepmcarray.pmc};
 
 $path = $self->find_file($file);
 ok( -f $path, "$file found" );

Modified: trunk/t/tools/pmc2cutils/04-dump_pmc.t
==============================================================================
--- trunk/t/tools/pmc2cutils/04-dump_pmc.t	Thu Feb  4 23:31:50 2010	(r43719)
+++ trunk/t/tools/pmc2cutils/04-dump_pmc.t	Fri Feb  5 02:26:43 2010	(r43720)
@@ -84,7 +84,7 @@
     my $temppmcdir = qq{$tdir/src/pmc};
     ok( ( mkdir $temppmcdir ), "created src/pmc/ under tempdir" );
 
-    my @pmcfiles = ( "$main::topdir/src/pmc/default.pmc", "$main::topdir/src/pmc/array.pmc", );
+    my @pmcfiles = ( "$main::topdir/src/pmc/default.pmc", "$main::topdir/src/pmc/resizablepmcarray.pmc", );
     my $pmcfilecount = scalar(@pmcfiles);
     my $copycount;
     foreach my $pmcfile (@pmcfiles) {
@@ -95,7 +95,7 @@
     is( $copycount, $pmcfilecount, "all src/pmc/*.pmc files copied to tempdir" );
     my @include = ( $tdir, $temppmcdir, @include_orig );
 
-    @args = ( qq{$temppmcdir/default.pmc}, qq{$temppmcdir/array.pmc}, );
+    @args = ( qq{$temppmcdir/default.pmc}, qq{$temppmcdir/resizablepmcarray.pmc}, );
     $self = Parrot::Pmc2c::Pmc2cMain->new(
         {
             include => \@include,
@@ -120,7 +120,7 @@
 
     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" );
+    ok( -f qq{$temppmcdir/resizablepmcarray.dump},   "resizablepmcarray.dump created as expected" );
 
     ok( chdir $cwd, "changed back to original directory" );
 }
@@ -136,7 +136,7 @@
     my $temppmcdir = qq{$tdir/src/pmc};
     ok( ( mkdir $temppmcdir ), "created src/pmc/ under tempdir" );
 
-    my @pmcfiles = ( "$main::topdir/src/pmc/default.pmc", "$main::topdir/src/pmc/array.pmc", );
+    my @pmcfiles = ( "$main::topdir/src/pmc/default.pmc", "$main::topdir/src/pmc/resizablepmcarray.pmc", );
     my $pmcfilecount = scalar(@pmcfiles);
     my $copycount;
     foreach my $pmcfile (@pmcfiles) {
@@ -163,7 +163,7 @@
     ok( $self->dump_pmc(), "dump_pmc succeeded" );
     ok( -f qq{$temppmcdir/default.dump}, "default.dump created as expected" );
 
-    @args = (qq{$temppmcdir/array.pmc});
+    @args = (qq{$temppmcdir/resizablepmcarray.pmc});
     $self = Parrot::Pmc2c::Pmc2cMain->new(
         {
             include => \@include,
@@ -174,7 +174,7 @@
     );
     isa_ok( $self, q{Parrot::Pmc2c::Pmc2cMain} );
     ok( $self->dump_pmc(), "dump_pmc succeeded" );
-    ok( -f qq{$temppmcdir/array.dump}, "array.dump created as expected" );
+    ok( -f qq{$temppmcdir/resizablepmcarray.dump}, "resizablepmcarray.dump created as expected" );
 
     ok( chdir $cwd, "changed back to original directory" );
 }
@@ -349,7 +349,7 @@
     my $temppmcdir = qq{$tdir/src/pmc};
     ok( ( mkdir $temppmcdir ), "created src/pmc/ under tempdir" );
 
-    my @pmcfiles = ( "$main::topdir/src/pmc/default.pmc", "$main::topdir/src/pmc/array.pmc", );
+    my @pmcfiles = ( "$main::topdir/src/pmc/default.pmc", "$main::topdir/src/pmc/resizablepmcarray.pmc", );
     my $pmcfilecount = scalar(@pmcfiles);
     my $copycount;
     foreach my $pmcfile (@pmcfiles) {
@@ -385,7 +385,7 @@
 
     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" );
+    ok( -f qq{$temppmcdir/resizablepmcarray.dump},   "resizablepmcarray.dump created as expected" );
 
     ok( chdir $cwd, "changed back to original directory" );
 }
@@ -399,7 +399,7 @@
     my $temppmcdir = qq{$tdir/src/pmc};
     ok( ( mkdir $temppmcdir ), "created src/pmc/ under tempdir" );
 
-    my @pmcfiles = ( "$main::topdir/src/pmc/default.pmc", "$main::topdir/src/pmc/array.pmc", );
+    my @pmcfiles = ( "$main::topdir/src/pmc/default.pmc", "$main::topdir/src/pmc/resizablepmcarray.pmc", );
     my $pmcfilecount = scalar(@pmcfiles);
     my $copycount;
     foreach my $pmcfile (@pmcfiles) {
@@ -443,7 +443,7 @@
     my $temppmcdir = qq{$tdir/src/pmc};
     ok( ( mkdir $temppmcdir ), "created src/pmc/ under tempdir" );
 
-    my @pmcfiles = ( "$main::topdir/src/pmc/default.pmc", "$main::topdir/src/pmc/array.pmc", );
+    my @pmcfiles = ( "$main::topdir/src/pmc/default.pmc", "$main::topdir/src/pmc/resizablepmcarray.pmc", );
     my $pmcfilecount = scalar(@pmcfiles);
     my $copycount;
     foreach my $pmcfile (@pmcfiles) {
@@ -454,7 +454,7 @@
     is( $copycount, $pmcfilecount, "all src/pmc/*.pmc files copied to tempdir" );
     my @include = ( $tdir, $temppmcdir, @include_orig );
 
-    @args = ( qq{$temppmcdir/default.pmc}, qq{$temppmcdir/array.pmc}, );
+    @args = ( qq{$temppmcdir/default.pmc}, qq{$temppmcdir/resizablepmcarray.pmc}, );
     $self = Parrot::Pmc2c::Pmc2cMain->new(
         {
             include => \@include,
@@ -479,25 +479,25 @@
 
     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" );
+    ok( -f qq{$temppmcdir/resizablepmcarray.dump},   "resizablepmcarray.dump created as expected" );
 
     my @mtimes;
 
     $mtimes[0]{default} = ( stat(qq{$temppmcdir/default.dump}) )[9];
-    $mtimes[0]{array}   = ( stat(qq{$temppmcdir/array.dump}) )[9];
+    $mtimes[0]{array}   = ( stat(qq{$temppmcdir/resizablepmcarray.dump}) )[9];
 
     sleep(2);
     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" );
+    ok( -f qq{$temppmcdir/resizablepmcarray.dump},   "resizablepmcarray.dump created as expected" );
 
     $mtimes[1]{default} = ( stat(qq{$temppmcdir/default.dump}) )[9];
-    $mtimes[1]{array}   = ( stat(qq{$temppmcdir/array.dump}) )[9];
+    $mtimes[1]{array}   = ( stat(qq{$temppmcdir/resizablepmcarray.dump}) )[9];
 
     #    is( $mtimes[0]{default}, $mtimes[1]{default},
     #        "default.dump correctly not overwritten");
     #    isnt( $mtimes[0]{array}, $mtimes[1]{array},
-    #        "array.dump correctly overwritten");
+    #        "resizablepmcarray.dump correctly overwritten");
 
     ok( chdir $cwd, "changed back to original directory" );
 }
@@ -511,7 +511,7 @@
     my $temppmcdir = qq{$tdir/src/pmc};
     ok( ( mkdir $temppmcdir ), "created src/pmc/ under tempdir" );
 
-    my @pmcfiles = ( "$main::topdir/src/pmc/default.pmc", "$main::topdir/src/pmc/array.pmc", );
+    my @pmcfiles = ( "$main::topdir/src/pmc/default.pmc", "$main::topdir/src/pmc/resizablepmcarray.pmc", );
     my $pmcfilecount = scalar(@pmcfiles);
     my $copycount;
     foreach my $pmcfile (@pmcfiles) {
@@ -522,7 +522,7 @@
     is( $copycount, $pmcfilecount, "all src/pmc/*.pmc files copied to tempdir" );
     my @include = ( $tdir, $temppmcdir, @include_orig );
 
-    @args = ( qq{$temppmcdir/array.pmc}, );
+    @args = ( qq{$temppmcdir/resizablepmcarray.pmc}, );
     $self = Parrot::Pmc2c::Pmc2cMain->new(
         {
             include => \@include,
@@ -546,7 +546,7 @@
     )->dump_pmc();
 
     ok( $self->dump_pmc(),               "dump_pmc succeeded" );
-    ok( -f qq{$temppmcdir/array.dump},   "array.dump created as expected" );
+    ok( -f qq{$temppmcdir/resizablepmcarray.dump},   "resizablepmcarray.dump created as expected" );
     ok( -f qq{$temppmcdir/default.dump}, "default.dump created as expected" );
 
     ok( chdir $cwd, "changed back to original directory" );

Modified: trunk/t/tools/pmc2cutils/05-gen_c.t
==============================================================================
--- trunk/t/tools/pmc2cutils/05-gen_c.t	Thu Feb  4 23:31:50 2010	(r43719)
+++ trunk/t/tools/pmc2cutils/05-gen_c.t	Fri Feb  5 02:26:43 2010	(r43720)
@@ -48,7 +48,7 @@
         ok( mkdir($_), "created $_ under tempdir" );
     }
 
-    my @pmcfiles = ( "$main::topdir/src/pmc/default.pmc", "$main::topdir/src/pmc/array.pmc" );
+    my @pmcfiles = ( "$main::topdir/src/pmc/default.pmc", "$main::topdir/src/pmc/resizablepmcarray.pmc" );
     my $pmcfilecount = scalar(@pmcfiles);
     my $copycount;
     foreach my $pmcfile (@pmcfiles) {
@@ -92,7 +92,7 @@
     my $temppmcdir = qq{$tdir/src/pmc};
     ok( ( mkdir $temppmcdir ), "created src/pmc/ under tempdir" );
 
-    my @pmcfiles = ( "$main::topdir/src/pmc/default.pmc", "$main::topdir/src/pmc/array.pmc" );
+    my @pmcfiles = ( "$main::topdir/src/pmc/default.pmc", "$main::topdir/src/pmc/resizablepmcarray.pmc" );
     my $pmcfilecount = scalar(@pmcfiles);
     my $copycount;
     foreach my $pmcfile (@pmcfiles) {
@@ -103,7 +103,7 @@
     is( $copycount, $pmcfilecount, "all src/pmc/*.pmc files copied to tempdir" );
     my @include = ( $tdir, $temppmcdir, @include_orig );
 
-    @args = ( qq{$temppmcdir/default.pmc}, qq{$temppmcdir/array.pmc}, );
+    @args = ( qq{$temppmcdir/default.pmc}, qq{$temppmcdir/resizablepmcarray.pmc}, );
     $self = Parrot::Pmc2c::Pmc2cMain->new(
         {
             include => \@include,
@@ -127,10 +127,10 @@
     )->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" );
+    ok( -f qq{$temppmcdir/resizablepmcarray.dump},   "resizablepmcarray.dump created as expected" );
 
     $rv = $self->gen_c();
-    ok( $rv, "gen_c completed successfully; args:  default.pmc and array.pmc" );
+    ok( $rv, "gen_c completed successfully; args:  default.pmc and resizablepmcarray.pmc" );
 
     ok( chdir $cwd, "changed back to original directory" );
 }
@@ -146,7 +146,7 @@
     my $temppmcdir = qq{$tdir/src/pmc};
     ok( ( mkdir $temppmcdir ), "created src/pmc/ under tempdir" );
 
-    my @pmcfiles = ( "$main::topdir/src/pmc/default.pmc", "$main::topdir/src/pmc/array.pmc" );
+    my @pmcfiles = ( "$main::topdir/src/pmc/default.pmc", "$main::topdir/src/pmc/resizablepmcarray.pmc" );
     my $pmcfilecount = scalar(@pmcfiles);
     my $copycount;
     foreach my $pmcfile (@pmcfiles) {
@@ -157,7 +157,7 @@
     is( $copycount, $pmcfilecount, "src/pmc/*.pmc files copied to tempdir" );
     my @include = ( $tdir, $temppmcdir, @include_orig );
 
-    @args = ( qq{$temppmcdir/default.pmc}, qq{$temppmcdir/array.pmc}, );
+    @args = ( qq{$temppmcdir/default.pmc}, qq{$temppmcdir/resizablepmcarray.pmc}, );
     $self = Parrot::Pmc2c::Pmc2cMain->new(
         {
             include => \@include,


More information about the parrot-commits mailing list