30 lines
1.3 KiB
Scilab
30 lines
1.3 KiB
Scilab
exec("swigtest.start", -1);
|
|
|
|
// Negative values
|
|
checkequal(signed_char_identity(-1), -1, "signed_char_identity(-1)");
|
|
checkequal(signed_short_identity(-1), -1, "signed_short_identity(-1)");
|
|
checkequal(signed_int_identity(-1), -1, "signed_int_identity(-1)");
|
|
checkequal(signed_long_identity(-1), -1, "signed_long_identity(-1)");
|
|
|
|
// Overflow errors
|
|
ierr = execstr('signed_char_identity(2^8)', 'errcatch');
|
|
checkequal(ierr, 20007, 'signed_char_identity(2^8)');
|
|
ierr = execstr('signed_short_identity(2^16)', 'errcatch');
|
|
checkequal(ierr, 20007, 'signed_short_identity(2^16)');
|
|
ierr = execstr('signed_int_identity(2^32)', 'errcatch');
|
|
checkequal(ierr, 20007, 'signed_int_identity(2^32)');
|
|
ierr = execstr('signed_long_identity(2^64)', 'errcatch');
|
|
checkequal(ierr, 20007, 'signed_long_identity(2^64)');
|
|
|
|
// Value errors
|
|
ierr = execstr('signed_char_identity(100.2)', 'errcatch');
|
|
checkequal(ierr, 20009, 'signed_char_identity(100.2)');
|
|
ierr = execstr('signed_short_identity(100.2)', 'errcatch');
|
|
checkequal(ierr, 20009, 'signed_short_identity(100.2)');
|
|
ierr = execstr('signed_int_identity(100.2)', 'errcatch');
|
|
checkequal(ierr, 20009, 'signed_int_identity(100.2)');
|
|
ierr = execstr('signed_long_identity(100.2)', 'errcatch');
|
|
checkequal(ierr, 20009, 'signed_long_identity(100.2)');
|
|
|
|
exec("swigtest.quit", -1);
|