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

[Jonas Smedegaard]

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 472d25e1d2dd78fee7ec5015822d9df7e906e492
Author: patrick <>
Date:   Tue May 8 19:14:35 2001 +0000

    Initial revision
---
 t/08_study.t  |  24 ++++++++++++++++++++++++
 t/types.class | Bin 0 -> 485 bytes
 2 files changed, 24 insertions(+)

diff --git a/t/08_study.t b/t/08_study.t
new file mode 100644
index 0000000..dd70316
--- /dev/null
+++ b/t/08_study.t
@@ -0,0 +1,24 @@
+use strict ;
+use Test ;
+
+use Inline Config => 
+           DIRECTORY => './_Inline_test';
+
+use Inline(
+	Java => 'STUDY',
+	AUTOSTUDY => 1,
+) ;
+
+
+
+BEGIN {
+	plan(tests => 2) ;
+}
+
+
+Inline::Java::study_it(['t.types']) ;
+
+my $t = new t::types() ;
+ok($t->func(), "study") ;
+ok($t->hm()->get("key"), "value") ;
+
diff --git a/t/types.class b/t/types.class
new file mode 100644
index 0000000..6c8e580
Binary files /dev/null and b/t/types.class differ

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