[PATCH] Don't check for leading blank lines in

[Moritz Lenz]

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
+}