package require java

set f [java::new java.awt.Frame]
$f setTitle "Hello World!"

set text [java::new java.awt.TextArea]
$text setText "Java text example in MyrmecoX."
$f {add java.awt.Component} $text

$f setLocation 256 100; $f pack; $f toFront; $f show

Following example shows how easy to use MyrmecoX to test the Java codes with tcltest.

package require java
package require tcltest

Test Java charAt() method. "1.1" is the name, or identifier, of the test.

tcltest::test 1.1 {
  java.lang.String.charAt() method work?}  { 

test and compare the return result. If the 7th char is not H, the test will return an error result. We can write any test scripts in the test body.

	set s [::java::new String "I am a Java String"]
	$s charAt 7 
} H