Examples/test-suite/octave/director_unroll_runme.m

director_unroll

MyFoo=@() subclass(director_unroll.Foo(),'ping',@(self) "MyFoo::ping()");

a = MyFoo();

b = director_unroll.Bar();

b.set(a);
c = b.get();

if (swig_this(a) != swig_this(c))
  a,c
  error("failed");
endif