From 67aba0bfc2b282e08418261fcb8d79669d414d67 Mon Sep 17 00:00:00 2001 From: Simon Marchetto Date: Fri, 7 Feb 2014 15:42:58 +0100 Subject: [PATCH] scilab: move integer error tests in integers test --- Examples/test-suite/scilab/integers_runme.sci | 29 +++++++++++++++++++ .../scilab/primitive_types_runme.sci | 18 ------------ 2 files changed, 29 insertions(+), 18 deletions(-) create mode 100644 Examples/test-suite/scilab/integers_runme.sci diff --git a/Examples/test-suite/scilab/integers_runme.sci b/Examples/test-suite/scilab/integers_runme.sci new file mode 100644 index 000000000..fc588b8bb --- /dev/null +++ b/Examples/test-suite/scilab/integers_runme.sci @@ -0,0 +1,29 @@ +exec("swigtest.start", -1); + +// Negative values +if signed_char_identity(-1) <> -1 then swigtesterror(); end +if signed_short_identity(-1) <> -1 then swigtesterror(); end +if signed_int_identity(-1) <> -1 then swigtesterror(); end +if signed_long_identity(-1) <> -1 then swigtesterror(); end + +// Overflow errors +ierr = execstr('signed_char_identity(2^8)', 'errcatch'); +if ierr <> 999 then swigtesterror(); end +ierr = execstr('signed_short_identity(2^16)', 'errcatch'); +if ierr <> 999 then swigtesterror(); end +ierr = execstr('signed_int_identity(2^32)', 'errcatch'); +if ierr <> 999 then swigtesterror(); end +ierr = execstr('signed_long_identity(2^64)', 'errcatch'); +if ierr <> 999 then swigtesterror(); end + +// Value errors +ierr = execstr('signed_char_identity(100.2)', 'errcatch'); +if ierr <> 999 then swigtesterror(); end +ierr = execstr('signed_short_identity(100.2)', 'errcatch'); +if ierr <> 999 then swigtesterror(); end +ierr = execstr('signed_int_identity(100.2)', 'errcatch'); +if ierr <> 999 then swigtesterror(); end +ierr = execstr('signed_long_identity(100.2)', 'errcatch'); +if ierr <> 999 then swigtesterror(); end + +exec("swigtest.quit", -1); diff --git a/Examples/test-suite/scilab/primitive_types_runme.sci b/Examples/test-suite/scilab/primitive_types_runme.sci index b8d54f4d2..15227e769 100644 --- a/Examples/test-suite/scilab/primitive_types_runme.sci +++ b/Examples/test-suite/scilab/primitive_types_runme.sci @@ -58,23 +58,5 @@ if (ref_bool(%t) <> %t) then swigtesterror(); end //if (ref_ullong(42) <> 42) then swigtesterror(); end //if (ref_ullong(uint64(42)) <> uint64(42)) then swigtesterror(); end -// check errors -ierr = execstr('val_schar(2^9)', 'errcatch'); -if ierr <> 999 then swigtesterror(); end -ierr = execstr('val_schar(100.2)', 'errcatch'); -if ierr <> 999 then swigtesterror(); end -ierr = execstr('val_short(2^17)', 'errcatch'); -if ierr <> 999 then swigtesterror(); end -ierr = execstr('val_short(100.2)', 'errcatch'); -if ierr <> 999 then swigtesterror(); end -ierr = execstr('val_int(2^33)', 'errcatch'); -if ierr <> 999 then swigtesterror(); end -ierr = execstr('val_int(100.2)', 'errcatch'); -if ierr <> 999 then swigtesterror(); end -ierr = execstr('val_long(2^65)', 'errcatch'); -if ierr <> 999 then swigtesterror(); end -ierr = execstr('val_long(100.2)', 'errcatch'); -if ierr <> 999 then swigtesterror(); end - exec("swigtest.quit", -1);