Dino Morelli <[EMAIL PROTECTED]> wrote:
> On Fri, 6 May 2005, Leopold Toetsch wrote:
>>"make testr" is broken. We need some replacement for it. It does:
[ and should do ]
>>$ ./parrot -o foo.pbc foo.imc
>>$ ./parrot foo.pbc
> I think this might do it:
> ---------------------------------------------------------------------------
> Index: lib/Parrot/Test.pm
> ===================================================================
> --- lib/Parrot/Test.pm (revision 7995)
> +++ lib/Parrot/Test.pm (working copy)
> @@ -380,11 +380,13 @@
> if ( $func !~ /^pir_2_pasm_/ &&
> ( $args =~ s/--run-pbc// || $args =~ s/-r //) ) {
> my $pbc_f = per_test('.pbc', $test_no);
> - $args = qq{$args -o "$pbc_f" -r -r};
> + $args = qq{$args -o "$pbc_f"};
> + $cmd = qq{$parrot $args "$code_f";$parrot "$pbc_f"};
Unfortunately this might be not enough.
- is the semicolon portable?
- a few tests create output during compilation:
$ parrot -o s49.pbc t/pmc/sub_49.pir
initial
$ parrot s49.pbc
main
$ parrot t/pmc/sub_49.pir
initial
main
We probably need to capture output twice and concat it. I should have
mentioned that in the first place.
> Also: I'm new. I love Perl. Reading about and waiting for Perl 6 has
> been killing me.
Mail and patch do indicate a certain liveliness ;-)
> ... I want to contribute.
That's great and very welcome, thanks.
> So, greetings to the group! :-)
And greetings back.
> -Dino
leo
