[libinline-java-perl] 142/398: revamped behavior in JNI mode

[Jonas Smedegaard]

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 <patl at 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