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
