tests/testthat/test-to_pff.R

In richelbilderbeek/peregrine: Work With The Groninger Peregrine Computer Cluster

test_that("use, filename", {

  filename <- "/peregrine_unfriendly.csv"
  expect_false(is_pff(filename))
  pff <- to_pff(filename)
  expect_true(is_pff(pff))
  expect_equal(basename(filename), basename(pff))

  filename <- "/tmp/peregrine_unfriendly.csv"
  expect_false(is_pff(filename))
  pff <- to_pff(filename)
  expect_true(is_pff(pff))
  expect_equal(basename(filename), basename(pff))

  filename <- "/data/peregrine_unfriendly.csv"
  expect_false(is_pff(filename))
  pff <- to_pff(filename)
  expect_true(is_pff(pff))
  expect_equal(basename(filename), basename(pff))
})

test_that("use, foldername", {
  foldername <- "/peregrine_unfriendly"
  expect_false(is_pff(foldername))
  pff <- to_pff(foldername)
  expect_true(is_pff(pff))
  expect_equal(basename(foldername), basename(pff))

  foldername <- "/tmp/peregrine_unfriendly"
  expect_false(is_pff(foldername))
  pff <- to_pff(foldername)
  expect_true(is_pff(pff))
  expect_equal(basename(foldername), basename(pff))

  foldername <- "/data/peregrine_unfriendly"
  expect_false(is_pff(foldername))
  pff <- to_pff(foldername)
  expect_true(is_pff(pff))
  expect_equal(basename(foldername), basename(pff))
})