tests/testthat/test-class.R

In flr/bbm: FLR Implementation of a Two-Stage Stock Assessment Model

# test-class.R - DESC
# bbm/tests/testthat/test-class.R

# Copyright: European Union, 2018
# Author: %USER% <%EMAIL%>
#
# Distributed under the terms of the European Union Public Licence (EUPL) V.1.1.

# CONTEXT
context("")

# TEST
test_that("", {

  # EXPECT
  expect_()

})


# ---

# CONTEXT class
context("CLASS")

# TEST prototype
out <- new("CLASS")

test_that(class(out), equals())
test_that(validObject(out), is_true())

# CONTEXT class constructor
context("CLASS constructor")

# TEST constructor
test_constructor <- function(msg, method, object) {

  out <- do.call(method, list(object=object))

  # check validObject
  test_that(validObject(out), is_true())

  # check class
  test_that(class(out), equals())
}

# TEST
test_constructor()

# class accessors