1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
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);
|
