Coverage change for Query History Tests (#96)

* changes required to get codecov checks running for higher %

* Adjusting QH test coverage

---------

Co-authored-by: Zac Davies <[email protected]>

Author: zacdav-db

tests/testthat/test-query-history.R

@@ -1,10 +1,25 @@
+test_that("Query History API - don't perform", {
+  withr::local_envvar(c(
+    "DATABRICKS_HOST" = "http://mock_host",
+    "DATABRICKS_TOKEN" = "mock_token"
+  ))
+
+  resp_history3 <- db_sql_query_history(
+    user_ids = c(1, 2, 3),
+    endpoint_ids = c("X", "Y", "Z"),
+    max_results = 1,
+    include_metrics = TRUE,
+    perform_request = FALSE
+  )
+  expect_s3_class(resp_history3, "httr2_request")
+})
+
 skip_on_cran()
 skip_unless_credentials_set()
 skip_unless_authenticated()
 skip_unless_aws_workspace()
 
-test_that("query history API", {
-
+test_that("Query History API", {
   expect_no_error(
     resp_history <- db_sql_query_history(
       max_results = 1
@@ -19,17 +34,4 @@ test_that("query history API", {
       end_time_ms = as.integer(Sys.time()) * 1000
     )
   )
-
-  resp_history3 <- db_sql_query_history(
-    user_ids = c(1, 2, 3),
-    endpoint_ids = c("X", "Y", "Z"),
-    max_results = 1,
-    include_metrics = TRUE,
-    perform_request = FALSE
-  )
-  expect_s3_class(resp_history3, "httr2_request")
-
-
 })
-
-