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