new expectation expect_success

DESCRIPTION

@@ -32,6 +32,7 @@ Collate:
     'expectations-matches.R'
     'expectations-old.R'
     'expectations-silent.R'
+    'expectations-success.R'
     'expectations.r'
     'make-expectation.r'
     'mock.r'

NAMESPACE

@@ -43,6 +43,7 @@ export(expect_named)
 export(expect_null)
 export(expect_output)
 export(expect_silent)
+export(expect_success)
 export(expect_that)
 export(expect_true)
 export(expect_warning)

R/expectations-success.R

@@ -0,0 +1,24 @@
+#' Expect that code succeeds.
+#'
+#' Use it when failure should not abort the current test.
+#'
+#' @param expr Expression to evaluate
+#' @export
+#' @examples
+#' expect_success(print("Hi!"))
+#' \dontrun{
+#' expect_success(stop("What?"))
+#' }
+expect_success <- function(expr) {
+  label <- find_expr("expr")
+  out <- evaluate_promise(expr)
+
+  res <- try(force(expr), silent = TRUE)
+
+  success <- !inherits(res, "try-error")
+
+  expect(
+    success,
+    paste(label, "raised an error:", as.character(res))
+  )
+}

man/expect_success.Rd

@@ -0,0 +1,21 @@
+% Generated by roxygen2 (4.1.1): do not edit by hand
+% Please edit documentation in R/expectations-success.R
+\name{expect_success}
+\alias{expect_success}
+\title{Expect that code succeeds.}
+\usage{
+expect_success(expr)
+}
+\arguments{
+\item{expr}{Expression to evaluate}
+}
+\description{
+Use it when failure should not abort the current test.
+}
+\examples{
+expect_success(print("Hi!"))
+\dontrun{
+expect_success(stop("What?"))
+}
+}
+