[libinline-java-perl] 359/398: ok
Jonas Smedegaard
dr at jones.dk
Thu Feb 26 11:43:23 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 3ebc2ad8bb95e62b913b242dc157554f8df3cdee
Author: patrick_leb <>
Date: Wed Oct 5 00:39:37 2005 +0000
ok
---
t/15_native_doubles.t | 42 ++++++++++++++++++++++++++++++++++++++++++
1 file changed, 42 insertions(+)
diff --git a/t/15_native_doubles.t b/t/15_native_doubles.t
new file mode 100755
index 0000000..960fa3b
--- /dev/null
+++ b/t/15_native_doubles.t
@@ -0,0 +1,42 @@
+use strict ;
+use Test ;
+
+use Inline Config =>
+ DIRECTORY => './_Inline_test' ;
+
+use Inline (
+ Java => 'DATA',
+ NATIVE_DOUBLES => 2,
+) ;
+
+
+BEGIN {
+ plan(tests => 1) ;
+}
+
+
+my $t = new t15() ;
+
+{
+ ok($t->_Double(0.056200000000000028) == 0.056200000000000028) ;
+}
+
+ok($t->__get_private()->{proto}->ObjectCount(), 1) ;
+
+
+
+
+__END__
+
+__Java__
+
+class t15 {
+ public t15(){
+ }
+
+ public Double _Double(Double d){
+ return d ;
+ }
+}
+
+
--
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