From 1dd31446ce5e24901b9671927a098e23e40c4651 Mon Sep 17 00:00:00 2001
From: AndLLA <44858649+AndLLA@users.noreply.github.com>
Date: Sun, 20 Nov 2022 18:52:00 +0100
Subject: [PATCH] more r tests

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

diff --git a/Examples/test-suite/r/template_ref_type_runme.R b/Examples/test-suite/r/template_ref_type_runme.R
new file mode 100644
index 000000000..2565019d7
--- /dev/null
+++ b/Examples/test-suite/r/template_ref_type_runme.R
@@ -0,0 +1,14 @@
+
+clargs <- commandArgs(trailing=TRUE)
+source(file.path(clargs[1], "unittest.R"))
+#source("unittest.R")
+
+dyn.load(paste("template_ref_type", .Platform$dynlib.ext, sep=""))
+source("template_ref_type.R")
+cacheMetaData(1)
+
+xr = XC()
+y = Y()
+
+unittest(Y_find(y, xr), FALSE)
+