diff options
Diffstat (limited to 'jpl/JNI/test.pl')
| -rw-r--r-- | jpl/JNI/test.pl | 40 |
1 files changed, 39 insertions, 1 deletions
diff --git a/jpl/JNI/test.pl b/jpl/JNI/test.pl index 816e28bcf2..9c5238eb9f 100644 --- 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"; |