Author: bernhard
Date: Sat Jan 28 09:38:51 2006
New Revision: 11363
Modified:
trunk/t/examples/pir.t
Log:
Use Parrot::Test::slurp_file() for testing quine_ord.pir,
as File::Slurp is not installed everywhere.
Modified: trunk/t/examples/pir.t
==============================================================================
--- trunk/t/examples/pir.t (original)
+++ trunk/t/examples/pir.t Sat Jan 28 09:38:51 2006
@@ -194,18 +194,13 @@ solved
END_EXPECTED
);
+# expected output of a quine is the quine itself
+$expected{ 'quine_ord.pir' } = Parrot::Test::slurp_file(
"examples/pir/quine_ord.pir" );
+
while ( my ( $example, $expected ) = each %expected ) {
example_output_is( "examples/pir/$example", $expected );
}
-SKIP: {
- skip "File::Slurp not available", 1 unless $has_file_slurp;
-
- my $quine_fn = "examples/pir/quine_ord.pir";
- my $quine_code = File::Slurp::slurp( $quine_fn );
- example_output_is( $quine_fn, $quine_code );
-};
-
my $PARROT = ".$PConfig{slash}$PConfig{test_prog}";
# For testing life.pir, the number of generations should be small,
