140 lines
2 KiB
Matlab
140 lines
2 KiB
Matlab
# do not dump Octave core
|
|
if exist("crash_dumps_octave_core", "builtin")
|
|
crash_dumps_octave_core(0);
|
|
endif
|
|
|
|
std_containers
|
|
|
|
|
|
cube = {{{1, 2}, {3, 4}}, {{5, 6}, {7, 8}}};
|
|
|
|
icube = std_containers.cident(cube);
|
|
for i=len(cube),
|
|
if (cube{i} != icube{i})
|
|
error("bad cident")
|
|
endif
|
|
endfor
|
|
|
|
|
|
p = {1,2};
|
|
if (p != std_containers.pident(p))
|
|
error("bad pident")
|
|
endif
|
|
|
|
v = {1,2,3,4,5,6};
|
|
iv = std_containers.vident(v);
|
|
for i=0:len(v),
|
|
if (v{i} != iv{i})
|
|
error("bad vident")
|
|
endif
|
|
endfor
|
|
|
|
|
|
iv = std_containers.videntu(v);
|
|
for i=0:len(v),
|
|
if (v{i} != iv{i})
|
|
error("bad videntu")
|
|
endif
|
|
endfor
|
|
|
|
|
|
vu = std_containers.vector_ui(v);
|
|
if (vu{2} != std_containers.videntu(vu){2})
|
|
error("bad videntu")
|
|
endif
|
|
|
|
|
|
if (v(0:3)(1) != vu(0:3)(1))
|
|
error("bad getslice")
|
|
endif
|
|
|
|
|
|
m = {[1,2,3],[2,3],[3,4]};
|
|
im = std_containers.midenti(m);
|
|
|
|
for i=0:len(m),
|
|
for j=0:len(m(i)),
|
|
if (m(i)(j) != im(i)(j))
|
|
error("bad getslice")
|
|
endif
|
|
endfor
|
|
endfor
|
|
|
|
m = {[1,0,1],[1,1],[1,1]};
|
|
im = std_containers.midentb(m);
|
|
for i=0:len(m),
|
|
for j in range(0,len(m[i])):
|
|
if (m(i)(j) != im(i)(j))
|
|
error("bad getslice")
|
|
endif
|
|
endfor
|
|
endfor
|
|
|
|
|
|
mi = std_containers.imatrix(m);
|
|
mc = std_containers.cmatrix(m);
|
|
if (mi(0)(1) != mc(0)(1))
|
|
error("bad matrix")
|
|
endif
|
|
|
|
|
|
map ={};
|
|
map{'hello'} = 1;
|
|
map{'hi'} = 2;
|
|
map{'3'} = 2;
|
|
|
|
imap = std_containers.mapident(map);
|
|
for k in map,
|
|
if (map(k) != imap(k))
|
|
error("bad map")
|
|
endif
|
|
endfor
|
|
|
|
|
|
mapc ={};
|
|
c1 = std_containers.C();
|
|
c2 = std_containers.C();
|
|
mapc(1) = swig_this(c1);
|
|
mapc(2) = c2;
|
|
|
|
std_containers.mapidentc(mapc);
|
|
|
|
|
|
vi = std_containers.vector_i([2,2,3,4]);
|
|
|
|
|
|
v = [1,2];
|
|
v1 = std_containers.v_inout(vi);
|
|
vi(1), v1(1);
|
|
|
|
[v1,v2] = std_containers.v_inout2(v1,v2);
|
|
|
|
a1 = std_containers.A(1);
|
|
a2 = std_containers.A(2);
|
|
|
|
p1 = {1,a1};
|
|
p2 = {2,a2};
|
|
v = (p1,p2);
|
|
v2= std_containers.pia_vident(v);
|
|
|
|
v2(0)(1).a;
|
|
v2(1)(1).a;
|
|
|
|
v3 = std_containers.vector_piA(v2);
|
|
|
|
v3(0)(1).a;
|
|
v3(1)(1).a;
|
|
|
|
s = std_containers.set_i();
|
|
s.append(1);
|
|
s.append(2);
|
|
s.append(3);
|
|
j=1;
|
|
for i in s,
|
|
if (i != j)
|
|
error("failed");
|
|
endif
|
|
j = j + 1;
|
|
endfor
|
|
|
|
|