[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 <patl at 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