Author: jkeenan
Date: Fri Feb 15 19:26:50 2008
New Revision: 25753
Modified:
branches/tcif/t/configure/061-parallel.t
Log:
Delete commented-out code. Specify exact number of tests in plan.
Modified: branches/tcif/t/configure/061-parallel.t
==============================================================================
--- branches/tcif/t/configure/061-parallel.t (original)
+++ branches/tcif/t/configure/061-parallel.t Fri Feb 15 19:26:50 2008
@@ -6,14 +6,11 @@
use strict;
use warnings;
-use Test::More qw(no_plan); # tests => 11;
+use Test::More tests => 13;
use Carp;
use lib qw( lib );
-#use Parrot::Configure;
-#use Parrot::Configure::Options qw( process_options );
use IO::CaptureOutput qw | capture |;
use Parrot::Configure::Parallel::Trace;
-#use Data::Dumper;
my $trace;
@@ -60,9 +57,6 @@
is(scalar( @{$stateref} ), 0,
"No Storable object means retrieve_state() returns ref to empty array");
-#use Data::Dumper;$Data::Dumper::Indent=1;
-#print STDERR Dumper $stateref;
-
my ($stdout, $stderr);
capture(
sub { $trace->dump_state(); },
@@ -70,15 +64,6 @@
);
like($stdout, qr/^\$VAR1.*\[\]/, "Got expected Dumper output");
-#$trace->get_previous_state($step_name);
-#
-#$trace->update_state( {
-# state => $state,
-# conf => $conf,
-#} );
-#
-#$trace->store_this_step_pure($step_name);
-
pass("Completed all tests in $0");
################### DOCUMENTATION ###################
