Initial 'danger' proof-of-concent test

Author: StuartWheater

tests/testthat/test-smk_dgr-ds.asCharacter.R

@@ -0,0 +1,50 @@
+#-------------------------------------------------------------------------------
+# Copyright (c) 2018-2020 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("ds.asCharacter::smk_dgr::setup")
+
+require(dsDangerClient)
+
+connect.studies.dataset.cnsim(list("LAB_TSC"))
+
+test_that("setup", {
+    ds_expect_variables(c("D"))
+})
+
+#
+# Tests
+#
+
+context("ds.asCharacter::smk_dgr::simple test")
+test_that("simple test", {
+    res <- ds.asCharacter("D$LAB_TSC")
+
+    expect_equal(length(res), 2)
+    expect_equal(res$is.object.created, "A data object <ascharacter.newobj> has been created in all specified data sources")
+    expect_equal(res$validity.check, "<ascharacter.newobj> appears valid in all sources")
+})
+
+#
+# Done
+#
+
+context("ds.asCharacter::smk_dgr::stutdown")
+
+test_that("setup", {
+    ds_expect_variables(c("D", "ascharacter.newobj"))
+})
+
+disconnect.studies.dataset.cnsim()
+
+context("ds.asCharacter::smk_dgr::done")