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

--------------030907090705080205090506
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: 7bit

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

--------------030907090705080205090506
Content-Type: text/x-diff;
 name="dont_check_for_leading_blank_lines.patch"
Content-Transfer-Encoding: 7bit
Content-Disposition: inline;
 filename="dont_check_for_leading_blank_lines.patch"

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

--------------030907090705080205090506--