[libinline-java-perl] 231/398: chaged some test to represent more cases.

[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 e0e1641c58c2e5c9f391385c166e2f11d0ceb176
Author: patrick_leb <>
Date:   Wed Apr 23 01:44:01 2003 +0000

    chaged some test to represent more cases.
---
 t/08_study.t | 19 ++++++++++++++++---
 1 file changed, 16 insertions(+), 3 deletions(-)

diff --git a/t/08_study.t b/t/08_study.t
index e4365aa..860885d 100644
--- a/t/08_study.t
+++ b/t/08_study.t
@@ -9,7 +9,18 @@ use Inline Config =>
 
 use Inline(
 	Java => 'DATA',
+) ;
+# There once was a bug with importing code twice.
+use Inline(
+	Java => 'STUDY',
+	AUTOSTUDY => 1,
+	STUDY => ['t.types'],
+	CLASSPATH => '.',
+) ;
+use Inline(
+	Java => 'STUDY',
 	AUTOSTUDY => 1,
+	STUDY => ['t.types'],
 	CLASSPATH => '.',
 ) ;
 use Inline::Java qw(study_classes) ;
@@ -21,7 +32,6 @@ BEGIN {
 }
 
 study_classes([
-	't.types', 
 	't.no_const'
 ]) ;
 
@@ -34,7 +44,7 @@ my $t = new study::t::types() ;
 	my $nc = new study::t::no_const() ;
 	ok($nc->{i}, 5) ;
 	
-	my $a = new study::a8() ;
+	my $a = new study::study::a8() ;
 	ok($a->{i}, 50) ;
 	ok($a->truth()) ;
 	ok($a->sa()->[1], 'titi') ;
@@ -49,9 +59,12 @@ __DATA__
 
 __Java__
 
+// Use a public class
+package study ;
+
 import java.util.* ;
 
-class a8 {
+public class a8 {
 	public int i = 50 ;
 	
 	public a8(){

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