On Mon, Aug 10, 2009 at 09:26:56AM +0100, Tim Bunce wrote:
> Thanks, applied!
But not committed. I'll try to sort out the underlying failure first.
It's almost certainly a side effect of my messing with the type mapping.
Tim.
> 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
> > +}
>
