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

New test for strings

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/branches/gsoc2009-sploving@12579 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Vincent Couvert 2011-03-31 12:30:12 +00:00
commit dca46d044f
4 changed files with 57 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

45
Examples/test-suite/scilab/apply_strings_runme.sci Normal file
View file

@ -0,0 +1,45 @@
exec("swigtest.start", -1);
testString = "Scilab test string";
if UCharFunction(testString) <> testString then swigtesterror(); end
if SCharFunction(testString) <> testString then swigtesterror(); end
if CUCharFunction(testString) <> testString then swigtesterror(); end
if CSCharFunction(testString) <> testString then swigtesterror(); end
//if CharFunction(testString) <> testString then swigtesterror(); end
//if CCharFunction(testString) <> testString then swigtesterror(); end
try
tNumber = new_TNumber()
catch
swigtesterror();
end
//TNumber_DigitsMemberA_get()
//TNumber_DigitsMemberA_set
//TNumber_DigitsMemberB_get()
//TNumber_DigitsMemberB_set
try
delete_TNumber(tNumber)
catch
swigtesterror();
end
try
directorTest = new_DirectorTest();
catch
swigtesterror();
end
if DirectorTest_UCharFunction(directorTest, testString) <> testString then swigtesterror(); end
if DirectorTest_SCharFunction(directorTest, testString) <> testString then swigtesterror(); end
if DirectorTest_CUCharFunction(directorTest, testString) <> testString then swigtesterror(); end
if DirectorTest_CSCharFunction(directorTest, testString) <> testString then swigtesterror(); end
//if DirectorTest_CharFunction(directorTest, testString) <> testString then swigtesterror(); end
//if DirectorTest_CCharFunction(directorTest, testString) <> testString then swigtesterror(); end
try
delete_DirectorTest(directorTest);
catch
swigtesterror();
end
exec("swigtest.quit", -1);