tests/testthat/test-process_error_check.R

In snystrom/memes: motif matching, comparison, and de novo discovery using the MEME Suite

skip_if_not(meme_is_installed())
a <- search_meme_path(util = "ame")

a_out <- list(
  status = 1,
  stdout = "output\n",
  stderr = "Some error"
)


test_that("process_check_error suggests correctly", {
  # No user flags should not check errors
  expect_error(
    capture.output(
      suppressMessages(
        process_check_error(
          a_out,
          help_fun = ~ {
            ame_help(a)
          },
          flags_fun = ~ {
            gsub("-", "_", .x)
          }
        )
      )
    ),
    "Some error",
    class = "error"
  )

  # lambda functions should work as input
  # user flags w/typo should get suggested
  expect_error(
    capture.output(
      suppressMessages(
        process_check_error(
          a_out,
          help_fun = ~ {
            processx::run(a, "-h", error_on_status = F)$stderr
          },
          user_flags = c("evalue_reorpt_threshold"),
          flags_fun = ~ {
            gsub("-", "_", .x)
          },
          default_help_fun = TRUE
        )
      )
    ),
    "\"evalue_report_threshold\" instead of: \"evalue_reorpt_threshold\"",
    class = "error"
  )

  # Also ensure usethis error is returned above
  expect_error(
    suppressMessages(
      capture.output(
        process_check_error(
          a_out,
          help_fun = ~ {
            processx::run(a, "-h", error_on_status = F)$stderr
          },
          user_flags = c("evalue_reorpt_threshold"),
          flags_fun = ~ {
            gsub("-", "_", .x)
          },
          default_help_fun = TRUE
        )
      )
    ),
    "\"evalue_report_threshold\" instead of: \"evalue_reorpt_threshold\"",
    class = "usethis_error"
  )
})

# TODO:
test_that("dreme help check works", {
  skip_if(TRUE)
})

# TODO:
test_that("tomtom help check works", {
  skip_if(TRUE)
})

# TODO:
test_that("fimo help check works", {
  skip_if(TRUE)
})