Преглед изворни кода

Add test i386 test skips for stan tests

bl пре 7 година
родитељ
комит
3b20680bfc
1 измењених фајлова са 4 додато и 0 уклоњено
  1. 4 0
      R/tests/testthat/test_stan_functions.R

+ 4 - 0
R/tests/testthat/test_stan_functions.R

@@ -22,6 +22,7 @@ DATA$ds <- prophet:::set_date(DATA$ds)
 DATA2$ds <- prophet:::set_date(DATA2$ds)
 DATA2$ds <- prophet:::set_date(DATA2$ds)
 
 
 test_that("get_changepoint_matrix", {
 test_that("get_changepoint_matrix", {
+  skip_if_not(Sys.getenv('R_ARCH') != '/i386')
   history <- train
   history <- train
   m <- prophet(history, fit = FALSE)
   m <- prophet(history, fit = FALSE)
 
 
@@ -46,6 +47,7 @@ test_that("get_changepoint_matrix", {
 })
 })
 
 
 test_that("get_zero_changepoints", {
 test_that("get_zero_changepoints", {
+  skip_if_not(Sys.getenv('R_ARCH') != '/i386')
   history <- train
   history <- train
   m <- prophet(history, n.changepoints = 0, fit = FALSE)
   m <- prophet(history, n.changepoints = 0, fit = FALSE)
   
   
@@ -64,6 +66,7 @@ test_that("get_zero_changepoints", {
 })
 })
 
 
 test_that("linear_trend", {
 test_that("linear_trend", {
+  skip_if_not(Sys.getenv('R_ARCH') != '/i386')
   t <- seq(0, 10)
   t <- seq(0, 10)
   m <- 0
   m <- 0
   k <- 1.0
   k <- 1.0
@@ -83,6 +86,7 @@ test_that("linear_trend", {
 })
 })
 
 
 test_that("piecewise_logistic", {
 test_that("piecewise_logistic", {
+  skip_if_not(Sys.getenv('R_ARCH') != '/i386')
   t <- seq(0, 10)
   t <- seq(0, 10)
   cap <- rep(10, 11)
   cap <- rep(10, 11)
   m <- 0
   m <- 0