summaryrefslogtreecommitdiff
path: root/Examples/test-suite/r/funcptr_runme.R
diff options
context:
space:
mode:
Diffstat (limited to 'Examples/test-suite/r/funcptr_runme.R')
-rw-r--r--Examples/test-suite/r/funcptr_runme.R7
1 files changed, 7 insertions, 0 deletions
diff --git a/Examples/test-suite/r/funcptr_runme.R b/Examples/test-suite/r/funcptr_runme.R
new file mode 100644
index 0000000..3d5281b
--- /dev/null
+++ b/Examples/test-suite/r/funcptr_runme.R
@@ -0,0 +1,7 @@
+source("unittest.R")
+dyn.load(paste("funcptr", .Platform$dynlib.ext, sep=""))
+source("funcptr.R")
+cacheMetaData(1)
+unittest(do_op(1, 3, add), 4)
+unittest(do_op(2, 3, multiply), 6)
+unittest(do_op(2, 3, funcvar()), 5)