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 3aa0748469653a2857d214ff31a2600b3e465586
Author: Patrick LeBoutillier <p...@cpan.org>
Date:   Mon Jan 14 15:00:18 2002 +0000

    Initial revision
---
 t/swing_gui_test.pl | 47 ++++++++++++++++++++++++++++++++++
 t/t1.pl             | 34 ++++++++++++++++++++++++
 t/t2.pl             | 74 +++++++++++++++++++++++++++++++++++++++++++++++++++++
 t/t3.pl             | 42 ++++++++++++++++++++++++++++++
 t/t4.pl             | 58 +++++++++++++++++++++++++++++++++++++++++
 t/t5.pl             | 73 ++++++++++++++++++++++++++++++++++++++++++++++++++++
 6 files changed, 328 insertions(+)

diff --git a/t/swing_gui_test.pl b/t/swing_gui_test.pl
new file mode 100644
index 0000000..172babb
--- /dev/null
+++ b/t/swing_gui_test.pl
@@ -0,0 +1,47 @@
+use strict ;
+
+use blib ;
+
+BEGIN {
+       # $ENV{PERL_INLINE_JAVA_JNI} = 0 ;
+       mkdir('./_Inline_test', 0777) unless -e './_Inline_test';
+}
+
+use Inline Config => 
+           DIRECTORY => './_Inline_test' ;
+
+use Inline (
+       Java => 'DATA',
+       STUDY => [
+               'javax.swing.JFrame',
+               'javax.swing.JPanel',
+       ],
+) ;
+
+
+my $f = HelloJava1->get_frame("HelloJava1") ;
+$f->setSize(140, 100) ;
+$f->getContentPane()->add(new HelloJava1()) ;
+$f->setVisible(1) ;
+
+<STDIN> ;
+
+
+__END__
+
+__Java__
+
+
+class HelloJava1 extends javax.swing.JComponent {
+  public HelloJava1() {
+  }
+
+  public void paintComponent(java.awt.Graphics g) {
+    g.drawString("Hello from Java!", 17, 40) ;
+  }
+
+  public static javax.swing.JFrame get_frame(String name) {
+    return new javax.swing.JFrame(name) ;
+  }
+}
+
diff --git a/t/t1.pl b/t/t1.pl
new file mode 100755
index 0000000..b988c09
--- /dev/null
+++ b/t/t1.pl
@@ -0,0 +1,34 @@
+#!/home/patrickl/bin/perl56
+
+use strict ;
+
+use lib "/home/patrickl/perl/dev" ;
+use lib "/home/patrickl/perl/dev/Inline/blib/arch/auto/Inline/Java/JNI" ;
+
+
+BEGIN {
+       mkdir('./_Inline_test', 0777) unless -e './_Inline_test';
+}
+
+use Inline Config => 
+           DIRECTORY => './_Inline_test' ;
+
+use Inline (
+       Java => qq|
+               class t  {
+                       static int s = 0 ;
+
+                       public t(){
+                       }
+               }
+       |, 
+) ;
+
+my $t = new t() ;
+$t::s++ ;
+$t::s++ ;
+print $t::s . "\n" ;
+
+
+
+
diff --git a/t/t2.pl b/t/t2.pl
new file mode 100755
index 0000000..98c968e
--- /dev/null
+++ b/t/t2.pl
@@ -0,0 +1,74 @@
+#!/home/patrickl/bin/perl56
+
+use strict ;
+
+use lib "/home/patrickl/perl/dev" ;
+use lib "/home/patrickl/perl/dev/Inline/blib/arch/auto/Inline/Java/JNI" ;
+
+use Inline Config => 
+       DIRECTORY => './_Inline_test',
+       # PRINT_INFO => 1,
+;
+
+
+BEGIN {
+       $Inline::Java::DEBUG = 1 ;
+}
+
+
+package Foo ;
+
+use Inline (
+       Java => <<'END',
+class Foo {
+   String data = "data" ;
+
+   public Foo() {
+      System.out.println("new Foo object being created") ;
+   }
+
+   public String get_data(){
+      return data ;
+   }
+
+   public void set_data(String d){
+      data = d ;
+   }
+
+   public class Fighters {
+      public Fighters() {
+      }
+   }
+}
+END
+       FORCE_BUILD => 1,
+       NAME => "Foo") ;
+
+
+package Bar ;
+
+use Inline (
+       Java => <<'END',
+class Bar extends Foo {
+   String data = "data" ;
+
+   public Bar(Foo f) {
+      System.out.println("new Bar object being created") ;
+   }
+
+   public String get_data(){
+      return data ;
+   }
+
+   public void set_data(String d){
+      data = d ;
+   }
+}
+END
+       FORCE_BUILD => 1,
+       NAME => "Bar") ;
+
+
+my $f = new Foo::Foo() ;
+my $b = new Bar::Bar($f) ;
+
diff --git a/t/t3.pl b/t/t3.pl
new file mode 100755
index 0000000..1bb8641
--- /dev/null
+++ b/t/t3.pl
@@ -0,0 +1,42 @@
+#!/usr/local/perl56/bin/perl
+
+use lib "/home/patrick/perl/dev" ;
+
+require "Inline/Java.pm" ;
+use Inline::Java::Array ;
+use Data::Dumper ;
+
+$Inline::Java::DEBUG = 1 ;
+
+
+my $obj = {} ;
+bless($obj, "Inline::Java::Object") ;
+
+my $a = new Inline::Java::Array("[[[I") ;
+
+my $ref = [
+       [
+               [1, 2, 3],
+               [4, 5],
+       ],
+       [
+               [6, 7, 8],
+               [9],
+       ],
+] ;
+
+$a->__init_from_array($ref) ;
+my $flat = $a->__flatten_array() ;
+
+my $b = new Inline::Java::Array("[[[I") ;
+$b->__init_from_flat(@{$flat}) ;
+
+
+my $aa = Dumper($a) ;
+my $bb = Dumper($b) ;
+
+
+if ($aa eq $bb){
+       die("Happy man!") ;
+}
+
diff --git a/t/t4.pl b/t/t4.pl
new file mode 100755
index 0000000..777f245
--- /dev/null
+++ b/t/t4.pl
@@ -0,0 +1,58 @@
+#!/home/patrickl/bin/perl56
+
+use strict ;
+
+use lib "/home/patrickl/perl/dev" ;
+use lib "/home/patrickl/perl/dev/Inline/blib/arch/auto/Inline/Java/JNI" ;
+
+
+BEGIN {
+       mkdir('./_Inline_test', 0777) unless -e './_Inline_test';
+}
+
+
+use Inline Config => 
+           DIRECTORY => './_Inline_test' ;
+
+
+my @tests = split(/;;;;;/,<<'ETESTS');
+Inline->bind(Java => <<'JAVA',
+class a {
+  public a(){
+  }
+  public int get(){
+    return 5 ;
+  }
+}
+JAVA
+NAME => "a"
+) ;
+
+my $a = new a() ;
+print $a->get() . "\n" ;
+;;;;;
+Inline->bind(Java => <<'JAVA',
+class b {
+  public b(){
+  }
+  public int get(){
+    return 6 ;
+  }
+}
+JAVA
+NAME => "a"
+) ;
+
+my $b = new b() ;
+print $b->get() . "\n" ;
+ETESTS
+
+foreach my $t (@tests){
+       # `rm -Rf ./_Inline_test/*` ;
+
+       eval $t ;
+       if ($@){
+               die $@ ;
+       }
+}
+
diff --git a/t/t5.pl b/t/t5.pl
new file mode 100755
index 0000000..335ed36
--- /dev/null
+++ b/t/t5.pl
@@ -0,0 +1,73 @@
+#!/home/patrickl/bin/perl56
+
+use strict ;
+
+use lib "/home/patrickl/perl/dev" ;
+use lib "/home/patrickl/perl/dev/Inline/blib/arch/auto/Inline/Java/JNI" ;
+
+
+BEGIN {
+       mkdir('./_Inline_test', 0777) unless -e './_Inline_test';
+}
+
+
+use Inline Config => 
+           DIRECTORY => './_Inline_test' ;
+
+
+my @tests = split(/;;;;;/,<<'ETESTS');
+Inline->bind(Java => <<'JAVA',
+class a {
+  public a(){
+  }
+  public int get(){
+    return 5 ;
+  }
+}
+JAVA
+NAME => "<PKG>"
+) ;
+
+my $a = new <PKG::>a() ;
+print $a->get() . "\n" ;
+;;;;;
+Inline->bind(Java => <<'JAVA',
+class b {
+  public b(){
+  }
+  public int get(){
+    return 6 ;
+  }
+}
+JAVA
+NAME => "<PKG>"
+) ;
+
+my $b = new <PKG::>b() ;
+print $b->get() . "\n" ;
+ETESTS
+
+
+
+my $nb = scalar(@tests) ;
+
+my $cp = "[PERL_INLINE_JAVA=" . join(", ", map{"Test$_"} (0..$nb-1)) . "]" ;
+$ENV{CLASSPATH} = $cp ;
+
+my $cnt = 0 ;
+foreach my $t (@tests){
+       # `rm -Rf ./_Inline_test/*` ;
+
+       # Insert the package name and replace the macros
+       my $pkg = "Test$cnt" ;
+       $t = "package $pkg ;\n" . $t ;
+       $t =~ s/<PKG(|::)>/$pkg$1/g ;
+
+       eval $t ;
+       if ($@){
+               die $@ ;
+       }
+       
+       $cnt++ ;
+}
+

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

_______________________________________________
Pkg-perl-cvs-commits mailing list
Pkg-perl-cvs-commits@lists.alioth.debian.org
http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits

Reply via email to