[libinline-java-perl] 374/398: ok

[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 3ec80160a8c5c26a1e2a7a2b7d9c3350c9183e66
Author: patrick_leb <>
Date:   Fri Mar 3 02:01:46 2006 +0000

    ok
---
 t/02_primitives_1_4.t | 72 +++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 72 insertions(+)

diff --git a/t/02_primitives_1_4.t b/t/02_primitives_1_4.t
new file mode 100755
index 0000000..4c81f3f
--- /dev/null
+++ b/t/02_primitives_1_4.t
@@ -0,0 +1,72 @@
+use strict ;
+use Test ;
+
+use Inline Config => 
+           DIRECTORY => './_Inline_test' ;
+
+
+package t02_14 ;
+use Inline(
+    Java => qq |
+        class t02_14 {
+            public static boolean got14(){
+				try {
+					Class c = Class.forName("java.lang.CharSequence") ;
+				}
+				catch (ClassNotFoundException cnfe){
+					return false ;
+				}
+				return true ;
+			}
+        }
+    |,
+    NAME => 't02_14',
+) ;
+
+
+package main ;
+BEGIN {
+	my $got14 = t02_14::t02_14->got14() ;
+	if (! $got14){
+		plan(tests => 0) ;
+		exit(0) ;
+	}
+
+	plan(tests => 4) ;
+}
+
+
+
+use Inline(
+    Java => 'DATA',
+) ;
+
+
+
+my $t = new types2_1() ;
+
+{
+	ok($t->_CharSequence(undef), undef) ;
+	ok($t->_CharSequence(0), "0") ;
+	ok($t->_CharSequence("charsequence"), "charsequence") ;
+}
+
+ok($t->__get_private()->{proto}->ObjectCount(), 1) ;
+
+
+
+
+__END__
+
+__Java__
+
+class types2_1 {
+	public types2_1(){
+	}
+
+	public CharSequence _CharSequence(CharSequence c){
+		return c ;
+	}
+}
+
+

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