dwww Home | Show directory contents | Find package

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.