mocking to fix api test

Author: shmercer

tests/testthat/test-gemini_live.R

@@ -27,8 +27,10 @@ test_that("gemini_compare_pair_live parses a successful response without thought
   )
 
   testthat::local_mocked_bindings(
-    .gemini_req_perform    = function(req) fake_resp,
-    .gemini_resp_status    = function(resp) 200L,
+    # ✅ Avoid hitting .get_api_key() / env
+    .gemini_api_key       = function(api_key = NULL) "TEST_GEMINI_KEY",
+    .gemini_req_perform   = function(req) fake_resp,
+    .gemini_resp_status   = function(resp) 200L,
     .gemini_resp_body_json = function(resp, ...) fake_body,
     .env = ns
   )
@@ -100,8 +102,9 @@ test_that("gemini_compare_pair_live parses thoughts and content when include_tho
   )
 
   testthat::local_mocked_bindings(
-    .gemini_req_perform    = function(req) fake_resp,
-    .gemini_resp_status    = function(resp) 200L,
+    .gemini_api_key       = function(api_key = NULL) "TEST_GEMINI_KEY",
+    .gemini_req_perform   = function(req) fake_resp,
+    .gemini_resp_status   = function(resp) 200L,
     .gemini_resp_body_json = function(resp, ...) fake_body,
     .env = ns
   )
@@ -160,8 +163,9 @@ test_that("gemini_compare_pair_live handles responses without <BETTER_SAMPLE> ta
   )
 
   testthat::local_mocked_bindings(
-    .gemini_req_perform    = function(req) fake_resp,
-    .gemini_resp_status    = function(resp) 200L,
+    .gemini_api_key       = function(api_key = NULL) "TEST_GEMINI_KEY",
+    .gemini_req_perform   = function(req) fake_resp,
+    .gemini_resp_status   = function(resp) 200L,
     .gemini_resp_body_json = function(resp, ...) fake_body,
     .env = ns
   )
@@ -193,8 +197,9 @@ test_that("gemini_compare_pair_live returns an error row when request fails", {
 
   # Simulate a generic error thrown by .gemini_req_perform
   testthat::local_mocked_bindings(
-    .gemini_req_perform    = function(req) stop("HTTP 500 Internal Server Error"),
-    .gemini_resp_status    = function(resp) 500L,
+    .gemini_api_key       = function(api_key = NULL) "TEST_GEMINI_KEY",
+    .gemini_req_perform   = function(req) stop("HTTP 500 Internal Server Error"),
+    .gemini_resp_status   = function(resp) 500L,
     .gemini_resp_body_json = function(resp, ...) NULL,
     .env = ns
   )
@@ -247,8 +252,9 @@ test_that("gemini_compare_pair_live validates model and maps thinking_level medi
   )
 
   testthat::local_mocked_bindings(
-    .gemini_req_perform    = function(req) fake_resp,
-    .gemini_resp_status    = function(resp) 200L,
+    .gemini_api_key       = function(api_key = NULL) "TEST_GEMINI_KEY",
+    .gemini_req_perform   = function(req) fake_resp,
+    .gemini_resp_status   = function(resp) 200L,
     .gemini_resp_body_json = function(resp, ...) fake_body,
     .env = ns
   )
@@ -388,10 +394,10 @@ test_that("submit_gemini_pairs_live calls gemini_compare_pair_live for each row
 
     calls <<- append(calls, list(
       list(
-        ID1            = ID1,
-        ID2            = ID2,
-        model          = model,
-        thinking_level = thinking_level,
+        ID1              = ID1,
+        ID2              = ID2,
+        model            = model,
+        thinking_level   = thinking_level,
         include_thoughts = include_thoughts
       )
     ))