[#7] better guess os

jmbarbone · Nov 11, 2022 · 37a9971 · 37a9971
1 parent c7f42a2
commit 37a9971
Showing 1 changed file with 21 additions and 19 deletions.
diff --git a/tests/testthat/test-os.R b/tests/testthat/test-os.R
@@ -1,20 +1,22 @@
-test_that("windows", {
-  skip_if_not(startsWith(Sys.getenv("GH_ACTIONS_OS"), "windows"))
-  expect_true(is_windows())
-  expect_false(is_macos())
-  expect_false(is_linux())
-})
-
-test_that("macos", {
-  skip_if_not(startsWith(Sys.getenv("GH_ACTIONS_OS"), "macos"))
-  expect_false(is_windows())
-  expect_true(is_macos())
-  expect_false(is_linux())
-})
-
-test_that("linux (ubuntu)", {
-  skip_if_not(startsWith(Sys.getenv("GH_ACTIONS_OS"), "ubuntu"))
-  expect_false(is_windows())
-  expect_false(is_macos())
-  expect_true(is_linux())
+test_that("os", {
+  env <- Sys.getenv("GH_ACTIONS_OS")
+  env <- regmatches(env, regexpr("[a-z]+", env))
+  switch(
+    env,
+    windows = {
+      expect_true(is_windows())
+      expect_false(is_macos())
+      expect_false(is_linux())
+    },
+    macos = {
+      expect_false(is_windows())
+      expect_true(is_macos())
+      expect_false(is_linux())
+    },
+    ubuntu = {
+      expect_false(is_windows())
+      expect_false(is_macos())
+      expect_true(is_linux())
+    }
+  )
 })