test: add unit tests

FRBCesab · Feb 20, 2024 · faf028c · faf028c
1 parent 614e5e9
commit faf028c
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/tests/testthat/test-version.R b/tests/testthat/test-version.R
@@ -152,6 +152,12 @@ test_that("Test get_current_version() for success", {
   expect_equal(class(x), "character")
   expect_equal(length(x), 1L)
   expect_equal(x, "07")
+
+  invisible(file.remove(".forcis"))
+  invisible(file.create(".forcis"))
+
+  x <- get_current_version()
+  expect_null(x)
 })