Merge branch 'development' into vignettes/chi-operations

Public-Health-Scotland · Sep 13, 2023 · 0df2988 · 0df2988
2 parents fa3f300 + fd51540
commit 0df2988
Show file tree

Hide file tree

Showing 3 changed files with 38 additions and 3 deletions.
diff --git a/tests/testthat/_snaps/file_size.md → tests/testthat/_snaps/UNIX/file_size.md b/tests/testthat/_snaps/file_size.md → tests/testthat/_snaps/UNIX/file_size.md
diff --git a/tests/testthat/_snaps/windows/file_size.md b/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 
+
diff --git a/tests/testthat/test-file_size.R b/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))
 })