This is an automated email from the git hooks/post-receive script. js pushed a commit to tag 0.55 in repository libinline-java-perl.
commit 725e55df43b21f1e4541e3c8045da79ca1e3e4b3 Author: Patrick LeBoutillier <p...@cpan.org> Date: Mon Jan 14 20:07:35 2002 +0000 revamped behavior in JNI mode --- t/01_init.t | 4 ++++ t/09_shared_alone.t | 23 ++++++++++++----------- t/10_shared_mult.t | 22 +++++++++++----------- t/11_shared_fork.t | 28 ++++++++++++++-------------- 4 files changed, 41 insertions(+), 36 deletions(-) diff --git a/t/01_init.t b/t/01_init.t index df86a68..02f5249 100644 --- a/t/01_init.t +++ b/t/01_init.t @@ -7,4 +7,8 @@ BEGIN { mkdir('./_Inline_test', 0777) unless -e './_Inline_test' ; +if ($ENV{PERL_INLINE_JAVA_JNI}){ + print STDERR "\nUsing JNI extension.\n" ; +} + ok(1) ; diff --git a/t/09_shared_alone.t b/t/09_shared_alone.t index 212a0d4..50abe86 100644 --- a/t/09_shared_alone.t +++ b/t/09_shared_alone.t @@ -1,6 +1,18 @@ use strict ; use Test ; + +BEGIN { + if ($ENV{PERL_INLINE_JAVA_JNI}){ + plan(tests => 0) ; + exit ; + } + else{ + plan(tests => 3) ; + } +} + + use Inline Config => DIRECTORY => './_Inline_test' ; @@ -10,17 +22,6 @@ use Inline ( ) ; -my $JNI = Inline::Java::__get_JVM()->{JNI} ; -plan(tests => ($JNI ? 1 : 3)) ; - - -if ($JNI){ - skip("JNI", 1) ; - Inline::Java::shutdown_JVM() ; - exit ; -} - - my $t = new t9() ; { diff --git a/t/10_shared_mult.t b/t/10_shared_mult.t index 1dd1dd3..d206057 100644 --- a/t/10_shared_mult.t +++ b/t/10_shared_mult.t @@ -4,26 +4,26 @@ use strict ; use Test ; +BEGIN { + if ($ENV{PERL_INLINE_JAVA_JNI}){ + plan(tests => 0) ; + exit ; + } + else{ + plan(tests => 8) ; + } +} + + use Inline Config => DIRECTORY => './_Inline_test' ; - use Inline ( Java => 't/shared.java', SHARED_JVM => 1, NAME => 't10', ) ; -my $JNI = Inline::Java::__get_JVM()->{JNI} ; -plan(tests => ($JNI ? 1 : 8)) ; - -if ($JNI){ - skip("JNI", 1) ; - Inline::Java::shutdown_JVM() ; - exit ; -} - - eval <<CODE1; my \$t = new t10::t10() ; diff --git a/t/11_shared_fork.t b/t/11_shared_fork.t index 029b560..6114008 100644 --- a/t/11_shared_fork.t +++ b/t/11_shared_fork.t @@ -1,6 +1,15 @@ use strict ; use Test ; + +BEGIN { + if ($ENV{PERL_INLINE_JAVA_JNI}){ + plan(tests => 0) ; + exit ; + } +} + + use Inline Config => DIRECTORY => './_Inline_test' ; @@ -10,24 +19,15 @@ use Inline ( ) ; -my $nb = 10 ; - -my $JNI = Inline::Java::__get_JVM()->{JNI} ; -my $fork = Inline::Java::portable('GOT_FORK') ; -plan(tests => ($JNI ? 1 : ($fork ? $nb + 1 : 1))) ; - -if ($JNI){ - skip("JNI", 1) ; - Inline::Java::shutdown_JVM() ; +if (! Inline::Java::Portable::portable('GOT_FORK')){ + plan(tests => 0) ; exit ; } -if (! $fork){ - skip("fork", 1) ; - Inline::Java::shutdown_JVM() ; - exit ; -} + +my $nb = 10 ; +plan(tests => $nb + 1) ; $t13::i = 0 ; -- Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libinline-java-perl.git _______________________________________________ Pkg-perl-cvs-commits mailing list Pkg-perl-cvs-commits@lists.alioth.debian.org http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits