# 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
  endif
  j = j + 1;
endfor