skip some tests in cran submission

ygeunkim · Dec 18, 2023 · be0ec55 · be0ec55
1 parent 09b8d07
commit be0ec55
Show file tree

Hide file tree

Showing 6 changed files with 16 additions and 0 deletions.
diff --git a/tests/testthat/test-forecast.R b/tests/testthat/test-forecast.R
@@ -1,5 +1,7 @@
 # VAR----------------------------------
 test_that("Test for varlse forecast", {
+  skip_on_cran()
+
   num_col <- 3
   fit_var <- var_lm(etf_vix[, 1:3], 2)
   fit_vhar <- vhar_lm(etf_vix[, 1:3])

diff --git a/tests/testthat/test-stable-process.R b/tests/testthat/test-stable-process.R
@@ -1,4 +1,6 @@
 test_that("Stable root", {
+  skip_on_cran()
+
   test_lag <- 3
   num_col <- 2
   fit_test_var <- var_lm(etf_vix[, seq_len(num_col)], test_lag)

diff --git a/tests/testthat/test-summary-varlse.R b/tests/testthat/test-summary-varlse.R
@@ -1,4 +1,6 @@
 test_that("VAR Coefficients Summary Table", {
+  skip_on_cran()
+
   test_lag <- 3
   num_col <- 2
   fit_test_var <- var_lm(etf_vix[, seq_len(num_col)], test_lag)

diff --git a/tests/testthat/test-summary-vharlse.R b/tests/testthat/test-summary-vharlse.R
@@ -1,4 +1,6 @@
 test_that("VHAR Coefficients Summary Table", {
+  skip_on_cran()
+
   num_col <- 2
   fit_test_vhar <- vhar_lm(etf_vix[, seq_len(num_col)])
   fit_vhar_summary <- summary(fit_test_vhar)

diff --git a/tests/testthat/test-varlse.R b/tests/testthat/test-varlse.R
@@ -1,5 +1,7 @@
 # var_lm()-------------------------
 test_that("Test for varlse class", {
+  skip_on_cran()
+
   test_lag <- 3
   fit_test_var <- var_lm(etf_vix, test_lag)
   num_col <- ncol(etf_vix)
@@ -34,6 +36,8 @@ test_that("Test for varlse class", {
 })
 
 test_that("Computation Methods", {
+  skip_on_cran()
+
   test_lag <- 3
   fit_test_nor <- var_lm(etf_vix[, 1:3], test_lag)
   fit_test_llt <- var_lm(etf_vix[, 1:3], test_lag, method = "chol")

diff --git a/tests/testthat/test-vharlse.R b/tests/testthat/test-vharlse.R
@@ -1,5 +1,7 @@
 # Components of vharlse--------------
 test_that("Test for vharlse class", {
+  skip_on_cran()
+
   fit_test_vhar <- vhar_lm(etf_vix)
   num_col <- ncol(etf_vix)
   num_row <- nrow(etf_vix)
@@ -33,6 +35,8 @@ test_that("Test for vharlse class", {
 })
 
 test_that("Computation Methods", {
+  skip_on_cran()
+
   fit_test_nor <- vhar_lm(etf_vix[, 1:3])
   fit_test_llt <- vhar_lm(etf_vix[, 1:3], method = "chol")
   fit_test_qr <- vhar_lm(etf_vix[, 1:3], method = "qr")