test whether developers forgot a browser() debug statement in their R package code

test-browser.R

#'
#' This is a test using the `testthat` package for R
#'
#' @title Test whether developers forgot a browser() debug statement in their R package code
#'
#' @description
#' Test goal: Check all functions of the encompassing R package
#'   for whether developers forgot a browser()-statement
#'   while debugging.
#'
#' @author Andreas M. Brandmaier
#'

test_that("developers did not forget a browser() statement in the package code", {
  all_func_names <- ls(getNamespace(testthat::testing_package()))
  func_bodies <- sapply(all_func_names, body)
  for (f in func_bodies) {
    testthat::expect_false(any(grepl(pattern = "browser\\(\\)", x=f)))
  }
})