[libinline-java-perl] 205/398: Added test cases for non-english chars and member order

[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 4e7ebf779190c9ada5496297e82ab579d01cb9cc
Author: patrick_leb <>
Date:   Thu Jul 11 14:53:17 2002 +0000

    Added test cases for non-english chars and member order
---
 t/01_init.t       | 29 +++++++++++++++++++++++++++--
 t/02_primitives.t |  9 ++++++++-
 t/07_polymorph.t  |  6 ++++++
 3 files changed, 41 insertions(+), 3 deletions(-)

diff --git a/t/01_init.t b/t/01_init.t
index 02f5249..cd82299 100644
--- a/t/01_init.t
+++ b/t/01_init.t
@@ -3,12 +3,37 @@ use Test ;
 
 BEGIN {
 	plan(tests => 1) ;
+	mkdir('./_Inline_test', 0777) unless -e './_Inline_test' ;
 }
 
-mkdir('./_Inline_test', 0777) unless -e './_Inline_test' ;
+use Inline Config => 
+           DIRECTORY => './_Inline_test' ;
+
+use Inline (
+	Java => 'DATA'
+) ;
+
+
+my $ver = types1->version() ;
+print STDERR "\nJ2SDK version is $ver\n" ;
 
 if ($ENV{PERL_INLINE_JAVA_JNI}){
-	print STDERR "\nUsing JNI extension.\n" ;
+	print STDERR "Using JNI extension.\n" ;
 }
 
 ok(1) ;
+
+
+
+__END__
+
+__Java__
+
+class types1 {
+	static public String version(){
+		return System.getProperty("java.version") ;
+	}
+}
+
+
+
diff --git a/t/02_primitives.t b/t/02_primitives.t
index faff73f..40b298a 100644
--- a/t/02_primitives.t
+++ b/t/02_primitives.t
@@ -10,7 +10,7 @@ use Inline (
 
 
 BEGIN {
-	plan(tests => 107) ;
+	plan(tests => 109) ;
 }
 
 
@@ -143,6 +143,13 @@ my $t = new types2() ;
 	ok($t->_String(undef), undef) ;
 	ok($t->_String(0), "0") ;
 	ok($t->_String("string"), 'string') ;
+
+	my $str = "\r\n&&&\r\n\ntre gfd gf$$ b F D&a;t% R f &p;vf\r\r" ;
+	ok($t->_String($str), $str) ;
+
+	$str = "����" ;
+	ok($t->_String($str), $str) ;
+
 	ok($t->_StringBuffer(undef), undef) ;
 	ok($t->_StringBuffer(0), "0") ;
 	ok($t->_StringBuffer("stringbuffer"), 'stringbuffer') ;
diff --git a/t/07_polymorph.t b/t/07_polymorph.t
index f42adfc..a205129 100644
--- a/t/07_polymorph.t
+++ b/t/07_polymorph.t
@@ -79,6 +79,9 @@ class t17 {
 		return "t1" ;
 	}
 
+	public void n(){
+	}
+
 	public ArrayList get_al(){
 		return new ArrayList() ;
 	}
@@ -99,6 +102,9 @@ class t27 extends t17 {
 	public String f(t17 o){
 		return "t2" ;
 	}
+
+	public void n(){
+	}
 }
 
 

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