hopefully platform-agnostic time zone test

ncss-tech · Sep 18, 2024 · 02bb9ae · 02bb9ae
1 parent e99421e
commit 02bb9ae
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/tests/testthat/test-fetchSCAN.R b/tests/testthat/test-fetchSCAN.R
@@ -66,5 +66,10 @@ test_that("timezone check", {
 
   # should be GMT-8, that of the first station (2218)
   .tz <- table(format(z$SMS$datetime, format = '%Z'))
-  expect_equal(names(.tz), '-08')
+  # windows and macos should return '-08'
+  # linux returns c('etc', '-08')
+
+  # platform agnostic test
+  .test <- any(grepl('-08', c(names(.tz), 'etc')))
+  expect_true(.test)
 })