Merge branch 'cansavvy/check-urls' into cansavvy/check-spelling

jhudsl · Dec 20, 2024 · 7fe2f39 · 7fe2f39
2 parents 86c0344 + 1953e53
commit 7fe2f39
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/tests/testthat/test-check-urls.R b/tests/testthat/test-check-urls.R
@@ -6,7 +6,7 @@ test_that("Test URL checks for OTTR main", {
    rmd_dir <- setup_ottr_template(type = "rmd", render = FALSE)
 
    status <- check_urls(rmd_dir)
-   testthat::expect_true(status == 0)
+   testthat::expect_true(status < 2)
 
    # Make sure the report exists
    testthat::expect_true(file.exists(file.path(rmd_dir, output_file)))
@@ -22,7 +22,7 @@ test_that("Test URL checks for OTTR Quarto main", {
    qmd_dir <- setup_ottr_template(type = "quarto", render = FALSE)
 
    status <- check_urls(qmd_dir)
-   testthat::expect_true(status == 0)
+   testthat::expect_true(status < 2)
 
    # Make sure the report exists
    testthat::expect_true(file.exists(file.path(qmd_dir, output_file)))
@@ -37,7 +37,7 @@ test_that("Test URL checks for OTTR web", {
    rmd_web <- setup_ottr_template(type = "rmd_website", render = FALSE)
 
    status <- check_urls(rmd_web, report_all = TRUE)
-   testthat::expect_true(status == 0)
+   testthat::expect_true(status < 2)
 
    # Make sure the report exists
    testthat::expect_true(file.exists(file.path(rmd_web, output_file)))
@@ -53,7 +53,7 @@ test_that("Test URL checks for OTTR Quarto web", {
    qmd_web <- setup_ottr_template(type = "quarto_website", render = FALSE)
 
    status <- check_urls(qmd_web, report_all = TRUE)
-   testthat::expect_true(status == 0)
+   testthat::expect_true(status < 2)
 
    # Make sure the report exists
    testthat::expect_true(file.exists(file.path(qmd_web, output_file)))