tests/testthat/test_matlab.R

In hstojic/hfunk: Useful R functions

# ----------------------------------------------------------------------
# Unit tests
# ----------------------------------------------------------------------

# unit tests for the functions in other.R

#source("../../R/matlab.R")
#library(assertthat)
#library(testthat)


# ----
# rmat function
# ----

context("rmat function")


test_that("rmat - runif 2x3", {

    # basic results
    res <- rmat(runif, 2, 3)

    expect_that( dim(res), is_identical_to(c(2L,3L)) )
    expect_that( res, is_a("matrix") )
    expect_that( all(res >= 0 && res <= 1), is_true() )
})