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");