[chronojump/michrolab] Added an R file: test-null-values.R

[Xavier Padullés <xpadulles src gnome org>]

commit 9eba6d5974fe58e040eb273d617d04399dad2d35
Author: Xavier de Blas <xaviblas gmail com>
Date:   Wed Jun 8 11:52:38 2022 +0200

    Added an R file: test-null-values.R

 encoder/tests/test-null-values.R | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)
---
diff --git a/encoder/tests/test-null-values.R b/encoder/tests/test-null-values.R
new file mode 100644
index 000000000..99e391fd1
--- /dev/null
+++ b/encoder/tests/test-null-values.R
@@ -0,0 +1,26 @@
+returnsNullList <- function ()
+{
+       ecc = NULL
+       iso = NULL
+       notNullScalar = 5
+       notNullVector = c(9,4,7)
+       con = NULL
+
+       return (list(ecc=ecc, iso=iso,
+                               notNullScalar=notNullScalar,
+                               notNullVector=notNullVector,
+                               con=con))
+}
+
+myValues = returnsNullList ()
+print ("ecc:")
+print (myValues$ecc)
+print ("iso:")
+print (myValues$iso)
+print ("notNullScalar:")
+print (myValues$notNullScalar)
+print ("notNullVector:")
+print (myValues$notNullVector)
+print ("con:")
+print (myValues$con)
+