cvsuser 05/02/04 16:50:56
Modified: t benchmarks.t
Log:
Make t/benchmarks.t pass.
Patch #34050 from Bernhard Schmalhofer ([EMAIL PROTECTED]).
Revision Changes Path
1.2 +16 -2 parrot/t/benchmarks.t
Index: benchmarks.t
===================================================================
RCS file: /cvs/public/parrot/t/benchmarks.t,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- benchmarks.t 3 Dec 2004 08:57:01 -0000 1.1
+++ benchmarks.t 5 Feb 2005 00:50:56 -0000 1.2
@@ -1,10 +1,24 @@
#! perl
+# Copyright: 2004-2005 The Perl Foundation. All Rights Reserved.
+# $Id: benchmarks.t,v 1.2 2005/02/05 00:50:56 chromatic Exp $
+
+=head1 NAME
+
+t/benchmarks.t - test scrips in examples/benchmarks
+
+=head1 DESCRIPTION
+
+Called by 'make testbench'.
+
+=cut
use strict;
use warnings;
+
use Parrot::Test;
use Test::More;
+# Set up expected output from files in 'examples/benchmarks'
my %outputs = (
q(addit.imc) => qq(21001097.970000\n),
q(addit.pasm) => qq(21001097.970000\n),
@@ -204,9 +218,10 @@
q(stress3.pasm) => qr/^A\stotal\sof\s\d+\sDOD\sruns\swere\smade\n
\d+\sactive\sPMCs\n
\d+\stotal\s\sPMCs\n$/x,
- q(vpm.imc) => qq(100000\nl hackerjust another per\n)
+ q(vpm.imc) => qq(100000;\nl hackerjust another per\n)
);
+# array_access.imc has weird output
my %filters = ( q(array_access.imc) => \&array_access_imc_filter );
sub array_access_imc_filter {
@@ -255,4 +270,3 @@
}
}
}
-
