[libinline-java-perl] 55/398: Initial revision
Jonas Smedegaard
dr at jones.dk
Thu Feb 26 11:42:45 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 bfee25be24d6df60ec6572e3bcb2e2579b5aa361
Author: patrick <>
Date: Tue Apr 10 17:11:46 2001 +0000
Initial revision
---
t/06_static.t | 39 +++++++++++++++++++++++++++++++++++++++
t/07_polymorph.t | 39 +++++++++++++++++++++++++++++++++++++++
2 files changed, 78 insertions(+)
diff --git a/t/06_static.t b/t/06_static.t
new file mode 100644
index 0000000..035b3cb
--- /dev/null
+++ b/t/06_static.t
@@ -0,0 +1,39 @@
+use strict ;
+use Test ;
+
+use Inline Config =>
+ DIRECTORY => './_Inline_test';
+
+use Inline(
+ Java => 'DATA'
+) ;
+
+
+BEGIN {
+ plan(tests => 2) ;
+}
+
+
+ok(types->get("key"), undef) ;
+my $t = new types() ;
+ok(types->get("key"), "value") ;
+
+
+__END__
+
+__Java__
+
+
+class types {
+ public static int = 5 ;
+ public static HashMap hm = new HashMap() ;
+
+ public types(){
+ hm.add("key", "value") ;
+ }
+
+ public static HashMap get(String k){
+ return hm.get(k) ;
+ }
+}
+
diff --git a/t/07_polymorph.t b/t/07_polymorph.t
new file mode 100644
index 0000000..035b3cb
--- /dev/null
+++ b/t/07_polymorph.t
@@ -0,0 +1,39 @@
+use strict ;
+use Test ;
+
+use Inline Config =>
+ DIRECTORY => './_Inline_test';
+
+use Inline(
+ Java => 'DATA'
+) ;
+
+
+BEGIN {
+ plan(tests => 2) ;
+}
+
+
+ok(types->get("key"), undef) ;
+my $t = new types() ;
+ok(types->get("key"), "value") ;
+
+
+__END__
+
+__Java__
+
+
+class types {
+ public static int = 5 ;
+ public static HashMap hm = new HashMap() ;
+
+ public types(){
+ hm.add("key", "value") ;
+ }
+
+ public static HashMap get(String k){
+ return hm.get(k) ;
+ }
+}
+
--
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