[libinline-java-perl] 126/398: *** empty log message ***

[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 9051643d0608fdab56ea2d3e98f0ba46a4d82bf8
Author: Patrick LeBoutillier <p...@cpan.org>
Date:   Fri Dec 14 13:29:06 2001 +0000

    *** empty log message ***
---
 t/13_callbacks.t | 38 +++++++++++++++++++++++++++++++++++++-
 1 file changed, 37 insertions(+), 1 deletion(-)

diff --git a/t/13_callbacks.t b/t/13_callbacks.t
index 6a16f47..a44b347 100644
--- a/t/13_callbacks.t
+++ b/t/13_callbacks.t
@@ -14,7 +14,7 @@ use Inline::Java qw(caught) ;
 
 
 BEGIN {
-       plan(tests => 12) ;
+       plan(tests => 14) ;
 }
 
 my $t = new t10() ;
@@ -33,6 +33,10 @@ my $t = new t10() ;
                ok($t->add_via_perl_via_java(3, 4), 7) ;
                ok($t->silly_mul_via_perl_via_java(10, 9), 90) ;
 
+               ok(t10->add_via_perl_via_java_t($t, 6, 9), 15) ;
+
+               ok($t->cat_via_perl("Inline", "Java"), "InlineJava") ;
+
                eval {$t->death_via_perl()} ; ok($@, qr/death/) ;
 
                my $msg = '' ;
@@ -78,6 +82,14 @@ sub mul {
 }
 
 
+sub cat {
+       my $i = shift ;
+       my $j = shift ;
+
+       return $i . $j ;
+}
+
+
 sub add_via_java {
        my $i = shift ;
        my $j = shift ;
@@ -86,6 +98,15 @@ sub add_via_java {
 }
 
 
+sub add_via_java_t {
+       my $_t = shift ;
+       my $i = shift ;
+       my $j = shift ;
+
+       return $_t->add($i, $j) ;
+}
+
+
 sub death {
        die("death") ;
 }
@@ -150,6 +171,13 @@ class t10 extends InlineJavaPerlCaller {
                return new Integer(val).intValue() ;
        }
 
+       public String cat_via_perl(String a, String b) throws 
InlineJavaPerlCallerException {
+               String val = (String)CallPerl("main", "cat", 
+                       new Object [] {a, b}) ;
+
+               return val ;
+       }
+
        public int add_via_perl_via_java(int a, int b) throws 
InlineJavaPerlCallerException {
                String val = (String)CallPerl("main", "add_via_java", 
                        new Object [] {new Integer(a), new Integer(b)}) ;
@@ -157,6 +185,14 @@ class t10 extends InlineJavaPerlCaller {
                return new Integer(val).intValue() ;
        }
 
+       static public int add_via_perl_via_java_t(t10 t, int a, int b) throws 
InlineJavaPerlCallerException {
+               InlineJavaPerlCaller c = new InlineJavaPerlCaller() ;
+               String val = (String)c.CallPerl("main", "add_via_java_t", 
+                       new Object [] {t, new Integer(a), new Integer(b)}) ;
+
+               return new Integer(val).intValue() ;
+       }
+
        public int silly_mul_via_perl_via_java(int a, int b) throws 
InlineJavaPerlCallerException {
                int ret = 0 ;
                for (int i = 0 ; i < b ; i++){

-- 
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