[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