Add debug logging to test-hover.R

Author: randy3k

NAMESPACE

@@ -1,7 +1,6 @@
 # Generated by roxygen2: do not edit by hand
 
 export(run)
-import(callr)
 import(xml2)
 importFrom(R6,R6Class)
 importFrom(digest,digest)

tests/testthat/test-hover.R

@@ -426,6 +426,8 @@ test_that("Hover works with local function", {
     ))
 
     result <- client %>% respond_hover(temp_file, c(6, 9))
+    message("DEBUG HOVER RESULT:")
+    message(paste(capture.output(print(result)), collapse = "\n"))
     expect_equal(result$range$start, list(line = 6, character = 7))
     expect_equal(result$range$end, list(line = 6, character = 11))
     expect_equal(result$contents, list(