tests/testthat/test-clean_file_path.R

test_that("use", {
  file_path_before <- "~/.local/share/gcaer/gcae_v1_0/example_tiny//HO_superpopulations" # nolint indeed a long line
  file_path_after <- "~/.local/share/gcaer/gcae_v1_0/example_tiny/HO_superpopulations" # nolint indeed a long line
  expect_equal(clean_file_path(file_path_before), file_path_after)
})
richelbilderbeek/gcaer documentation built on March 25, 2024, 3:08 p.m.