Author: rurban
Date: Sun Jan 4 13:20:06 2009
New Revision: 34939
Modified:
branches/pdd30install_stage3/t/src/library.t
Log:
fix windows slashes for t/src/library.t
Modified: branches/pdd30install_stage3/t/src/library.t
==============================================================================
--- branches/pdd30install_stage3/t/src/library.t (original)
+++ branches/pdd30install_stage3/t/src/library.t Sun Jan 4 13:20:06 2009
@@ -37,7 +37,10 @@
=cut
-c_output_is( <<'CODE', <<'OUTPUT', "Parrot_locate_runtime_file" );
+my $dumperpath = "./runtime/parrot/library/Data/Dumper";
+$dumperpath =~ s|/|\\|g if $^O eq 'MSWin32';
+
+c_output_is( <<'CODE', <<"OUTPUT", "Parrot_locate_runtime_file" );
#include <parrot/parrot.h>
#include <parrot/embed.h>
@@ -73,11 +76,11 @@
return 0;
}
CODE
-./runtime/parrot/library/Data/Dumper.pir
-./runtime/parrot/library/Data/Dumper.pbc
-./runtime/parrot/library/Data/Dumper.pbc
+$dumperpath.pir
+$dumperpath.pbc
+$dumperpath.pbc
(null)
-./runtime/parrot/library/Data/Dumper.pir
+$dumperpath.pir
OUTPUT
my $dynpath = "." . $PConfig{slash} .
@@ -129,7 +132,7 @@
(null)
OUTPUT
-c_output_is( <<'CODE', <<'OUTPUT', "FT_SOURCE, FT_PIR", 'todo' => 'TT #128
force pir')
+c_output_is( <<'CODE', <<"OUTPUT", "FT_SOURCE, FT_PIR", 'todo' => 'TT #128
force pir')
#include <parrot/parrot.h>
#include <parrot/embed.h>
@@ -157,8 +160,8 @@
return 0;
}
CODE
-./runtime/parrot/library/Data/Dumper.pir
-./runtime/parrot/library/Data/Dumper.pir
+$dumperpath.pir
+$dumperpath.pir
OUTPUT
