/trunk/Examples/test-suite/octave/virtual_poly_runme.m

 1virtual_poly
 2
 3d = virtual_poly.NDouble(3.5);
 4i = virtual_poly.NInt(2);
 5
 6#
 7# the copy methods return the right polymorphic types
 8# 
 9dc = d.copy();
10ic = i.copy();
11
12if (d.get() != dc.get())
13  error
14endif
15
16if (i.get() != ic.get())
17  error
18endif
19
20virtual_poly.incr(ic);
21
22if ((i.get() + 1) != ic.get())
23  error
24endif
25
26
27dr = d.ref_this();
28if (d.get() != dr.get())
29  error
30endif
31
32
33#
34# 'narrowing' also works
35#
36ddc = virtual_poly.NDouble_narrow(d.nnumber());
37if (d.get() != ddc.get())
38  error
39endif
40
41dic = virtual_poly.NInt_narrow(i.nnumber());
42if (i.get() != dic.get())
43  error
44endif