| 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); |