testing increase in test coverage

to increase test coverage in uniqueDS

Author: davraam

DESCRIPTION

@@ -196,5 +196,5 @@ Options:
     default.nfilter.noise=0.25,
     default.nfilter.levels.density=0.33,
     default.nfilter.levels.max=40
-RoxygenNote: 7.3.1
+RoxygenNote: 7.3.2
 Encoding: UTF-8

tests/testthat/test-arg-uniqueDS.R

@@ -26,10 +26,15 @@ test_that("simple uniqueDS for NULL", {
 context("uniqueDS::arg::null value")
 test_that("simple uniqueDS for NULL", {
     input <- NULL
-
     expect_error(uniqueDS("input"), "Variable can't be NULL", fixed = TRUE)
 })
 
+context("uniqueDS::arg::not character value")
+test_that("simple uniqueDS for NULL", {
+  input <- 17
+  expect_error(uniqueDS("input"), "Variable's name isn't a single character vector", fixed = TRUE)
+})
+
 context("uniqueDS::arg::missing value")
 test_that("simple uniqueDS for NULL", {
     expect_error(uniqueDS("input"), "object 'input' not found", fixed = TRUE)