from core)
I wrote new test in PIR "bad-int-t4.pir"
(
http://mj41.cz/down/Parrot/tests-bugs-etc/02-probably%20memory%20leaks/
or attached ).
--
S pozdravem Michal Jurosz
bad-int-t4.pir
Description: Binary data
Perl 6 and Parrot links" (
http://perl6.cz/wiki/Perl_6_and_Parrot_links ). But it probably can't help
developers much.
--
S pozdravem Michal Jurosz
d
# 1
# '
# expected: 'Hello, World!
# 0
# '
# Looks like you failed 1 tests of 1.
### config_lib.pasm
- set P0["slash"], "/"
+ set P0["slash"], "\\"
$ parrot config_lib.pasm
$ perl -Ilib t/pmc/sys.t
1..1
ok 1 - spawnw, _config
S pozdravem Michal Jurosz
1 100.00% 1
5 tests and 66 subtests skipped.
Failed 12/139 test scripts, 91.37% okay. 100/2225 subtests failed,
95.51% okay.
S pozdravem Michal Jurosz
(msys|cygwin)/;
my $hints = "config/init/hints/" . $O . ".pl";
See attached mswin32.pl
See also http://xrl.us/fddn (MJWiki:Build Parrot with MinGW)
S pozdravem Michal Jurosz
C:\usr>perl -e "print $^O"
MSWin32
C:\usr>perl -v
This is perl, v5.8.4 built for
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
;
$ perl -Ilib imcc/t/syn/file.t
...
ok 11 - including a non-existent file
...
Michal Jurosz
ICQ#:93348414
;print $^O"
msys
--- config\init\hints.pl
sub runstep {
+ my $O = lc($^O);
+ $O = 'mswin32' if $O =~ /^(msys|mingw)/;
- my $hints = "config/init/hints/" . lc($^O) . ".pl";
+ my $hints = "config/init/hints/" . $O . ".pl";
S pozdravem Michal Jurosz
http://xrl.us/fddn
2 3.39% 53, 57
t/pmc/sys.t1 256 11 100.00% 1
5 tests and 66 subtests skipped.
Failed 12/135 test scripts, 91.11% okay. 49/2204 subtests failed, 97.78%
okay.
S pozdravem Michal Jurosz
See my step by step quide and results:
http://wiki.kn.vutbr.cz/mj/index.cgi?Build%20Parrot%20with%20MinGW
Refactoring is welcome. I am C, Parror and English beginner :-).
Michal Jurosz
10 matches
Mail list logo
