[libinline-java-perl] 222/398: ok

Jonas Smedegaard dr at jones.dk
Thu Feb 26 11:43:05 UTC 2015


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 936c1186dbeca25d828ee328a4449b55e212402c
Author: patrick_leb <>
Date:   Thu Apr 10 18:04:06 2003 +0000

    ok
---
 t/06_static.t        | 32 ++++++++++++++++++--------------
 t/10_5_shared_fork.t |  2 +-
 2 files changed, 19 insertions(+), 15 deletions(-)

diff --git a/t/06_static.t b/t/06_static.t
index 2ce7d11..cfac388 100644
--- a/t/06_static.t
+++ b/t/06_static.t
@@ -15,32 +15,32 @@ BEGIN {
 
 
 # Methods
-ok(types6->get("key"), undef) ;
-my $t = new types6("key", "value") ;
+ok(p06::types6->get("key"), undef) ;
+my $t = new p06::types6("key", "value") ;
 
 {
 	ok($t->get("key"), "value") ;
 	
 	# Members
-	ok($types6::i == 5) ;
-	$types6::i = 7 ;
+	ok($p06::types6::i == 5) ;
+	$p06::types6::i = 7 ;
 	ok($t->{i} == 7) ;
 	
-	my $t2 = new types6("key2", "value2") ;
-	my $hm = $types6::hm ;
-	$types6::hm = undef ;
-	ok(types6->get($hm, "key2"), "value2") ;
+	my $t2 = new p06::types6("key2", "value2") ;
+	my $hm = $p06::types6::hm ;
+	$p06::types6::hm = undef ;
+	ok(p06::types6->get($hm, "key2"), "value2") ;
 	
-	$types6::hm = $hm ;
+	$p06::types6::hm = $hm ;
 	ok($t2->get("key2"), "value2") ;
 	
 	# Calling an instance method without an object reference
-	eval {types6->set()} ; ok($@, qr/must be called from an object reference/) ;
+	eval {p06::types6->set()} ; ok($@, qr/must be called from an object reference/) ;
 
 	# Put in back like before...
-	$types6::i = 5 ;
-	ok($types6::i == 5) ;
-	my $tt = new types6("key", undef) ;
+	$p06::types6::i = 5 ;
+	ok($p06::types6::i == 5) ;
+	my $tt = new p06::types6("key", undef) ;
 	ok($tt->get("key"), undef) ;
 }
 
@@ -54,10 +54,14 @@ __END__
 __Java__
 
 
+// package test 
+package p06 ;
+
+
 import java.util.* ;
 
 
-class types6 {
+public class types6 {
 	public static int i = 5 ;
 	public static HashMap hm = new HashMap() ;
 
diff --git a/t/10_5_shared_fork.t b/t/10_5_shared_fork.t
index f9e0264..9a27cab 100755
--- a/t/10_5_shared_fork.t
+++ b/t/10_5_shared_fork.t
@@ -15,7 +15,7 @@ BEGIN {
 		exit ;
 	}
 	else{
-		$t10::nb = 10 ;
+		$t10::nb = 5 ;
 		plan(tests => $t10::nb + 3) ;
 	}
 }

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



More information about the Pkg-perl-cvs-commits mailing list