Author: rurban Date: Wed Jan 28 11:57:13 2009 New Revision: 36109 Modified: trunk/t/steps/auto_gcc-01.t
Log: Adapt gcc test to http://www.parrotvm.org/svn/parrot/revision?rev=36108 - no verbose output - check /^yes/ Modified: trunk/t/steps/auto_gcc-01.t ============================================================================== --- trunk/t/steps/auto_gcc-01.t (original) +++ trunk/t/steps/auto_gcc-01.t Wed Jan 28 11:57:13 2009 @@ -160,12 +160,12 @@ $gnucref->{__GNUC_MINOR__} = q{abc}; capture ( sub {$rv = $step->_evaluate_gcc($conf, $gnucref) }, \$stdout); ok($rv, "_evaluate_gcc() returned true value"); - ok( $stdout, "verbose output captured" ); + ok( !$stdout, "verbose output captured" ); ok(defined $conf->data->get( 'gccversion' ), "gccversion defined as expected"); is($conf->data->get( 'gccversion' ), 123, "Got expected value for gccversion"); - is($step->result(), q{yes}, "Got expected result"); + like($step->result(), qr/^yes/, "Got expected result"); } $conf->replenish($serialized); @@ -192,7 +192,7 @@ "gccversion defined as expected"); is($conf->data->get( 'gccversion' ), q{123.456}, "Got expected value for gccversion"); - is($step->result(), q{yes}, "Got expected result"); + like($step->result(), qr/^yes/, "Got expected result"); } $conf->replenish($serialized); @@ -215,12 +215,12 @@ $gnucref->{__GNUC_MINOR__} = q{456}; capture ( sub {$rv = $step->_evaluate_gcc($conf, $gnucref) }, \$stdout); ok($rv, "_evaluate_gcc() returned true value"); - ok( $stdout, "verbose output captured" ); + ok( !$stdout, "verbose output captured" ); ok(defined $conf->data->get( 'gccversion' ), "gccversion defined as expected"); is($conf->data->get( 'gccversion' ), q{123.456}, "Got expected value for gccversion"); - is($step->result(), q{yes}, "Got expected result"); + like($step->result(), qr/^yes/, "Got expected result"); } $conf->replenish($serialized); @@ -263,7 +263,7 @@ "_evaluate_gcc() returned true value"); ok(defined $conf->data->get( 'gccversion' ), "gccversion defined as expected"); -is($step->result(), q{yes}, "Got expected result"); +like($step->result(), qr/^yes/, "Got expected result"); $conf->replenish($serialized); @@ -290,7 +290,7 @@ "Got expected value for gccversion"); is($conf->data->get( 'HAS_aligned_funcptr' ), 0, "Got expected value for HAS_aligned_funcptr"); - is($step->result(), q{yes}, "Got expected result"); + like($step->result(), qr/^yes/, "Got expected result"); } pass("Completed all tests in $0");