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



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About