Author: jkeenan
Date: Sun Oct 28 12:03:50 2007
New Revision: 22569
Modified:
branches/autogcc/t/configure/111-auto_gcc-01.t
branches/autogcc/t/configure/111-auto_gcc-08.t
branches/autogcc/t/configure/111-auto_gcc-10.t
Log:
Specify exact number of tests in plan.
Modified: branches/autogcc/t/configure/111-auto_gcc-01.t
==============================================================================
--- branches/autogcc/t/configure/111-auto_gcc-01.t (original)
+++ branches/autogcc/t/configure/111-auto_gcc-01.t Sun Oct 28 12:03:50 2007
@@ -5,7 +5,7 @@
use strict;
use warnings;
-use Test::More qw(no_plan); # tests => 11;
+use Test::More tests => 12;
use Carp;
use lib qw( lib t/configure/testlib );
use_ok('config::init::defaults');
Modified: branches/autogcc/t/configure/111-auto_gcc-08.t
==============================================================================
--- branches/autogcc/t/configure/111-auto_gcc-08.t (original)
+++ branches/autogcc/t/configure/111-auto_gcc-08.t Sun Oct 28 12:03:50 2007
@@ -5,7 +5,7 @@
use strict;
use warnings;
-use Test::More qw(no_plan); # tests => 16;
+use Test::More tests => 15;
use Carp;
use lib qw( lib t/configure/testlib );
use_ok('config::init::defaults');
Modified: branches/autogcc/t/configure/111-auto_gcc-10.t
==============================================================================
--- branches/autogcc/t/configure/111-auto_gcc-10.t (original)
+++ branches/autogcc/t/configure/111-auto_gcc-10.t Sun Oct 28 12:03:50 2007
@@ -5,7 +5,7 @@
use strict;
use warnings;
-use Test::More qw(no_plan); # tests => 15;
+use Test::More tests => 14;
use Carp;
use lib qw( lib t/configure/testlib );
use_ok('config::init::defaults');
@@ -16,7 +16,6 @@
#use Parrot::IO::Capture::Mini;
my $args = process_options( {
-# argv => [ q{--verbose} ],
argv => [ ],
mode => q{configure},
} );
@@ -39,20 +38,13 @@
isa_ok($step, $step_name);
ok($step->description(), "$step_name has description");
-#{
-# my $tie_out = tie *STDOUT, "Parrot::IO::Capture::Mini"
-# or croak "Unable to tie";
- my $gnucref = {};
- $gnucref->{__GNUC__} = q{abc123};
- ok($step->_evaluate_gcc($conf, $gnucref),
- "_evaluate_gcc() returned true value");
-# my @more_lines = $tie_out->READLINE;
-# ok( @more_lines, "verbose output captured" );
- ok(! defined $conf->data->get( 'gccversion' ),
- "gccversion undef as expected");
- is($step->result(), q{no}, "Got expected result");
-#}
-#untie *STDOUT;
+my $gnucref = {};
+$gnucref->{__GNUC__} = q{abc123};
+ok($step->_evaluate_gcc($conf, $gnucref),
+ "_evaluate_gcc() returned true value");
+ok(! defined $conf->data->get( 'gccversion' ),
+ "gccversion undef as expected");
+is($step->result(), q{no}, "Got expected result");
pass("Keep Devel::Cover happy");
pass("Completed all tests in $0");
