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

[svn:parrot] r36000 - in trunk: config/auto t/steps

From:
jkeenan
Date:
January 25, 2009 10:10
Subject:
[svn:parrot] r36000 - in trunk: config/auto t/steps
Message ID:
20090125181046.38A96CB9AE@x12.develooper.com
Author: jkeenan
Date: Sun Jan 25 10:10:45 2009
New Revision: 36000

Modified:
   trunk/config/auto/pmc.pm
   trunk/t/steps/auto_pmc-01.t

Log:
Per discussion in https://trac.parrot.org/parrot/ticket/223, in
config/auto/pmc.pm eliminate test
for PMC files with names beginning 'const' -- we don't have them any more --
and eliminate tests in auto_pmc-01.t testing for such files.


Modified: trunk/config/auto/pmc.pm
==============================================================================
--- trunk/config/auto/pmc.pm	(original)
+++ trunk/config/auto/pmc.pm	Sun Jan 25 10:10:45 2009
@@ -75,7 +75,6 @@
 
     for my $pmc ( split( /\s+/, $pmc_list ) ) {
         $pmc =~ s/\.pmc$//;
-        next if $pmc =~ /^const/;
 
         # make each pmc depend upon its parent.
         my $parent_dumps = '';
@@ -124,7 +123,6 @@
     my %parents;
 
 PMC: for my $pmc_file ( split( /\s+/, $pmc_list ) ) {
-        next if $pmc_file =~ /^const/;
 
         open my $PMC, "<", "src/pmc/$pmc_file"
             or die "open src/pmc/$pmc_file: $!";

Modified: trunk/t/steps/auto_pmc-01.t
==============================================================================
--- trunk/t/steps/auto_pmc-01.t	(original)
+++ trunk/t/steps/auto_pmc-01.t	Sun Jan 25 10:10:45 2009
@@ -5,7 +5,7 @@
 
 use strict;
 use warnings;
-use Test::More tests =>  36;
+use Test::More tests =>  32;
 use Carp;
 use Cwd;
 use File::Path qw| mkpath |;
@@ -226,91 +226,6 @@
 $ret = $step->runstep($conf);
 ok( $ret, "runstep() returned true value" );
 
-$conf->replenish($serialized);
-
-########## --pmc ##########
-
-@dummy_options = qw(
-    default.pmc
-    null.pmc
-    env.pmc
-    key.pmc
-    random.pmc
-    unmanagedstruct.pmc
-    managedstruct.pmc
-    constexception.pmc
-    parrotlibrary.pmc
-    parrotinterpreter.pmc
-    parrotthread.pmc
-    lexpad.pmc
-    timer.pmc
-    pointer.pmc
-    sub.pmc
-    continuation.pmc
-    retcontinuation.pmc
-    exceptionhandler.pmc
-    coroutine.pmc
-    eval.pmc
-    nci.pmc
-    float.pmc
-    integer.pmc
-    bigint.pmc
-    complex.pmc
-    string.pmc
-    boolean.pmc
-    ref.pmc
-    sharedref.pmc
-    array.pmc
-    fixedintegerarray.pmc
-    iterator.pmc
-    fixedstringarray.pmc
-    hash.pmc
-    orderedhash.pmc
-    tqueue.pmc
-    os.pmc
-    file.pmc
-    addrregistry.pmc
-    bound_nci.pmc
-    capture.pmc
-    class.pmc
-    codestring.pmc
-    exporter.pmc
-    fixedbooleanarray.pmc
-    fixedfloatarray.pmc
-    fixedpmcarray.pmc
-    lexinfo.pmc
-    multisub.pmc
-    namespace.pmc
-    object.pmc
-    parrotrunningthread.pmc
-    pccmethod_test.pmc
-    pmcproxy.pmc
-    resizablebooleanarray.pmc
-    resizablefloatarray.pmc
-    resizableintegerarray.pmc
-    resizablepmcarray.pmc
-    resizablestringarray.pmc
-    role.pmc
-    scalar.pmc
-    scheduler.pmc
-    slice.pmc
-    task.pmc
-    undef.pmc
-);
-$dummy_options = join q{ } => @dummy_options;
-
-($args, $step_list_ref) = process_options(
-    {
-        argv => [ qq{--pmc=$dummy_options} ],
-        mode => q{configure},
-    }
-);
-
-$conf->options->set( %{$args} );
-$step = test_step_constructor_and_description($conf);
-$ret = $step->runstep($conf);
-ok( $ret, "runstep() returned true value" );
-
 pass("Completed all tests in $0");
 
 ################### DOCUMENTATION ###################



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