Author: bernhard
Date: Mon Feb 6 13:24:20 2006
New Revision: 11459
Modified:
trunk/languages/m4/t/builtins/015___file__.t
Log:
Parrot bc: try to be slash agnostic when testing '__file__'
Modified: trunk/languages/m4/t/builtins/015___file__.t
==============================================================================
--- trunk/languages/m4/t/builtins/015___file__.t (original)
+++ trunk/languages/m4/t/builtins/015___file__.t Mon Feb 6 13:24:20 2006
@@ -7,9 +7,7 @@ use lib "$FindBin::Bin/../../lib", "$Fin
use Parrot::Test tests => 1;
{
- language_output_is( 'm4', <<'CODE', <<'OUT', '__line__' );
+ language_output_like( 'm4', <<'CODE', qr/Currently the file
'languages.m4.t.builtins.015___file___1\.m4' is being processed\.\n/,
'__line__' );
Currently the file '__file__' is being processed.
CODE
-Currently the file 'languages/m4/t/builtins/015___file___1.m4' is being
processed.
-OUT
}
