From 3b20680bfc150ceb2e4df0d3c45dd44c8e6e4a44 Mon Sep 17 00:00:00 2001
From: bl <bletham@gmail.com>
Date: Wed, 30 May 2018 16:40:34 -0700
Subject: [PATCH] Add test i386 test skips for stan tests

---
 R/tests/testthat/test_stan_functions.R | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/R/tests/testthat/test_stan_functions.R b/R/tests/testthat/test_stan_functions.R
index 9687096..de2f2b6 100644
--- a/R/tests/testthat/test_stan_functions.R
+++ b/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)
 
 test_that("get_changepoint_matrix", {
+  skip_if_not(Sys.getenv('R_ARCH') != '/i386')
   history <- train
   m <- prophet(history, fit = FALSE)
 
@@ -46,6 +47,7 @@ test_that("get_changepoint_matrix", {
 })
 
 test_that("get_zero_changepoints", {
+  skip_if_not(Sys.getenv('R_ARCH') != '/i386')
   history <- train
   m <- prophet(history, n.changepoints = 0, fit = FALSE)
   
@@ -64,6 +66,7 @@ test_that("get_zero_changepoints", {
 })
 
 test_that("linear_trend", {
+  skip_if_not(Sys.getenv('R_ARCH') != '/i386')
   t <- seq(0, 10)
   m <- 0
   k <- 1.0
@@ -83,6 +86,7 @@ test_that("linear_trend", {
 })
 
 test_that("piecewise_logistic", {
+  skip_if_not(Sys.getenv('R_ARCH') != '/i386')
   t <- seq(0, 10)
   cap <- rep(10, 11)
   m <- 0