work on unit test

bradlindblad · Nov 14, 2023 · 42a8e2d · 42a8e2d
1 parent 9d2a4cb
commit 42a8e2d
Show file tree

Hide file tree

Showing 3 changed files with 12 additions and 1 deletion.
diff --git a/CRAN-SUBMISSION b/CRAN-SUBMISSION
@@ -0,0 +1,3 @@
+Version: 0.4.0
+Date: 2023-11-13 18:44:51 UTC
+SHA: 9d2a4cbc3c9372a74d115d52dba5a2519222cae6
diff --git a/R/get_proverbs.R b/R/get_proverbs.R
@@ -78,7 +78,7 @@ ping_esv <- function() {
       `include-short-copyright` = FALSE,
       `include-passage-references` = FALSE
     ) |>
-    httr2::req_headers(`Authorization` = paste0("Token ", API_KEY)) |>
+    httr2::req_headers(`Authorization` = glue::glue("Token { API_KEY }")) |>
     httr2::req_error(body = check_esv_error) |>
     httr2::req_perform()
 

diff --git a/tests/testthat/test-proverb.R b/tests/testthat/test-proverb.R
@@ -35,6 +35,12 @@ test_that("rccv works", {
 
 })
 
+test_that("esv works", {
+  testthat::skip_on_cran()
+  expect_output(proverb("esv"))
+
+})
+
 test_that("give bad translation", {
   testthat::skip_on_cran()
   expect_error(proverb("foo"))
@@ -54,3 +60,5 @@ test_that("give bad accent color", {
   expect_error(proverb(accent_color = "bro"))
 
 })
+
+