use strict ;
use Test::More tests => 28;
use Inline(
        Java => 'DATA',
) ;
use Inline::Java qw(cast);
my $t = new types4() ;
{
        $t->{_byte} = 123 ;
        cmp_ok($t->{_byte}, '==', 123) ;
        $t->{_Byte} = 123 ;
        cmp_ok($t->{_Byte}, '==', 123) ;
         
        $t->{_short} = 123 ;
        cmp_ok($t->{_short}, '==', 123) ;
        $t->{_Short} = 123 ;
        cmp_ok($t->{_Short}, '==', 123) ;
         
        $t->{_int} = 123 ;
        cmp_ok($t->{_int}, '==', 123) ;
        $t->{_Integer} = 123 ;
        cmp_ok($t->{_Integer}, '==', 123) ;
         
        $t->{_long} = 123 ;
        cmp_ok($t->{_long}, '==', 123) ;
        $t->{_Long} = 123 ;
        cmp_ok($t->{_Long}, '==', 123) ;
         
        $t->{_float} = 123.456 ;
        cmp_ok($t->{_float}, '==', 123.456) ;
        $t->{_Float} = 123.456 ;
        cmp_ok($t->{_Float}, '==', 123.456) ;
         
        $t->{_double} = 123.456 ;
        cmp_ok($t->{_double}, '==', 123.456) ;
        $t->{_Double} = 123.456 ;
        cmp_ok($t->{_Double}, '==', 123.456) ;
         
        $t->{_boolean} = 1 ;
        ok($t->{_boolean}) ;
        $t->{_Boolean} = 1 ;
        ok($t->{_Boolean}) ;
         
        $t->{_char} = "a" ;
        is($t->{_char}, "a") ;
        $t->{_Character} = "a" ;
        is($t->{_Character}, "a") ;
         
        $t->{_String} = "string" ;
        is($t->{_String}, "string") ;
        $t->{_StringBuffer} = "stringbuffer" ;
        is($t->{_StringBuffer}, "stringbuffer") ;
         
        my $obj1 = obj14->new;
        $t->{_Object} = $obj1 ;
        is(cast('obj14', $t->{_Object})->get_data(), "obj1") ;
        $t->{_Object} = "object" ;
        is($t->{_Object}, "object") ;
         
        $t->{_Object} = undef ;
        is($t->{_Object}, undef) ;
        $t->{_int} = undef ;
        cmp_ok($t->{_int}, '==', 0) ;
         
        # Receive an unbound object and try to call a member
        my $unb = $t->get_unbound() ;
        eval {$unb->{toto} = 1} ; like($@, qr/Can't set member/) ;
        eval {my $a = $unb->{toto}} ; like($@, qr/Can't get member/) ;
         
        # Unexisting member
        eval {$t->{toto} = 1} ; like($@, qr/No public member/) ;
        eval {my $a = $t->{toto}} ; like($@, qr/No public member/) ;
         
        # Incompatible type
        eval {$t->{_long} = $obj1} ; like($@, qr/Can't convert/) ;
}
is($t->__get_private()->{proto}->ObjectCount(), 1) ;
__END__
__Java__
import java.util.* ;
class obj14 {
        String data = "obj1" ;
        public obj14() {
        }
        public String get_data(){
                return data ;           
        }
}
class types4 {
        public byte _byte ;
        public Byte _Byte ;
        public short _short ;
        public Short _Short ;
        public int _int ;
        public Integer _Integer ;
        public long _long ;
        public Long _Long ;
        public float _float ;
        public Float _Float ;
        public double _double ;
        public Double _Double ;
        public boolean _boolean ;
        public Boolean _Boolean ;
        public char _char ;
        public Character _Character ;
        public String _String ;
        public StringBuffer _StringBuffer ;
        public Object _Object ;
        public types4(){
        }
        public ArrayList<String> get_unbound(){
                ArrayList<String> al = new ArrayList<>() ;
                al.add(0, "al_elem") ;
                return al ;
        }
        public String send_unbound(ArrayList<String> al){
                return (String)al.get(0) ;
        }
}