Thanks, applied!
Send me an email address associated with a google account and I'll add you
to the project so you can commit directly.
Tim.
On Mon, Aug 10, 2009 at 12:37:06AM +0200, Moritz Lenz wrote:
> Hi,
>
> attached patch for java2perl6 makes the tests files not check leading
> blank lines so strictly, which makes one test pass (and two others fail
> with more interesting diag() messages).
>
> Cheers,
> Moritz
> Index: t/02_interface.t
> ===================================================================
> --- t/02_interface.t (revision 78)
> +++ t/02_interface.t (working copy)
> @@ -197,15 +197,10 @@
> );
> #warn $perl_6;
> $perl_6 =~ s/^#.*//gm;
> +$perl_6 =~ s/^\s+//;
> #diag($perl_6);
> my @perl_6 = split /\n/, $perl_6;
> -
> my @correct_perl_6 = split /\n/, <<'EO_Correct_Perl_6';
> -
> -
> -
> -
> -
> use com::example::Second;
>
> role com::example::NestedIntTest {
> Index: t/03_class.t
> ===================================================================
> --- t/03_class.t (revision 78)
> +++ t/03_class.t (working copy)
> @@ -153,15 +153,11 @@
> );
> #warn $perl_6;
> $perl_6 =~ s/^#.*//gm;
> +$perl_6 =~ s/^\s+//;
> my @perl_6 = split /\n/, $perl_6;
> #use Data::Dumper::Simple;
> #diag($perl_6);
> my @correct_perl_6 = split /\n/, <<'EO_Correct_Perl_6';
> -
> -
> -
> -
> -
> use java::lang::Object;
>
> class ClassTest is java::lang::Object {
> @@ -199,14 +195,10 @@
> );
> #warn $perl_6;
> $perl_6 =~ s/^#.*//gm;
> + $perl_6 =~ s/^\s+//;
> my @perl_6 = split /\n/, $perl_6;
> # diag("got: $perl_6");
> my @correct_perl_6 = split /\n/, <<'EO_Correct_Perl_6_a';
> -
> -
> -
> -
> -
> use java::lang::Object;
>
> class dupMethodTest is java::lang::Object {
> @@ -229,4 +221,4 @@
> EO_Correct_Perl_6_a
>
> is_deeply( \...@perl_6, \...@correct_perl_6, 'emission - duplicate method
> signatures removed' );
> -}
> \ No newline at end of file
> +}
