[svn:parrot] r11918 - trunk/t/benchmark

[bernhard]

Author: bernhard
Date: Fri Mar 17 10:07:07 2006
New Revision: 11918

Modified:
   trunk/t/benchmark/benchmarks.t

Log:
Use Parrot::Test::slurp_file().
Number of failing tests is down to 6.


Modified: trunk/t/benchmark/benchmarks.t
==============================================================================
--- trunk/t/benchmark/benchmarks.t      (original)
+++ trunk/t/benchmark/benchmarks.t      Fri Mar 17 10:07:07 2006
@@ -213,7 +213,6 @@
              q{gc_waves_headers.pasm}           => 'syntax error', 
              q{gc_waves_sizeable_headers.pasm}  => 'syntax error', 
              q{stress3.pasm}                    => 'Null PMC access in 
get_integer()',
-             q{vpm.pir}                         => 'delete_keyed() not 
implemented',
            );
 
 
@@ -221,16 +220,9 @@
 # plan skip_all => 'currently not working';1
 
 foreach ( sort keys %outputs ) {
-  SKIP: {
-        my $bench;
-        eval {
-            my $file = q(examples/benchmarks/) . $_;
-            open( BENCH, qq(examples/benchmarks/$_) )
-              or die qq(Could not open $_:  $!.\n); 
-            while ( my $line = <BENCH> ) { $bench .= $line; }
-            close( BENCH );
-        };
-        skip( $@, 1 ) if $@;
+    SKIP: {
+        my $bench = Parrot::Test::slurp_file( "examples/benchmarks/$_" );
+        skip( "Could not slurp $_", 1 ) unless $bench;
 
         my @todo = $todo{$_} ? ( todo => $todo{$_} ) : ();