test_that("windows_to_linux_path converts backslashes", {
  expect_equal(windows_to_linux_path("C:\\data\\file.txt"), "C:/data/file.txt")
  # vectorised
  out <- windows_to_linux_path(c("a\\b", "c\\d\\e"))
  expect_equal(out, c("a/b", "c/d/e"))
})

test_that("clean_filename sanitises illegal characters", {
  expect_equal(clean_filename("a/b:c?"), "a_b-c")
  expect_equal(clean_filename("Drug\nX"), "DrugX")
  expect_equal(clean_filename("p*q<s>"), "pqs")
})
