use Test::More;
use strict;
use warnings;
{
package Hi3;
use strict;
use warnings;
use Config;
use File::Spec;
BEGIN {
  $ENV{CLASSPATH} = join $Config{path_sep}, grep defined, $ENV{CLASSPATH}, File::Spec->catfile(qw(t t16subclass.jar));
}
use Inline Java => 'STUDY', STUDY => ['t16subclass'];
sub new {
        my $class = shift;
#       print "class name is $class \n";
        my $a = shift;
        my $b = shift;
        return Hi3::t16subclass->t16subclass($a, $b);
}
}
my $Higher1 = Hi3->new(5,10);
is $Higher1->printValues(), "a = 5\nb = 10";
done_testing;