1 files changed, 135 insertions, 0 deletions
diff --git a/Examples/test-suite/octave/std_containers_runme.m b/Examples/test-suite/octave/std_containers_runme.m
new file mode 100644
index 000000000..074f0fd58
--- /dev/null
+++ b/Examples/test-suite/octave/std_containers_runme.m
@@ -0,0 +1,135 @@
+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
+
+