Revision: 96 Author: cosimo.streppone Date: Thu Sep 10 14:04:09 2009 Log: For some reason, `javap` is not working on Windows ($! = "Bad file descriptor").
http://code.google.com/p/java2perl6/source/detail?r=96 Modified: /trunk/t/02_interface.t /trunk/t/03_class.t /trunk/t/04_java2perl6.t /trunk/t/05_final.t ======================================= --- /trunk/t/02_interface.t Mon Aug 10 14:46:02 2009 +++ /trunk/t/02_interface.t Thu Sep 10 14:04:09 2009 @@ -8,20 +8,21 @@ use Java::Javap::Grammar; use Java::Javap::Generator; -`javap`; -plan skip_all => 'javap from Java SDK required' if $!; +system('javap'); +plan skip_all => "javap from Java SDK required: $!" if $!; plan tests => 3; #-------------------------------------------------------------------- # Grammar #-------------------------------------------------------------------- - my $parser = Java::Javap::Grammar->new(); my $decomp = `javap -classpath testjavas com.example.NestedIntTest`; +#diag("decomp=$decomp"); my $tree = $parser->comp_unit( $decomp ); #diag("tree=", Dumper($tree)); + my $expected_tree = { 'compiled_from' => 'NestedIntTest.java', 'parent' => undef, ======================================= --- /trunk/t/03_class.t Mon Aug 10 14:46:02 2009 +++ /trunk/t/03_class.t Thu Sep 10 14:04:09 2009 @@ -7,8 +7,8 @@ use Java::Javap::Grammar; use Java::Javap::Generator; -`javap`; -plan skip_all => 'javap from Java SDK required' if $!; +system('javap'); +plan skip_all => "javap from Java SDK required: $!" if $!; plan tests => 3; #-------------------------------------------------------------------- ======================================= --- /trunk/t/04_java2perl6.t Mon Jul 6 12:49:20 2009 +++ /trunk/t/04_java2perl6.t Thu Sep 10 14:04:09 2009 @@ -6,8 +6,8 @@ use Test::More; use File::Spec; -`javap`; -plan skip_all => 'javap from Java SDK required' if $!; +system('javap'); +plan skip_all => "javap from Java SDK required: $!" if $!; plan tests => 5; my $perl = $^X; ======================================= --- /trunk/t/05_final.t Sat Jul 21 06:09:45 2007 +++ /trunk/t/05_final.t Thu Sep 10 14:04:09 2009 @@ -7,8 +7,8 @@ use Java::Javap::Grammar; use Java::Javap::Generator; -`javap`; -plan skip_all => 'javap from Java SDK required' if $!; +system('javap'); +plan skip_all => "javap from Java SDK required: $!" if $!; plan tests => 1; #--------------------------------------------------------------------
