lines(0); warning('off'); ilib_verbose(0); ver = getversion('scilab'); // Get test name (used in swigtest.quit file) [units, typ, names] = file(1); swigtestname = strsubst(fileparts(names, "fname"), "_runme", ""); // Does the library exists? If not then exit! libname = "lib" + swigtestname + getdynlibext(); if ~isfile(libname) then mfprintf(0, "*** LIBRARY NOT FOUND: %s ***\n", libname); exit(1) end // Load library try exec("loader.sce", -1); catch mfprintf(0, "*** LOADER EXECUTION FAILED ***\n"); exit(1) end // Module initialization try if ver(1) < 6 then entry = stripblanks(part(swigtestname, 1:24-5)); else entry = swigtestname; end moduleInit = sprintf("%s_Init()", entry); execstr(moduleInit); catch mfprintf(0, "*** MODULE INIT FAILED ***\n"); exit(1) end // Error management function function swigtesterror(msg) [lines, names] = where(); if size(lines, '*') > 0 mfprintf(0, "*** TEST FAILED (at line %d) ***\n", lines($)); if argn(2) >= 1 then disp(msg); end else mfprintf(0, "*** TEST FAILED ***\n"); end; exit(1) endfunction // Check equal function function checkequal(returned, expected, message) if typeof(returned) <> typeof(expected) then returned_type_msg = ["returned type:"; typeof(returned)]; expected_type_msg = ["expected type:"; typeof(expected)]; swigtesterror([message; returned_type_msg; expected_type_msg]); end if ~isequal(returned, expected) then returned_value_msg = ["returned value:"; string(returned)]; expected_value_msg = ["expected value:"; string(expected)]; swigtesterror([message; returned_value_msg; expected_value_msg]); end endfunction
Generated by dwww version 1.15 on Tue Jul 2 00:17:34 CEST 2024.