/trunk/Examples/test-suite/octave/reference_global_vars_runme.m
MATLAB | 91 lines | 73 code | 18 blank | 0 comment | 17 complexity | dfbe9474314fa17da0a17fbf75696acb MD5 | raw file
Possible License(s): LGPL-2.1, Cube, GPL-3.0, 0BSD, GPL-2.0
- reference_global_vars
- # const class reference variable
- if (getconstTC().num != 33)
- error
- endif
- # primitive reference variables
- cvar.var_bool = createref_bool(false);
- if (value_bool(cvar.var_bool) != 0)
- error
- endif
- cvar.var_bool = createref_bool(true);
- if (value_bool(cvar.var_bool) != 1)
- error
- endif
- cvar.var_char = createref_char('w');
- if (!strcmp(value_char(cvar.var_char),'w'))
- error
- endif
- cvar.var_unsigned_char = createref_unsigned_char(10);
- if (value_unsigned_char(cvar.var_unsigned_char) != 10)
- error
- endif
- cvar.var_signed_char = createref_signed_char(10);
- if (value_signed_char(cvar.var_signed_char) != 10)
- error
- endif
- cvar.var_short = createref_short(10);
- if (value_short(cvar.var_short) != 10)
- error
- endif
- cvar.var_unsigned_short = createref_unsigned_short(10);
- if (value_unsigned_short(cvar.var_unsigned_short) != 10)
- error
- endif
- cvar.var_int = createref_int(10);
- if (value_int(cvar.var_int) != 10)
- error
- endif
- cvar.var_unsigned_int = createref_unsigned_int(10);
- if (value_unsigned_int(cvar.var_unsigned_int) != 10)
- error
- endif
- cvar.var_long = createref_long(10);
- if (value_long(cvar.var_long) != 10)
- error
- endif
- cvar.var_unsigned_long = createref_unsigned_long(10);
- if (value_unsigned_long(cvar.var_unsigned_long) != 10)
- error
- endif
- cvar.var_long_long = createref_long_long(int64(0x6FFFFFFFFFFFFFF8));
- if (value_long_long(cvar.var_long_long) != int64(0x6FFFFFFFFFFFFFF8))
- error
- endif
- #ull = abs(0xFFFFFFF2FFFFFFF0)
- ull = uint64(55834574864);
- cvar.var_unsigned_long_long = createref_unsigned_long_long(ull);
- if (value_unsigned_long_long(cvar.var_unsigned_long_long) != ull)
- error
- endif
- cvar.var_float = createref_float(10.5);
- if (value_float(cvar.var_float) != 10.5)
- error
- endif
- cvar.var_double = createref_double(10.5);
- if (value_double(cvar.var_double) != 10.5)
- error
- endif
- # class reference variable
- cvar.var_TestClass = createref_TestClass(TestClass(20));
- if (value_TestClass(cvar.var_TestClass).num != 20)
- error
- endif