tests/testthat/test_check.R

In ddlee96/mcmi: Monte Carlo Method for Multivariable Integration

library(testthat)
library(mcmi)

test_that("test check_dim",
{
    expect_equal(check_dim(c(1,2)),  1)
    expect_equal(check_dim(c(1,2,3,4)), 2)
    expect_equal(check_dim(c(1,2,3,4,5,6)), 3)

    expect_error(check_dim(c(1,2,3)), "invalid bounds ")
})


test_that("test check_integrand",
{
    expect_equal(class(check_integrand("x^2")), "expression")
    expect_equal(class(check_integrand(3)), "numeric")
    expect_equal(check_integrand(3), 3)

    expect_error(check_integrand("a*b"), "evaluation failed")
    expect_error(check_integrand(c(1,2)), "should be a number")
})


test_that("test check_constrains",
{
    expect_equal(check_constrains(c("x<2","y>x^2")), c("x<2","y>x^2"))

    expect_error(check_constrains(c("x<y", "a*b")),"evaluation failed")
    expect_error(check_constrains(c("x<3", "y")),"not logical.")
})