Unused runtest removed
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@12391 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
William S Fulton
parent
6ce1f70de8
commit
9adb494558
1 changed files with 0 additions and 402 deletions
|
|
@ -1,402 +0,0 @@
|
|||
primitive_types
|
||||
|
||||
var_init();
|
||||
|
||||
# assigning globals calls
|
||||
cvar.var_bool = sct_bool;
|
||||
cvar.var_schar = sct_schar;
|
||||
cvar.var_uchar = sct_uchar;
|
||||
cvar.var_int = sct_int;
|
||||
cvar.var_uint = sct_uint;
|
||||
cvar.var_short = sct_short;
|
||||
cvar.var_ushort = sct_ushort;
|
||||
cvar.var_long = sct_long;
|
||||
cvar.var_ulong = sct_ulong;
|
||||
cvar.var_llong = sct_llong;
|
||||
cvar.var_ullong = sct_ullong;
|
||||
cvar.var_char = sct_char;
|
||||
cvar.var_pchar = sct_pchar;
|
||||
cvar.var_pcharc = sct_pcharc;
|
||||
cvar.var_pint = sct_pint;
|
||||
cvar.var_sizet = sct_sizet;
|
||||
cvar.var_hello = sct_hello;
|
||||
cvar.var_myint = sct_myint;
|
||||
cvar.var_namet = def_namet;
|
||||
cvar.var_parami = sct_parami;
|
||||
cvar.var_paramd = sct_paramd;
|
||||
cvar.var_paramc = sct_paramc;
|
||||
|
||||
v_check();
|
||||
|
||||
function octerror(name, val, cte)
|
||||
name, val, cte
|
||||
error
|
||||
endfunction
|
||||
|
||||
if cvar.var_bool != cct_bool:
|
||||
octerror("bool", cvar.var_bool, cct_bool)
|
||||
endif
|
||||
if cvar.var_schar != cct_schar:
|
||||
octerror("schar", cvar.var_schar, cct_schar)
|
||||
endif
|
||||
if cvar.var_uchar != cct_uchar:
|
||||
octerror("uchar", cvar.var_uchar, cct_uchar)
|
||||
endif
|
||||
if cvar.var_int != cct_int:
|
||||
octerror("int", cvar.var_int, cct_int)
|
||||
endif
|
||||
if cvar.var_uint != cct_uint:
|
||||
octerror("uint", cvar.var_uint, cct_uint)
|
||||
endif
|
||||
if cvar.var_short != cct_short:
|
||||
octerror("short", cvar.var_short, cct_short)
|
||||
endif
|
||||
if cvar.var_ushort != cct_ushort:
|
||||
octerror("ushort", cvar.var_ushort, cct_ushort)
|
||||
endif
|
||||
if cvar.var_long != cct_long:
|
||||
octerror("long", cvar.var_long, cct_long)
|
||||
endif
|
||||
if cvar.var_ulong != cct_ulong:
|
||||
octerror("ulong", cvar.var_ulong, cct_ulong)
|
||||
endif
|
||||
if cvar.var_llong != cct_llong:
|
||||
octerror("llong", cvar.var_llong, cct_llong)
|
||||
endif
|
||||
if cvar.var_ullong != cct_ullong:
|
||||
octerror("ullong", cvar.var_ullong, cct_ullong)
|
||||
endif
|
||||
if cvar.var_char != cct_char:
|
||||
octerror("char", cvar.var_char, cct_char)
|
||||
endif
|
||||
if cvar.var_pchar != cct_pchar:
|
||||
octerror("pchar", cvar.var_pchar, cct_pchar)
|
||||
endif
|
||||
if cvar.var_pcharc != cct_pcharc:
|
||||
octerror("pchar", cvar.var_pcharc, cct_pcharc)
|
||||
endif
|
||||
if cvar.var_pint != cct_pint:
|
||||
octerror("pint", cvar.var_pint, cct_pint)
|
||||
endif
|
||||
if cvar.var_sizet != cct_sizet:
|
||||
octerror("sizet", cvar.var_sizet, cct_sizet)
|
||||
endif
|
||||
if cvar.var_hello != cct_hello:
|
||||
octerror("hello", cvar.var_hello, cct_hello)
|
||||
endif
|
||||
if cvar.var_myint != cct_myint:
|
||||
octerror("myint", cvar.var_myint, cct_myint)
|
||||
endif
|
||||
if cvar.var_namet != def_namet:
|
||||
octerror("name", cvar.var_namet, def_namet)
|
||||
endif
|
||||
|
||||
|
||||
function OctTest()
|
||||
self=subclass(TestDirector);
|
||||
self.ident=@(self,x) x;
|
||||
|
||||
self.vval_bool=@(self, x) self.ident(x);
|
||||
self.vval_schar=@(self, x) self.ident(x);
|
||||
self.vval_uchar=@(self, x) self.ident(x);
|
||||
self.vval_int=@(self, x) self.ident(x);
|
||||
self.vval_uint=@(self, x) self.ident(x);
|
||||
self.vval_short=@(self, x) self.ident(x);
|
||||
self.vval_ushort=@(self, x) self.ident(x);
|
||||
self.vval_long=@(self, x) self.ident(x);
|
||||
self.vval_ulong=@(self, x) self.ident(x);
|
||||
self.vval_llong=@(self, x) self.ident(x);
|
||||
self.vval_ullong=@(self, x) self.ident(x);
|
||||
self.vval_float=@(self, x) self.ident(x);
|
||||
self.vval_double=@(self, x) self.ident(x);
|
||||
self.vval_char=@(self, x) self.ident(x);
|
||||
self.vval_pchar=@(self, x) self.ident(x);
|
||||
self.vval_pcharc=@(self, x) self.ident(x);
|
||||
self.vval_pint=@(self, x) self.ident(x);
|
||||
self.vval_sizet=@(self, x) self.ident(x);
|
||||
self.vval_hello=@(self, x) self.ident(x);
|
||||
self.vval_myint=@(self, x) self.ident(x);
|
||||
|
||||
self.vref_bool=@(self, x) self.ident(x);
|
||||
self.vref_schar=@(self, x) self.ident(x);
|
||||
self.vref_uchar=@(self, x) self.ident(x);
|
||||
self.vref_int=@(self, x) self.ident(x);
|
||||
self.vref_uint=@(self, x) self.ident(x);
|
||||
self.vref_short=@(self, x) self.ident(x);
|
||||
self.vref_ushort=@(self, x) self.ident(x);
|
||||
self.vref_long=@(self, x) self.ident(x);
|
||||
self.vref_ulong=@(self, x) self.ident(x);
|
||||
self.vref_llong=@(self, x) self.ident(x);
|
||||
self.vref_ullong=@(self, x) self.ident(x);
|
||||
self.vref_float=@(self, x) self.ident(x);
|
||||
self.vref_double=@(self, x) self.ident(x);
|
||||
self.vref_char=@(self, x) self.ident(x);
|
||||
self.vref_pchar=@(self, x) self.ident(x);
|
||||
self.vref_pcharc=@(self, x) self.ident(x);
|
||||
self.vref_pint=@(self, x) self.ident(x);
|
||||
self.vref_sizet=@(self, x) self.ident(x);
|
||||
self.vref_hello=@(self, x) self.ident(x);
|
||||
self.vref_myint=@(self, x) self.ident(x);
|
||||
endfunction
|
||||
|
||||
|
||||
t = Test();
|
||||
p = OctTest();
|
||||
|
||||
|
||||
# internal call check
|
||||
if (t.c_check() != p.c_check())
|
||||
error, "bad director"
|
||||
endif
|
||||
|
||||
p.var_bool = p.stc_bool;
|
||||
p.var_schar = p.stc_schar;
|
||||
p.var_uchar = p.stc_uchar;
|
||||
p.var_int = p.stc_int;
|
||||
p.var_uint = p.stc_uint;
|
||||
p.var_short = p.stc_short;
|
||||
p.var_ushort = p.stc_ushort;
|
||||
p.var_long = p.stc_long;
|
||||
p.var_ulong = p.stc_ulong;
|
||||
p.var_llong = p.stc_llong;
|
||||
p.var_ullong = p.stc_ullong;
|
||||
p.var_char = p.stc_char;
|
||||
p.var_pchar = sct_pchar;
|
||||
p.var_pcharc = sct_pcharc;
|
||||
p.var_pint = sct_pint;
|
||||
p.var_sizet = sct_sizet;
|
||||
p.var_hello = sct_hello;
|
||||
p.var_myint = sct_myint;
|
||||
p.var_namet = def_namet;
|
||||
p.var_parami = sct_parami;
|
||||
p.var_paramd = sct_paramd;
|
||||
p.var_paramc = sct_paramc;
|
||||
|
||||
p.v_check();
|
||||
|
||||
t.var_bool = t.stc_bool;
|
||||
t.var_schar = t.stc_schar;
|
||||
t.var_uchar = t.stc_uchar;
|
||||
t.var_int = t.stc_int;
|
||||
t.var_uint = t.stc_uint;
|
||||
t.var_short = t.stc_short;
|
||||
t.var_ushort = t.stc_ushort;
|
||||
t.var_long = t.stc_long;
|
||||
t.var_ulong = t.stc_ulong;
|
||||
t.var_llong = t.stc_llong;
|
||||
t.var_ullong = t.stc_ullong;
|
||||
t.var_char = t.stc_char;
|
||||
t.var_pchar = sct_pchar;
|
||||
t.var_pcharc = sct_pcharc;
|
||||
t.var_pint = sct_pint;
|
||||
t.var_sizet = sct_sizet;
|
||||
t.var_hello = sct_hello;
|
||||
t.var_myint = sct_myint;
|
||||
t.var_namet = def_namet;
|
||||
t.var_parami = sct_parami;
|
||||
t.var_paramd = sct_paramd;
|
||||
t.var_paramc = sct_paramc;
|
||||
|
||||
t.v_check();
|
||||
|
||||
# this value contains a '0' char!
|
||||
if (def_namet != 'ho\0la')
|
||||
error
|
||||
endif
|
||||
|
||||
t.var_namet = def_namet;
|
||||
if (t.var_namet != def_namet)
|
||||
error
|
||||
endif
|
||||
|
||||
t.var_namet = 'holac';
|
||||
|
||||
if (t.var_namet != 'holac')
|
||||
error
|
||||
endif
|
||||
|
||||
t.var_namet = 'hol';
|
||||
|
||||
if (t.var_namet != 'hol')
|
||||
error
|
||||
endif
|
||||
|
||||
if (t.strlen('hile') != 4)
|
||||
error
|
||||
endif
|
||||
|
||||
if (t.strlen('hil\0') != 4)
|
||||
error
|
||||
endif
|
||||
|
||||
cvar.var_char = '\0';
|
||||
if (cvar.var_char != '\0')
|
||||
error
|
||||
endif
|
||||
|
||||
cvar.var_char = 0;
|
||||
if (cvar.var_char != '\0')
|
||||
error
|
||||
endif
|
||||
|
||||
cvar.var_namet = '\0';
|
||||
if (cvar.var_namet != '')
|
||||
error
|
||||
endif
|
||||
|
||||
cvar.var_namet = '';
|
||||
if (cvar.var_namet != '')
|
||||
error, "bad char empty case"
|
||||
endif
|
||||
|
||||
cvar.var_pchar = None;
|
||||
if (cvar.var_pchar != None)
|
||||
error, "bad None case"
|
||||
endif
|
||||
|
||||
cvar.var_pchar = '';
|
||||
if (cvar.var_pchar != '')
|
||||
error
|
||||
endif
|
||||
|
||||
cvar.var_pcharc = None;
|
||||
if (cvar.var_pcharc != None)
|
||||
error
|
||||
endif
|
||||
|
||||
cvar.var_pcharc = '';
|
||||
if (cvar.var_pcharc != '')
|
||||
error
|
||||
endif
|
||||
|
||||
#
|
||||
# creating a raw char*
|
||||
#
|
||||
pc = new_pchar(5);
|
||||
pchar_setitem(pc, 0, 'h');
|
||||
pchar_setitem(pc, 1, 'o');
|
||||
pchar_setitem(pc, 2, 'l');
|
||||
pchar_setitem(pc, 3, 'a');
|
||||
pchar_setitem(pc, 4, 0);
|
||||
|
||||
|
||||
if (t.strlen(pc) != 4)
|
||||
error
|
||||
endif
|
||||
|
||||
cvar.var_pchar = pc;
|
||||
if (cvar.var_pchar != "hola")
|
||||
error
|
||||
endif
|
||||
|
||||
cvar.var_namet = pc;
|
||||
if (cvar.var_namet != "hola")
|
||||
error
|
||||
endif
|
||||
|
||||
delete_pchar(pc);
|
||||
|
||||
#
|
||||
# Now when things should fail
|
||||
#
|
||||
|
||||
try
|
||||
error = 0;
|
||||
a = t.var_uchar;
|
||||
t.var_uchar = 10000;
|
||||
err = 1;
|
||||
catch
|
||||
if (a != t.var_uchar)
|
||||
err = 1;
|
||||
endif
|
||||
end_try_catch
|
||||
|
||||
if (err)
|
||||
error
|
||||
endif
|
||||
|
||||
try
|
||||
err = 0;
|
||||
a = t.var_char;
|
||||
t.var_char = '23';
|
||||
err = 1;
|
||||
catch
|
||||
if (a != t.var_char)
|
||||
error = 1
|
||||
endif
|
||||
end_try_catch
|
||||
if (err)
|
||||
error
|
||||
endif
|
||||
|
||||
try
|
||||
err = 0
|
||||
a = t.var_uint
|
||||
t.var_uint = -1
|
||||
err = 1;
|
||||
catch
|
||||
if a != t.var_uint:
|
||||
err = 1;
|
||||
endif
|
||||
end_try_catch
|
||||
if (err)
|
||||
error
|
||||
endif
|
||||
|
||||
#
|
||||
#
|
||||
try
|
||||
err = 0;
|
||||
a = t.var_namet;
|
||||
t.var_namet = '123456';
|
||||
err = 1;
|
||||
catch
|
||||
if (a != t.var_namet)
|
||||
err = 1;
|
||||
endif
|
||||
end_try_catch
|
||||
if (err)
|
||||
error
|
||||
endif
|
||||
|
||||
#
|
||||
#
|
||||
#
|
||||
t2 = p.vtest(t);
|
||||
if (t.var_namet != t2.var_namet)
|
||||
error
|
||||
endif
|
||||
|
||||
|
||||
if (cvar.fixsize != 'ho\0la\0\0\0')
|
||||
error
|
||||
endif
|
||||
|
||||
cvar.fixsize = 'ho';
|
||||
if (cvar.fixsize != 'ho\0\0\0\0\0\0')
|
||||
error
|
||||
endif
|
||||
|
||||
|
||||
f = Foo(3);
|
||||
f1 = fptr_val(f);
|
||||
f2 = fptr_ref(f);
|
||||
if (f1._a != f2._a)
|
||||
error
|
||||
endif
|
||||
|
||||
v = char_foo(1,3);
|
||||
if (v !=3)
|
||||
error
|
||||
endif
|
||||
|
||||
s = char_foo(1,"hello");
|
||||
if (s !="hello")
|
||||
error
|
||||
endif
|
||||
|
||||
|
||||
v = SetPos(1,3);
|
||||
if (v !=4)
|
||||
error
|
||||
endif
|
||||
Loading…
Add table
Add a link
Reference in a new issue