:- use_module(library(rtrace)).


:- use_module(library(gvar_syntax)).

:- use_module(library(dictoo)).

:- if(exists_source(library(jpl))).
:- use_module(library(jpl)).
:- endif.

test(0):- jpl_get('java.awt.Cursor', 'NE_RESIZE_CURSOR', $cursor.value ).

test(1):- $cursor.value == 7.

test(2):- jpl_new(array(class([java,lang],['String'])), [for,while,do,if,then,else,try,catch,finally], $my_array.value).

test(3):- writeln($my_array.value.3 = then).

test(4):- writeln(3-5 = $my_array.value.(3-5)).

test(5):- writeln(length = $my_array.value.length).

all_tests:- forall(test(_),true).

:- listing(test(_)).