Author: jkeenan Date: Sat Feb 16 06:41:05 2008 New Revision: 25759 Added: branches/tcif/t/configure/063-parallel.t - copied, changed from r25754, /branches/tcif/t/configure/062-parallel.t Modified: branches/tcif/t/configure/062-parallel.t
Log: Add a third test file to test Parrot::Configure::Parallel::Trace to test case where two different configuration steps are tested. Modified: branches/tcif/t/configure/062-parallel.t ============================================================================== --- branches/tcif/t/configure/062-parallel.t (original) +++ branches/tcif/t/configure/062-parallel.t Sat Feb 16 06:41:05 2008 @@ -6,7 +6,7 @@ use strict; use warnings; -use Test::More qw(no_plan); # tests => 11; +use Test::More tests => 8; use Carp; use Cwd; use File::Temp qw| tempdir |; @@ -14,7 +14,6 @@ use IO::CaptureOutput qw | capture |; use Parrot::Configure::Parallel::Trace; use config::init::defaults; -use config::init::install; my $trace; Copied: branches/tcif/t/configure/063-parallel.t (from r25754, /branches/tcif/t/configure/062-parallel.t) ============================================================================== --- /branches/tcif/t/configure/062-parallel.t (original) +++ branches/tcif/t/configure/063-parallel.t Sat Feb 16 06:41:05 2008 @@ -1,12 +1,12 @@ #! perl # Copyright (C) 2008, The Perl Foundation. # $Id$ -# 062-parallel.t +# 063-parallel.t use strict; use warnings; -use Test::More qw(no_plan); # tests => 11; +use Test::More tests => 8; use Carp; use Cwd; use File::Temp qw| tempdir |; @@ -39,10 +39,10 @@ ok( -e $sto, "Parallel configuration file stored on disk"); $trace = Parrot::Configure::Parallel::Trace->new( - 't/steps/init_defaults-02.t' + 't/steps/init_install-01.t' ); ok(defined $trace, "Constructor returned defined value"); - is($trace->store_this_step_pure(), 2, + is($trace->store_this_step_pure(), 1, "Got expected return value from store_this_step_pure()"); ok( (chdir $cwd), "Able to change back to starting directory"); @@ -54,11 +54,11 @@ =head1 NAME -062-parallel.t - Tests for Parrot::Configure::Parallel::Trace +063-parallel.t - Tests for Parrot::Configure::Parallel::Trace =head1 SYNOPSIS - % prove t/configure/062-parallel.t + % prove t/configure/063-parallel.t =head1 DESCRIPTION