Merge pull request #105 from Public-Health-Scotland/tests/fix_file_size

Fix the file size test

DESCRIPTION

@@ -41,7 +41,6 @@ Imports:
     utils
 Suggests: 
     covr,
-    here,
     spelling,
     testthat (>= 3.0.0)
 RdMacros: 

tests/testthat/_snaps/windows/file_size.md

@@ -0,0 +1,28 @@
+# Output is identical over time
+
+    Code
+      file_size(test_path("files"))
+    Output
+      # A tibble: 8 x 2
+        name             size       
+        <chr>            <chr>      
+      1 airquality.xls   Excel 26 kB
+      2 bod.xlsx         Excel 5 kB 
+      3 iris.csv         CSV 4 kB   
+      4 mtcars.sav       SPSS 4 kB  
+      5 plant-growth.rds RDS 316 B  
+      6 puromycin.txt    Text 442 B 
+      7 stackloss.fst    FST 897 B  
+      8 swiss.tsv        TSV 1 kB   
+
+---
+
+    Code
+      file_size(test_path("files"), "xlsx?")
+    Output
+      # A tibble: 2 x 2
+        name           size       
+        <chr>          <chr>      
+      1 airquality.xls Excel 26 kB
+      2 bod.xlsx       Excel 5 kB 
+

tests/testthat/test-file_size.R

@@ -38,12 +38,19 @@ test_that("Returns sizes in alphabetical order", {
 })
 
 test_that("Output is identical over time", {
-  expect_snapshot(file_size(test_path("files")))
-  expect_snapshot(file_size(test_path("files"), "xlsx?"))
+  # Text files report as larger on Windows so snapshot per OS
+  os <- ifelse(
+    "windows" %in% tolower(Sys.info()[["sysname"]]),
+    "windows",
+    "UNIX"
+  )
+
+  expect_snapshot(file_size(test_path("files")), variant = os)
+  expect_snapshot(file_size(test_path("files"), "xlsx?"), variant = os)
 })
 
 test_that("Errors if supplied with invalid filepath", {
-  expect_error(file_size(here::here("reference_files")))
+  expect_error(file_size(test_path("reference_files")))
   expect_error(file_size(NA))
   expect_error(file_size(NULL))
 })