test: unit tests for helper files

Author: timcadman

tests/testthat/test-smk-utils.R

@@ -0,0 +1,46 @@
+
+#-------------------------------------------------------------------------------
+# Copyright (c) 2019-2022 University of Newcastle upon Tyne. All rights reserved.
+#
+# This program and the accompanying materials
+# are made available under the terms of the GNU Public License v3.0.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program.  If not, see <http://www.gnu.org/licenses/>.
+#-------------------------------------------------------------------------------
+
+#
+# Set up
+#
+
+context("utils::smk::setup")
+test_that(".loadServersideObject() returns existing object", {
+  test_df <- data.frame(a = 1:3)
+  result <- .loadServersideObject("test_df")
+  expect_identical(result, test_df)
+})
+
+test_that(".loadServersideObject() throws error for missing object", {
+  expect_error(
+    .loadServersideObject("nonexistent_obj"),
+    regexp = "does not exist"
+  )
+})
+
+test_that(".checkClass() passes for correct class", {
+  df <- data.frame(a = 1)
+  expect_invisible(
+    .checkClass(df, "df", c("data.frame", "matrix"))
+  )
+})
+
+test_that(".checkClass() throws informative error for wrong class", {
+  x <- list(a = 1)
+  expect_error(
+    .checkClass(x, "x", c("data.frame", "matrix")),
+    regexp = "must be of type data.frame or matrix"
+  )
+})
+
+context("utils::smk::shutdown")
+context("utils::smk::done")