[libinline-java-perl] 08/398: Initial revision

Jonas Smedegaard dr at jones.dk
Thu Feb 26 11:42:36 UTC 2015


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 dd703816054067b111fea9b89402e0ff65b574d7
Author: patrick <>
Date:   Mon Mar 5 18:17:52 2001 +0000

    Initial revision
---
 t/02_primitives.t | 112 +++++++++++++++++++++++++++++++++++++++++++++++++++
 t/03_objects.t    | 117 ++++++++++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 229 insertions(+)

diff --git a/t/02_primitives.t b/t/02_primitives.t
new file mode 100644
index 0000000..aa6cd01
--- /dev/null
+++ b/t/02_primitives.t
@@ -0,0 +1,112 @@
+use strict ;
+use Test ;
+
+use Inline Config => 
+           DIRECTORY => './_Inline_test';
+
+use Inline(
+	Java => 'DATA'
+) ;
+
+
+BEGIN {
+	plan(tests => 18) ;
+}
+
+
+my $t = new types() ;
+ok($t->_byte("123"),124) ;
+ok($t->_Byte("123"), 123) ;
+ok($t->_short("123"), 124) ;
+ok($t->_Short("123"), 123) ;
+ok($t->_int("123"), 124) ;
+ok($t->_Integer("123"), 123) ;
+ok($t->_long("123"), 124) ;
+ok($t->_Long("123"), 123) ;
+ok($t->_float("123.456"), 124.456) ;
+ok($t->_Float("123.456"), 123.456) ;
+ok($t->_double("123.456"), 124.456) ;
+ok($t->_Double("123.456"), 123.456) ;
+
+ok($t->_boolean("true"), 1) ;
+ok($t->_Boolean("true"), 1) ; 
+ok($t->_boolean(""), 0) ;
+ok($t->_Boolean("0"), 0) ; 
+ok($t->_char("1"), '1') ;
+ok($t->_Character("1"), '1') ;
+
+
+__END__
+
+__Java__
+
+class types {
+	public types(){
+	}
+
+	public byte _byte(byte b){
+		return (byte)(b + (byte)1) ;
+	}
+
+	public Byte _Byte(Byte b){
+		return b ;
+	}
+
+	public short _short(short s){
+		return (short)(s + (short)1) ;
+	}
+
+	public Short _Short(Short s){
+		return s ;
+	}
+
+	public int _int(int i){
+		return i + 1 ;
+	}
+
+	public Integer _Integer(Integer i){
+		return i ;
+	}
+
+	public long _long(long l){
+		return l + 1 ;
+	}
+
+	public Long _Long(Long l){
+		return l ;
+	}
+
+	public float _float(float f){
+		return f + 1 ;
+	}
+
+	public Float _Float(Float f){
+		return f ;
+	}
+
+	public double _double(double d){
+		return d + 1 ;
+	}
+
+	public Double _Double(Double d){
+		return d ;
+	}
+
+	public boolean _boolean(boolean b){
+		return b ;
+	}
+
+	public Boolean _Boolean(Boolean b){
+		return b ;
+	}
+
+	public char _char(char c){
+		return c ;
+	}
+
+	public Character _Character(Character c){
+		return c ;
+	}
+}
+
+
diff --git a/t/03_objects.t b/t/03_objects.t
new file mode 100644
index 0000000..3194264
--- /dev/null
+++ b/t/03_objects.t
@@ -0,0 +1,117 @@
+use strict ;
+use Test ;
+
+use Inline Config => 
+           DIRECTORY => './_Inline_test';
+
+use Inline(
+	Java => 'DATA'
+) ;
+
+
+BEGIN {
+	plan(tests => 14) ;
+}
+
+
+my $o1 = new object() ;
+my $o2 = new object() ;
+ok($o1->get_data(), "data") ;
+ok($o2->get_data(), "data") ;
+ok($o1->get_this()->get_data(), "data") ;
+ok($o1->get_that($o2)->get_data(), "data") ;
+
+$o1->set_data("new data") ;
+ok($o1->get_data(), "new data") ;
+ok($o2->get_data(), "new data") ;
+
+object->set_data("new new data") ;
+ok($o1->get_data(), "new new data") ;
+ok($o2->get_data(), "new new data") ;
+
+my $so1 = new sub_object(5) ;
+my $so2 = new sub_object(6) ;
+ok($so1->get_data(), "new new data") ;
+ok($so1->get_number(), 5) ;
+ok($so2->get_number(), 6) ;
+
+$so1->set_number(7) ;
+ok($so1->get_number(), 7) ;
+
+my $io = new object::inner_object($o1) ;
+ok($io->get_data(), "new new data") ;
+
+my $al = $o1->new_arraylist() ;
+$o1->set_arraylist($al, "array data") ;
+ok($o1->get_arraylist($al), "array data") ;
+
+
+__END__
+
+__Java__
+
+import java.util.* ;
+
+
+class object {
+	public static String data = "data" ;
+
+	public object(){
+	}
+
+	public object get_this(){
+		return this ;
+	}
+
+	public object get_that(object o){
+		return o ;
+	}
+
+	public static String get_data(){
+		return data ;
+	}
+
+	public static void set_data(String d){
+		data = d ;
+	}
+	
+	public ArrayList new_arraylist(){
+		return new ArrayList() ;
+	}
+
+	public void set_arraylist(ArrayList a, String s){
+		a.add(0, s) ;
+	}
+
+	public String get_arraylist(ArrayList a){
+		return (String)a.get(0) ;
+	}
+
+	
+	class inner_object {
+		public inner_object(){
+		}
+
+		public String get_data(){
+			return object.this.get_data() ;
+		}
+	}
+}
+
+
+class sub_object extends object {
+	public int number ;
+
+	public sub_object(int num){
+		super() ;
+		number = num ;
+	}
+
+	public int get_number(){
+		return number ;
+	}
+
+	public void set_number(int num){
+		number = num ;
+	}
+}

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



More information about the Pkg-perl-cvs-commits mailing list