In and working (for me at least) now. Thanks!
Tim.
On Mon, Aug 10, 2009 at 04:40:18PM +0100, Tim Bunce wrote:
> 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
> > > +}
> >
