[libinline-java-perl] 49/398: Initial revision
Jonas Smedegaard
dr at jones.dk
Thu Feb 26 11:42:44 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 5b6910ab8f4dbd27df049802bf3a3048eef963ed
Author: patrick <>
Date: Thu Mar 29 20:20:56 2001 +0000
Initial revision
---
t/04_members.t | 67 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
1 file changed, 67 insertions(+)
diff --git a/t/04_members.t b/t/04_members.t
new file mode 100644
index 0000000..d931138
--- /dev/null
+++ b/t/04_members.t
@@ -0,0 +1,67 @@
+use strict ;
+use Test ;
+
+use Inline Config =>
+ DIRECTORY => './_Inline_test';
+
+use Inline(
+ Java => 'DATA'
+) ;
+
+
+BEGIN {
+ plan(tests => 8) ;
+}
+
+
+my $o1 = new obj_test() ;
+ok($o1->{i}, 7) ;
+ok($o1->{s}, "data") ;
+my $om = $o1->{om} ;
+ok($om->getl(), 67) ;
+ok($om->{string}, "blablabla") ;
+
+$o1->{i} = 5 ;
+$o1->{s} = 5 ;
+$om->{string} = "yoyo" ;
+
+ok($o1->{i}, 5) ;
+ok($o1->{s}, "5") ;
+ok($om->{string}, "yoyo") ;
+
+my $o2 = new obj_member(123456) ;
+$o1->{om} = $o2 ;
+$om = $o1->{om} ;
+ok($om->getl(), 123456) ;
+
+
+
+__END__
+
+__Java__
+
+import java.util.* ;
+
+
+class obj_test {
+ public int i = 7 ;
+ public String s = "data" ;
+ public obj_member om = new obj_member(67) ;
+
+ public obj_test(){
+ }
+}
+
+
+class obj_member {
+ long l ;
+ public String string = "blablabla" ;
+
+ public obj_member(long a){
+ l = a ;
+ }
+
+ public long getl(){
+ return l ;
+ }
+}
--
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