tests/testthat/test-file_size.R

In davidc92/phsmethods2: Standard Methods for use in Public Health Scotland

context("test-file_size")

test_that("Returns a tibble", {
  expect_true(tibble::is_tibble(file_size(test_path("files"))))
})

test_that("Identifies correct number of files", {
  expect_equal(nrow(file_size(test_path("files"))), 8)
  expect_equal(nrow(file_size(test_path("files"), ".xlsx?$")), 2)
  expect_equal(nrow(file_size(test_path("files"), ".sav$")), 1)
  expect_null(file_size(test_path("files"), ".pdf$"))
})

test_that("Returns sizes with correct prefix", {
  expect_true(stringr::str_detect(file_size(test_path("files"), ".tsv$") %>%
                                    dplyr::pull(size),
                                  "^TSV\\s[0-9]*\\s[A-Z]?B$"))
})

test_that("Returns sizes in alphabetical order", {
  expect_equal(file_size(test_path("files")) %>%
                 dplyr::pull(name),
               file_size(test_path("files")) %>%
                 dplyr::arrange(name) %>%
                 dplyr::pull(name))
})

test_that("Errors if supplied with invalid filepath", {
  expect_error(file_size(here::here("data")))
  expect_error(file_size(NA))
  expect_error(file_size(NULL))
})

test_that("Errors if supplied with invalid regular expression", {
  expect_error(file_size(test_path("files"), 1))
})