Tune one test file

eddelbuettel · Jan 8, 2024 · 117dfa0 · 117dfa0
1 parent 82d1878
commit 117dfa0
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/inst/tinytest/test_utilities.R b/inst/tinytest/test_utilities.R
@@ -1,6 +1,7 @@
 library(inline)
 
 isM1 <- grepl("aarch64-apple", R.version$platform)
+isLinux <- Sys.info()[["sysname"]] == "Linux"
 
 code <- "
       int i;
@@ -25,6 +26,7 @@ gc()
 expect_false(file.exists(environment(quadfn)$libLFile))
 
 if (isM1) exit_file("Skip remainer")
+if (!isLinux) exit_file("Skip remainer")
 
 # So we recreate the function and move the DLL to a user defined location
 quadfn <- cfunction(signature(n = "integer", x = "numeric"), code,