import source from 1.3.40
[external/swig.git] / Examples / test-suite / octave / friends_runme.m
1 friends
2
3 a = friends.A(2);
4
5 if (friends.get_val1(a) != 2)
6   error
7 endif
8 if (friends.get_val2(a) != 4)
9   error
10 endif
11 if (friends.get_val3(a) != 6)
12   error
13 endif
14
15                                 # nice overload working fine
16 if (friends.get_val1(1,2,3) != 1)
17   error
18 endif
19
20 b = friends.B(3);
21
22                                 # David's case
23 if (friends.mix(a,b) != 5)
24   error
25 endif
26
27 di = friends.D_d(2);
28 dd = friends.D_d(3.3);
29
30                                 # incredible template overloading working just fine
31 if (friends.get_val1(di) != 2)
32   error
33 endif
34 if (friends.get_val1(dd) != 3.3)
35   error
36 endif
37
38 friends.set(di, 4);
39 friends.set(dd, 1.3);
40
41 if (friends.get_val1(di) != 4)
42   error
43 endif
44 if (friends.get_val1(dd) != 1.3)
45   error
46 endif