add unit test for info endpoint

Author: dtenenba

tests/testthat/helper-stubs.R

@@ -57,3 +57,13 @@ response_authenticate_success <- list(
   job_id = NULL,
   token_creation_date = NULL
 )
+
+response_info_success <- list (
+  logged_in_user = "someone",
+  api_endpoint = "https://proof-api.fredhutch.org",
+  branch = "main",
+  commit_sha = "c4b85200632c2f9bd5e8173179208c3b32c7db7a",
+  short_commit_sha = "c4b85200",
+  commit_message = "two-eye lamb, as a so",
+  tag = "v.0.1.0"
+)

tests/testthat/test-proof_info.R

@@ -0,0 +1,22 @@
+test_that("proof_info - success", {
+  stub_request("get", make_url("info")) %>%
+    to_return(
+      body = jsonlite::toJSON(response_info_success, auto_unbox = TRUE),
+      status = 200L,
+      headers = list("Content-type" = "application/json")
+    )
+
+  enable(quiet = TRUE)
+
+  withr::with_envvar(c("PROOF_TOKEN" = "notarealtoken"), {
+    info_res <- proof_info()
+  })
+
+  expect_type(info_res, "list")
+  expect_type(info_res$logged_in_user, "character")
+  expect_type(info_res$api_endpoint, "character")
+
+
+  stub_registry_clear()
+  disable(quiet = TRUE)
+})