From 63821f1bb5bc34656bd79775a27d5a175624d3dc Mon Sep 17 00:00:00 2001
From: AndLLA <44858649+AndLLA@users.noreply.github.com>
Date: Wed, 16 Nov 2022 20:54:45 +0100
Subject: added testcase pointer_reference

---
 Examples/test-suite/r/pointer_reference_runme.R | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)
 create mode 100644 Examples/test-suite/r/pointer_reference_runme.R

(limited to 'Examples')

diff --git a/Examples/test-suite/r/pointer_reference_runme.R b/Examples/test-suite/r/pointer_reference_runme.R
new file mode 100644
index 000000000..4a2a7ea1b
--- /dev/null
+++ b/Examples/test-suite/r/pointer_reference_runme.R
@@ -0,0 +1,24 @@
+clargs <- commandArgs(trailing=TRUE)
+source(file.path(clargs[1], "unittest.R"))
+#source("unittest.R")
+
+dyn.load(paste("pointer_reference", .Platform$dynlib.ext, sep=""))
+source("pointer_reference.R")
+cacheMetaData(1)
+
+
+s = Struct_value_get(Struct_pInstance_get())
+unittest(s, 10)
+
+ss = Struct(20)
+Struct_pInstance_set(ss)
+s = Struct_value_get(Struct_pInstance_get())
+unittest(s, 20)
+
+s = overloading(1)
+unittest(s, 111)
+
+s = overloading(ss)
+unittest(s, 222)
+
+
-- 
cgit v1.2.1