summaryrefslogtreecommitdiff
path: root/Examples/test-suite/octave/friends_runme.m
diff options
context:
space:
mode:
authorXavier Delacour <xavier.delacour@gmail.com>2008-03-01 23:35:44 +0000
committerXavier Delacour <xavier.delacour@gmail.com>2008-03-01 23:35:44 +0000
commit393391965c4583923d23958a483dabd316d425f6 (patch)
treea4b0d0884436413c9b36be2e01dc7672813baad9 /Examples/test-suite/octave/friends_runme.m
parent50b1578e19c1fe821697c75ffac87f3624f810a8 (diff)
downloadswig-393391965c4583923d23958a483dabd316d425f6.tar.gz
Initial commit of Octave module.
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@10290 626c5289-ae23-0410-ae9c-e8d60b6d4f22
Diffstat (limited to 'Examples/test-suite/octave/friends_runme.m')
-rw-r--r--Examples/test-suite/octave/friends_runme.m46
1 files changed, 46 insertions, 0 deletions
diff --git a/Examples/test-suite/octave/friends_runme.m b/Examples/test-suite/octave/friends_runme.m
new file mode 100644
index 000000000..e18f47a24
--- /dev/null
+++ b/Examples/test-suite/octave/friends_runme.m
@@ -0,0 +1,46 @@
+friends
+
+a = friends.A(2);
+
+if (friends.get_val1(a) != 2)
+ error
+endif
+if (friends.get_val2(a) != 4)
+ error
+endif
+if (friends.get_val3(a) != 6)
+ error
+endif
+
+ # nice overload working fine
+if (friends.get_val1(1,2,3) != 1)
+ error
+endif
+
+b = friends.B(3);
+
+ # David's case
+if (friends.mix(a,b) != 5)
+ error
+endif
+
+di = friends.D_d(2);
+dd = friends.D_d(3.3);
+
+ # incredible template overloading working just fine
+if (friends.get_val1(di) != 2)
+ error
+endif
+if (friends.get_val1(dd) != 3.3)
+ error
+endif
+
+friends.set(di, 4);
+friends.set(dd, 1.3);
+
+if (friends.get_val1(di) != 4)
+ error
+endif
+if (friends.get_val1(dd) != 1.3)
+ error
+endif