Front page | perl.cvs.parrot |
Postings from January 2009
[svn:parrot] r36109 - trunk/t/steps
From:
rurban
Date:
January 28, 2009 11:57
Subject:
[svn:parrot] r36109 - trunk/t/steps
Message ID:
20090128195713.9D3AECB9AE@x12.develooper.com
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");
-
[svn:parrot] r36109 - trunk/t/steps
by rurban