Re-integrate mainline

[p5sagit/p5-mst-13.2.git] / jpl / JNI / test.pl

diff --git a/jpl/JNI/test.pl b/jpl/JNI/test.pl
index 816e28b..9c5238e 100644 (file)
--- a/jpl/JNI/test.pl
+++ b/jpl/JNI/test.pl
@@ -6,7 +6,7 @@
 # Change 1..1 below to 1..last_test_to_print .
 # (It may become useful if the test is moved to ./t subdirectory.)
 
-BEGIN { $| = 1; print "1..1\n"; }
+BEGIN { $| = 1; print "1..3\n"; }
 END {print "not ok 1\n" unless $loaded;}
 use JNI;
 $loaded = 1;
@@ -18,3 +18,41 @@ print "ok 1\n";
 # (correspondingly "not ok 13") depending on the success of chunk 13
 # of the test code):
 
+# Simple StringBuffer test.
+#
+use JPL::AutoLoader;
+use JPL::Class 'java::lang::StringBuffer';
+$sb = java::lang::StringBuffer->new__s("TEST");
+if ($sb->toString____s() eq "TEST") {
+    print "ok 2\n";
+} else {
+    print "not ok 2\n";
+}
+
+# Put up a frame and let the user close it.
+#
+use JPL::AutoLoader;
+use JPL::Class 'java::awt::Frame';
+use JPL::Class 'Closer';
+
+$f = java::awt::Frame->new__s("Close Me, Please!");
+my $setSize = getmeth("setSize", ["int", "int"], []);
+my $addWindowListener = getmeth("addWindowListener",
+            ["java.awt.event.WindowListener"], []);
+
+$f->$addWindowListener( new Closer );
+$f->$setSize(200,200);
+$f->show();
+
+while (1) {
+
+    if (!$f->isVisible____Z) {
+        last;
+    }
+
+    # Sleep a bit.
+    #
+    sleep 1;
+}
+
+print "ok 3\n";