use strict ;
use Test ;
use Inline (
        Java => 'DATA'
) ;
BEGIN {
        plan(tests => 9) ;
}
my $t = new t14() ;
{
        ok($t->_String("A"), "A") ;
        ok($t->_String("\x{41}"), "A") ;
        ok($t->_String("A"), "\x{41}") ;
        # This is E9 (233), which is e acute. Although the byte
        # E9 is invalid in UTF-8, the character 233 is valid and 
        # all should work out.
        ok($t->_String("\x{E9}"), "\x{E9}") ;
        my $a = $t->toCharArray("\x{E9}") ;
        ok(ord($a->[0]) == 233) ;
        # Send a unicode escape sequence.
        ok($t->_String("\x{263A}"), "\x{263A}") ;
        # Generate some binary data
        my $bin = '' ;
        for (my $i = 0; $i < 256 ; $i++) {
                my $c = chr($i) ;
                $bin .= $c ;
        }
        ok($t->_String($bin), $bin) ;
        # Mix it up
        ok($t->_String("$bin\x{E9}\x{263A}"), "$bin\x{E9}\x{263A}") ;
}
ok($t->__get_private()->{proto}->ObjectCount(), 1) ;
__END__
__Java__
class t14 {
        public t14(){
        }
        public String _String(String s){
                return s ;
        }
        public char [] toCharArray(String s){
                return s.toCharArray() ;
        }
}