Examples/test-suite/scilab/arrays_dimensionless_runme.sci

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

// bool
checkequal(arr_bool([%T %F %F %T %F %T %T %T], 8), 5, "arr_bool");

// char
checkequal(arr_char(["charptr"], 7), 756, "arr_char");

// signed char
checkequal(arr_schar([1, 2, 3, 4], 4), 10, "arr_schar");
checkequal(arr_schar(int8([1, 2, 3, 4]), 4), 10, "arr_schar");

// unsigned char
checkequal(arr_uchar([1, 2, 3, 4], 4), 10, "arr_uchar");
checkequal(arr_uchar(uint8([1, 2, 3, 4]), 4), 10, "arr_uchar");

// short
checkequal(arr_short([1, 2, 3, 4], 4), 10, "arr_short");
checkequal(arr_short(int16([1, 2, 3, 4]), 4), 10, "arr_short");

// unsigned short
checkequal(arr_ushort([1, 2, 3, 4], 4), 10, "arr_ushort");
checkequal(arr_ushort(uint16([1, 2, 3, 4]), 4), 10, "arr_ushort");

// int
checkequal(arr_int([1, 2, 3, 4], 4), 10, "arr_int");
checkequal(arr_int(int32([1, 2, 3, 4]), 4), 10, "arr_int");

// unsigned int
checkequal(arr_uint([1, 2, 3, 4], 4), 10, "");
checkequal(arr_uint(uint32([1, 2, 3, 4]), 4), 10, "");

// long
checkequal(arr_long([1, 2, 3, 4], 4), 10, "arr_long");
checkequal(arr_long(int32([1, 2, 3, 4]), 4), 10, "arr_long");

// unsigned long
checkequal(arr_ulong([1, 2, 3, 4], 4), 10, "arr_ulong");
checkequal(arr_ulong(uint32([1, 2, 3, 4]), 4), 10, "arr_ulong");

// long long
// No equivalent in Scilab 5

// unsigned long long
// No equivalent in Scilab 5

// float
a = [1, 2, 3, 4];
checkequal(arr_float(a, 4), 10, "arr_float");

// double
a = [1, 2, 3, 4];
checkequal(arr_double(a, 4), 10, "arr_double");

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