diff options
author | Derrick <a11426@users.sourceforge.net> | 2011-02-14 20:11:58 +0000 |
---|---|---|
committer | Derrick <a11426@users.sourceforge.net> | 2011-02-14 20:11:58 +0000 |
commit | 5815f7ec289e067e765fb8e893a2f337d8b48303 (patch) | |
tree | ebe9e0534a089fe431cedc6fdbc1a53ac523d70c /Examples/test-suite/octave | |
parent | 3e1af1f698d5d02d7905431bcb3549c0f7bc9aa7 (diff) | |
parent | 1fab53b2046b97702e1de4cfab06cb8fa8fc129d (diff) | |
download | swig-5815f7ec289e067e765fb8e893a2f337d8b48303.tar.gz |
update fortran branch. merge of 12160:12460a11426-fortran
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/branches/a11426-fortran@12461 626c5289-ae23-0410-ae9c-e8d60b6d4f22
Diffstat (limited to 'Examples/test-suite/octave')
-rw-r--r-- | Examples/test-suite/octave/primitive_types_runme.m | 402 | ||||
-rw-r--r-- | Examples/test-suite/octave/samename_runme.m | 1 |
2 files changed, 1 insertions, 402 deletions
diff --git a/Examples/test-suite/octave/primitive_types_runme.m b/Examples/test-suite/octave/primitive_types_runme.m deleted file mode 100644 index 568e3511e..000000000 --- a/Examples/test-suite/octave/primitive_types_runme.m +++ /dev/null @@ -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 diff --git a/Examples/test-suite/octave/samename_runme.m b/Examples/test-suite/octave/samename_runme.m new file mode 100644 index 000000000..a3864cfc8 --- /dev/null +++ b/Examples/test-suite/octave/samename_runme.m @@ -0,0 +1 @@ +samename |