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 ###################
