upgrades minitest

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: secretbase
 Type: Package
 Title: Cryptographic Hash, Extendable-Output and Base64 Functions
-Version: 1.0.3
+Version: 1.0.3.9000
 Description: Fast and memory-efficient streaming hash functions and base64
     encoding / decoding. Hashes strings and raw vectors directly. Stream hashes
     files potentially larger than memory, as well as in-memory objects through

NEWS.md

@@ -1,3 +1,5 @@
+# secretbase 1.0.3.9000 (development)
+
 # secretbase 1.0.3
 
 * `base64dec()` now emits a suppressable warning when failing to convert back to a character string.

tests/tests.R

@@ -1,8 +1,8 @@
-# minitest - a minimal testing framework v0.0.1 --------------------------------
+# minitest - a minimal testing framework v0.0.2 --------------------------------
 test_library <- function(package) library(package = package, character.only = TRUE)
 test_type <- function(type, x) invisible(typeof(x) == type || {stop("object of type '", typeof(x), "' was returned instead of '", type, "'")})
 test_equal <- function(a, b) invisible(a == b || {print(a); print(b); stop("the above expressions were not equal")})
-test_error <- function(x, containing = "") invisible(inherits(x <- tryCatch(x, error = identity), "error") && grepl(containing, x[["message"]], fixed = TRUE) || stop("expected error message containing '", containing, "' was not generated"))
+test_error <- function(x, containing = "") invisible(inherits(x <- tryCatch(x, error = identity), "error") && grepl(containing, x[["message"]], fixed = TRUE) || stop("Expected error message containing: ", containing, "\nActual error message: ", x[["message"]]))
 # ------------------------------------------------------------------------------
 
 test_library("secretbase")