Add test for issue #84

helseprofil · Oct 9, 2023 · 2a8da1c · 2a8da1c
1 parent c91c427
commit 2a8da1c
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 0 deletions.
diff --git a/inst/test-data/alter-manual.rds b/inst/test-data/alter-manual.rds
diff --git a/tests/testthat/test-alter-geo.R b/tests/testthat/test-alter-geo.R
@@ -0,0 +1,8 @@
+test_that("Alter geo manually", {
+
+  altOut <- readRDS(system.file("test-data", "alter-manual.rds", package = "norgeo"))
+  expect_equal(alter_manual(data.table::copy(chgDT), 9999), altOut)
+  expect_equal(is_delete_index(data.table::copy(chgDT), c(6, 7)), altOut)
+  expect_false(check_url("https://www.nothing.bla.bla"))
+  expect_true(check_url("https://www.ap.no"))
+})