[libinline-java-perl] 158/398: Added new file to simulate shared tests.

[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 03c9b427e8484ebd844e394258d539ffd9cb0aba
Author: patrick_leb <>
Date:   Tue Jan 29 01:09:47 2002 +0000

    Added new file to simulate shared tests.
---
 t/10_6_shared_sim.t | 84 +++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 84 insertions(+)

diff --git a/t/10_6_shared_sim.t b/t/10_6_shared_sim.t
new file mode 100644
index 0000000..d206057
--- /dev/null
+++ b/t/10_6_shared_sim.t
@@ -0,0 +1,84 @@
+package t10 ;
+
+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',
+) ;
+
+
+eval <<CODE1;
+	my \$t = new t10::t10() ;
+	{
+		ok(\$t->{i}++, 5) ;
+		ok(Inline::Java::i_am_JVM_owner()) ;
+		Inline::Java::release_JVM() ;
+		ok(! Inline::Java::i_am_JVM_owner()) ;
+	}
+CODE1
+if ($@){
+	die($@) ;
+}
+
+my $JVM1 = Inline::Java::__get_JVM() ;
+$JVM1->{destroyed} = 1 ;
+Inline::Java::__clear_JVM() ;
+
+eval <<CODE2;
+	use Inline (
+		Java => 't/shared.java',
+		SHARED_JVM => 1,
+		NAME => 't10',
+	) ;
+
+	my \$t = new t10::t10() ;
+	{
+		ok(\$t->{i}++, 6) ;
+		ok(! Inline::Java::i_am_JVM_owner()) ;
+	}
+CODE2
+if ($@){
+	die($@) ;
+}
+
+my $JVM2 = Inline::Java::__get_JVM() ;
+$JVM2->{destroyed} = 1 ;
+Inline::Java::__clear_JVM() ;
+
+eval <<CODE3;
+	use Inline (
+		Java => 't/shared.java',
+		SHARED_JVM => 1,
+		NAME => 't10',
+	) ;
+
+	my \$t = new t10::t10() ;
+	{
+		ok(\$t->{i}, 7) ;
+		ok(! Inline::Java::i_am_JVM_owner()) ;
+		Inline::Java::capture_JVM() ;
+		ok(Inline::Java::i_am_JVM_owner()) ;
+	}
+CODE3
+if ($@){
+	die($@) ;
+}
+

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libinline-java-perl.git