Author: jkeenan
Date: Sat Feb 16 10:40:51 2008
New Revision: 25769
Added:
branches/tcif/t/configure/064-parallel.t
- copied, changed from r25759, /branches/tcif/t/configure/063-parallel.t
Modified:
branches/tcif/MANIFEST
branches/tcif/t/steps/init_manifest-01.t
Log:
Add 064-parallel.t to provide additional coverage of Parallel::Trace.
Eliminate commented-out code from init_manifest-01.t.
Modified: branches/tcif/MANIFEST
==============================================================================
--- branches/tcif/MANIFEST (original)
+++ branches/tcif/MANIFEST Sat Feb 16 10:40:51 2008
@@ -1,7 +1,7 @@
# ex: set ro:
# $Id$
#
-# generated by tools/dev/mk_manifest_and_skip.pl Sat Feb 16 14:36:14 2008 UT
+# generated by tools/dev/mk_manifest_and_skip.pl Sat Feb 16 18:11:46 2008 UT
#
# See tools/dev/install_files.pl for documentation on the
# format of this file.
@@ -3073,6 +3073,7 @@
t/configure/061-parallel.t []
t/configure/062-parallel.t []
t/configure/063-parallel.t []
+t/configure/064-parallel.t []
t/configure/testlib/Make_VERSION_File.pm []
t/configure/testlib/Tie/Filehandle/Preempt/Stdin.pm []
t/configure/testlib/init/alpha.pm []
Copied: branches/tcif/t/configure/064-parallel.t (from r25759,
/branches/tcif/t/configure/063-parallel.t)
==============================================================================
--- /branches/tcif/t/configure/063-parallel.t (original)
+++ branches/tcif/t/configure/064-parallel.t Sat Feb 16 10:40:51 2008
@@ -1,12 +1,12 @@
#! perl
# Copyright (C) 2008, The Perl Foundation.
# $Id$
-# 063-parallel.t
+# 064-parallel.t
use strict;
use warnings;
-use Test::More tests => 8;
+use Test::More tests => 10;
use Carp;
use Cwd;
use File::Temp qw| tempdir |;
@@ -35,15 +35,24 @@
is($trace->store_this_step_pure(), 1,
"Got expected return value from store_this_step_pure()");
- my $sto = $trace->get_storable_file();
- ok( -e $sto,
- "Parallel configuration file stored on disk");
+ my $state;
+ $state = $trace->get_previous_state();
+ ok(! defined $state,
+ "No previous config step, hence state is undef");
+
$trace = Parrot::Configure::Parallel::Trace->new(
't/steps/init_install-01.t'
);
ok(defined $trace, "Constructor returned defined value");
is($trace->store_this_step_pure(), 1,
"Got expected return value from store_this_step_pure()");
+ $state = $trace->get_previous_state();
+ ok(defined $state,
+ "There was a previous config step, hence state is now defined");
+
+ $state = $trace->get_previous_state( [ {}, {} ] );
+ ok(! defined $state,
+ "Arguments don't include state, hence state is undef");
ok( (chdir $cwd), "Able to change back to starting directory");
}
@@ -54,11 +63,11 @@
=head1 NAME
-063-parallel.t - Tests for Parrot::Configure::Parallel::Trace
+064-parallel.t - Tests for Parrot::Configure::Parallel::Trace
=head1 SYNOPSIS
- % prove t/configure/063-parallel.t
+ % prove t/configure/064-parallel.t
=head1 DESCRIPTION
Modified: branches/tcif/t/steps/init_manifest-01.t
==============================================================================
--- branches/tcif/t/steps/init_manifest-01.t (original)
+++ branches/tcif/t/steps/init_manifest-01.t Sat Feb 16 10:40:51 2008
@@ -13,11 +13,6 @@
use Parrot::Configure;
use Parrot::Configure::Options qw( process_options );
-=for hints_for_testing See if you can get the program to 'ack' when it
-thinks there are files missing from those listed in the MANIFEST.
-
-=cut
-
my $pkg = q{init::manifest};
my $args = process_options(
{
