tests/testthat/test-database_path.R

In ybkamaleri/boligfinn: Compare info of appartments from Finn.no

test_that("Path to database", {

  if (.Platform$OS.type == "windows"){
    dirLocal <- "C:/boligfinn"
  } else {
    dirLocal <- "~/boligfinn"
  }

  sti <- paste(dirLocal, "boligfinn.sqlite", sep = "/")
  expect_identical(path_db(), sti)
})