[libinline-java-perl] 99/398: added array of studied types test

[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 1374794d112946111a39681160bbd132eaa7adfe
Author: Patrick LeBoutillier <p...@cpan.org>
Date:   Fri Jun 1 17:26:15 2001 +0000

    added array of studied types test
---
 t/08_study.t | 22 +++++++++++++++++++++-
 1 file changed, 21 insertions(+), 1 deletion(-)

diff --git a/t/08_study.t b/t/08_study.t
index a34183b..6f7b6a0 100644
--- a/t/08_study.t
+++ b/t/08_study.t
@@ -17,7 +17,7 @@ use Inline::Java qw(study_classes) ;
 
 
 BEGIN {
-       plan(tests => 5) ;
+       plan(tests => 8) ;
 }
 
 
@@ -36,12 +36,17 @@ ok($nc->{i}, 5) ;
 my $a = new study::a() ;
 ok($a->{i}, 50) ;
 ok($a->truth()) ;
+ok($a->sa()->[1], 'titi') ;
+ok($a->sb()->[0]->get('toto'), 'titi') ;
+ok($a->sb()->[1]->get('error'), undef) ;
 
 
 __DATA__
 
 __Java__
 
+import java.util.* ;
+
 class a {
        public int i = 50 ;
        
@@ -51,5 +56,20 @@ class a {
        public boolean truth(){
                return true ;
        }
+
+       public String [] sa(){
+               String a[] = {"toto", "titi"} ;
+               return a ;
+       }
+
+       public HashMap [] sb(){
+               HashMap h1 = new HashMap() ;
+               HashMap h2 = new HashMap() ;
+               h1.put("toto", "titi") ;
+               h2.put("tata", "tete") ;
+
+               HashMap a[] = {h1, h2} ;
+               return a ;
+       }
 }
 

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

_______________________________________________
Pkg-perl-cvs-commits mailing list
Pkg-perl-cvs-commits@lists.alioth.debian.org
http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits