test cases to check post_bug.R file

R/post_bug.R

@@ -29,7 +29,7 @@ post_bug <- function(text, title, component, ...,
     # Fill description, version and summary
     if (missing(component)) {
         cli::cli_alert("Please, pick a component:")
-        component <- menu(components)
+        component <- menu(components, graphics = TRUE)
     }
     component <- components[component]
     version <- missing_version(version)

R/post_help.R

@@ -12,7 +12,7 @@ read_documentation <- function() {
     if (answer %in% no) {
         cli::cli_alert_success("Opening documentation...")
         lapply(official_documentation, browseURL)
-        stop("Do it and then return please.", call. =  FALSE)
+        try(stop("Do it and then return please.", call. =  FALSE))
     }
     invisible(answer == TRUE)
 }
@@ -25,7 +25,7 @@ no <- c("Not sure", "Not now", "Negative", "No", "Nope", "Absolutely not")
 ask_confirmation <- function(title = NULL, positive = yes, negative = no) {
     options <- c(sample(positive, 1), sample(negative, 2)) # Mix which ones
     options <- sample(options, 3) # Random order
-    sel <- menu(options, title = title)
+    sel <- menu(options, graphics = TRUE, title = title)
     invisible(c("Cancel", options)[sel + 1])
 }
 
@@ -38,8 +38,8 @@ ask_research <- function() {
     cli::cli_alert("Are all the above questions affirmative?")
     answer <- ask_confirmation()
     if (answer %in% no) {
-        stop("Do it, later if you are still sure it is a bug then return please.",
-            call. =  FALSE)
+        try(stop("Do it, later if you are still sure it is a bug then return please.",
+            call. =  FALSE))
     } else if (answer == "Cancel") {
         return(invisible(NULL))
     }

tests/testthat/_snaps/post_bug.md

@@ -0,0 +1,29 @@
+# post_bug() works [plain]
+
+    Code
+      expect_equal(post_bug(), url)
+    Message <cliMessage>
+      > Please, pick a component:
+    Output
+      -- Documentation ---------------------------------------------------------------
+    Message <cliMessage>
+      > Have you read the documentation recently?
+    Output
+      (0 to cancel)
+      -- Previous research -----------------------------------------------------------
+    Message <cliMessage>
+      * Did you search for similar issues?
+      * Did you search on the mailing list archive?
+      * Did you search on forums and different sites?
+      > Are all the above questions affirmative?
+      -- Content of the issue --------------------------------------------------------
+      > Do you provide a short reproducible example of the issue?
+    Output
+      Maybe first check with the R-devel mailing list
+    Message <cliMessage>
+      > Is this issue about R and not a package?
+      > Do you explain expectations and the buggy behaviour?
+      > Did you try to identify the cause of the bug?
+      ! This notification will reach the R-core volunteers and many more
+      * Are you sure to open a bug0 ?
+

tests/testthat/test-post_bug.R

@@ -0,0 +1,7 @@
+cli::test_that_cli(configs = "plain", "post_bug() works", {
+    skip_if_not(interactive())
+    url <- paste0(missing_host(), "rest/bug")
+    expect_snapshot({
+        expect_equal(post_bug(), url)
+    })
+})