[java2perl6] r79 committed - Make the tests files not check leading blank lines so strictly, which ...

Revision: 79
Author: tim.bunce
Date: Mon Aug 10 09:47:21 2009
Log: Make the tests files not check leading blank lines so strictly, which  
makes one
test pass (and two others fail with more interesting diag() messages).
Thanks to Moritz Lenz.

http://code.google.com/p/java2perl6/source/detail?r=79

Modified:
  /trunk/t/02_interface.t
  /trunk/t/03_class.t

=======================================
--- /trunk/t/02_interface.t	Mon Jul 20 16:14:36 2009
+++ /trunk/t/02_interface.t	Mon Aug 10 09:47:21 2009
@@ -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 {
=======================================
--- /trunk/t/03_class.t	Mon Jul 20 16:14:36 2009
+++ /trunk/t/03_class.t	Mon Aug 10 09:47:21 2009
@@ -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 {