1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
|
exec("swigtest.start", -1);
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
checkequal(globalchar_get(), smallnum, "globalchar_get()");
checkequal(globalconstchar_get(), -110, "globalconstchar_get()");
try
dirTest = new_DirTest();
catch
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 dirTest_memberchar_get(dirTest) <> -111 then swigtesterror(); end
//try
// dirTest_memberchar_set(dirTest, smallnum)
//catch
// swigtesterror();
//end
//if dirTest_memberchar_get(dirTest) <> smallnum then swigtesterror(); end
//if dirTest_memberconstchar_get(dirTest) <> -112 then swigtesterror(); end
try
delete_DirTest(dirTest);
catch
swigtesterror();
end
exec("swigtest.quit", -1);
|
