[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