Leopold Toetsch wrote: > The test could include C< 0? >. >> + $err_msg =~ s/\r//g;
Could you please provide one patch for items like above, thanks.
TortoiseCVS patch file attached.
S pozdravem Michal Jurosz
Index: imcc/t/imcpasm/opt1.t
===================================================================
RCS file: /cvs/public/parrot/imcc/t/imcpasm/opt1.t,v
retrieving revision 1.11
diff -u -r1.11 opt1.t
--- imcc/t/imcpasm/opt1.t 4 Mar 2005 17:49:01 -0000 1.11
+++ imcc/t/imcpasm/opt1.t 14 Mar 2005 15:10:07 -0000
@@ -622,18 +622,16 @@
##############################
SKIP: {
-skip("printf float output is unportable!", 1) if $^O eq 'MSWin32';
-pir_2_pasm_is(<<'CODE', <<'OUT', "constant add big nums");
+pir_2_pasm_like(<<'CODE', <<'OUT', "constant add big nums");
.sub _main
add N0, 10.0e20, 15.0e21
end
.end
CODE
-_main:
- set N0, 1.6e+22
- end
+/^_main:
+ set N0, 1\.6e\+0?22
+ end$/
OUT
-}
##############################
SKIP: {
Index: imcc/t/syn/file.t
===================================================================
RCS file: /cvs/public/parrot/imcc/t/syn/file.t,v
retrieving revision 1.26
diff -u -r1.26 file.t
--- imcc/t/syn/file.t 4 Mar 2005 17:49:04 -0000 1.26
+++ imcc/t/syn/file.t 14 Mar 2005 15:07:16 -0000
@@ -385,6 +385,7 @@
$enoent_err_msg = qx{$PARROT temp.imc}
}
+ $err_msg =~ s/\r//g if $^O =~ /^(MSWin32|msys)$/i;
is( $err_msg, << "OUT", "including a non-existent file");
error:imcc:$enoent_err_msg
in file 'temp.imc' line 2
