Examples/test-suite/scilab/primitive_types_runme.sci

exec("swigtest.start", -1);

// Check passing by value

checkequal(val_double(42), 42, "val_double() test fails.");
checkequal(val_float(42), 42, "val_float() test fails.");

checkequal(val_char('a'), 'a', "val_char() test fails.");
checkequal(val_schar(42), 42, "val_schar() test fails.");
checkequal(val_schar(int8(42)), 42, "val_schar() test fails.");
checkequal(val_uchar(uint8(42)), 42, "val_uchar() test fails.");

checkequal(val_short(42), 42, "val_short() test fails.");
checkequal(val_short(int16(42)), 42, "val_short() test fails.");
checkequal(val_ushort(uint16(42)), 42, "val_ushort() test fails.");

checkequal(val_int(42), 42, "val_int() test fails.");
checkequal(val_int(int32(42)), 42, "val_int() test fails.");
checkequal(val_uint(uint32(42)), 42, "val_uint() test fails.");

checkequal(val_long(42), 42, "val_long() test fails.");
checkequal(val_long(int32(42)), 42, "val_long() test fails.");
checkequal(val_ulong(uint32(42)), 42, "val_long() test fails.");

checkequal(val_bool(%t), %t, "val_bool() test fails.");

// longlong is not supported in Scilab 5.x
//checkequal(val_llong(42), 42, "val_llong() test fails.");
//checkequal(val_llong(int64(42)), 42, "val_llong() test fails.");
//checkequal(val_ullong(uint64(42)), 42, "val_ullong() test fails.");

// Check passing by reference
checkequal(ref_char('a'), 'a', "ref_char() test fails.");
checkequal(ref_schar(42), 42, "ref_schar() test fails.");
checkequal(ref_schar(int8(42)), 42, "ref_schar() test fails.");
checkequal(ref_uchar(uint8(42)), 42, "ref_uchar() test fails.");

checkequal(ref_short(42), 42, "ref_short() test fails.")
checkequal(ref_short(int16(42)), 42, "ref_short() test fails.")
checkequal(ref_ushort(uint16(42)), 42, "ref_ushort() test fails.")

checkequal(ref_int(42), 42, "ref_int() test fails.");
checkequal(ref_int(int32(42)), 42, "ref_int() test fails.");
checkequal(ref_uint(uint32(42)), 42, "ref_uint() test fails.");

checkequal(ref_long(42), 42, "ref_long() test fails.");
checkequal(ref_long(int32(42)), 42, "ref_long() test fails.");
checkequal(ref_ulong(uint32(42)), 42, "ref_ulong() test fails.");

checkequal(ref_bool(%t), %t, "ref_bool() test fails.");

// long long is not supported in Scilab 5.x
//checkequal(ref_llong(42), 42, "ref_llong() test fails.");
//checkequal(ref_llong(int64(42)), 42, "ref_llong() test fails.");
//checkequal(ref_ullong(uint64(42)), 42, "ref_ullong() test fails.");

exec("swigtest.quit", -1);