jyapayne/swig
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

scilab: fix tests having too long identifier names

Browse source
This commit is contained in:
Simon Marchetto 2014-09-29 14:52:05 +02:00
commit 7307d967d0
16 changed files with 97 additions and 45 deletions
Download patch file Download diff file Expand all files Collapse all files

31
Examples/test-suite/scilab/apply_signed_char_runme.sci
View file

@ -1,42 +1,41 @@
exec("swigtest.start", -1);
smallnum = int8(-127);
if CharValFunction(smallnum) <> smallnum then swigtesterror(); end
if CCharValFunction(smallnum) <> smallnum then swigtesterror(); end
if CCharRefFunction(smallnum) <> smallnum then swigtesterror(); end
smallnum = -127;
checkequal(CharValFunction(smallnum), smallnum, "CharValFunction(smallnum)");
checkequal(CCharValFunction(smallnum), smallnum, "CCharValFunction(smallnum)");
checkequal(CCharRefFunction(smallnum), smallnum, "CCharRefFunction(smallnum)");
try
globalchar_set(smallnum);
catch
swigtesterror();
end
if globalchar_get() <> smallnum then swigtesterror(); end
if globalconstchar_get() <> -110 then swigtesterror(); end
checkequal(globalchar_get(), smallnum, "globalchar_get()");
checkequal(globalconstchar_get(), -110, "globalconstchar_get()");
try
directorTest = new_DirectorTest();
dirTest = new_DirTest();
catch
swigtesterror();
end
if DirectorTest_CharValFunction(directorTest, smallnum) <> smallnum then swigtesterror(); end
if DirectorTest_CCharValFunction(directorTest, smallnum) <> smallnum then swigtesterror(); end
if DirectorTest_CCharRefFunction(directorTest, smallnum) <> smallnum then swigtesterror(); end
checkequal(DirTest_CharValFunction(dirTest, smallnum), smallnum, "DirTest_CharValFunction(dirTest, smallnum)");
checkequal(DirTest_CCharValFunction(dirTest, smallnum), smallnum, "DirTest_CCharValFunction(dirTest, smallnum)");
checkequal(DirTest_CCharRefFunction(dirTest, smallnum), smallnum, "DirTest_CCharRefFunction(dirTest, smallnum)");
// TODO Too long identifiers
//if DirectorTest_memberchar_get(directorTest) <> -111 then swigtesterror(); end
//if dirTest_memberchar_get(dirTest) <> -111 then swigtesterror(); end
//try
// DirectorTest_memberchar_set(directorTest, smallnum)
// dirTest_memberchar_set(dirTest, smallnum)
//catch
// swigtesterror();
//end
//if DirectorTest_memberchar_get(directorTest) <> smallnum then swigtesterror(); end
//if dirTest_memberchar_get(dirTest) <> smallnum then swigtesterror(); end
//if DirectorTest_memberconstchar_get(directorTest) <> -112 then swigtesterror(); end
//if dirTest_memberconstchar_get(dirTest) <> -112 then swigtesterror(); end
try
delete_DirectorTest(directorTest);
delete_DirTest(dirTest);
catch
swigtesterror();
end