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 {
