testthat.R

# testthat.R - DESC
# /testthat.R

# Copyright 2015 Iago Mosqueira (EC JRC) <iago.mosqueira@jrc.ec.europa.eu>
#
# Distributed under terms of the European Union Public Licence (EUPL) 1.1.
#
# Notes:

library(testthat)
library(ss3om)

# expect_comparable {{{

expect_comparable <- function(object, expected, ..., label = NULL,
  expected.label = NULL, diff = 0.05) {

  # 1. Capture object and label
  act <- quasi_label(rlang::enquo(object), label, arg = "object")
  exp <- quasi_label(rlang::enquo(expected), expected.label, arg = "expected")

  # 2. Call expect()
  act$diff <- c((object - expected) / abs(expected))
  expect(
    all(abs(act$diff) < diff),
    sprintf("some relative differences larger than %.2f%%, mean = %.2f",
      diff * 100, mean(act$diff))
  )

  # 3. Invisibly return the value
  invisible(act$diff)
} # }}}

test_check("ss3om")