disable an R sampling test for windows

TolisChal · Oct 16, 2023 · 5138c90 · 5138c90
1 parent 3f815ad
commit 5138c90
Showing 1 changed file with 8 additions and 8 deletions.
diff --git a/R-proj/tests/testthat/test_sampling.R b/R-proj/tests/testthat/test_sampling.R
@@ -88,14 +88,14 @@ for (i in 1:2) {
     expect_equal(res, 1)
   })
 
-  if (Sys.info()["sysname"] != "Windows")
-  {
-    test_that("Sampling test", {
-      P = gen_simplex(10, 'H')
-      psrf = logconcave_sample(P,distribution,5000,2000)
-      expect_lte(psrf, 1.2)
-      })
-  }
+  #if (Sys.info()["sysname"] != "Windows")
+  #{
+  #  test_that("Sampling test", {
+  #    P = gen_simplex(10, 'H')
+  #    psrf = logconcave_sample(P,distribution,5000,2000)
+  #    expect_lte(psrf, 1.2)
+  #    })
+  #}
 
 
 }