tests/testthat.R

In KapLDN/MangoTask: Generate random sample from a defined distribution

# testthat::context("Test for generate Random")
library(MangoTask)
library(testthat)

testthat::test_that("Normal disribution tests"
          ,code = {

            sample_size = 100
            distrib <- generateRandom(n= sample_size,dist = "Normal",mean = 0, sd = 1)
            expect_equal(sample_size, length(distrib$sample))
            expect_equal("Normal", distrib$dist)
          }
)


testthat::test_that("Binomial disribution tests"
          ,code = {

            sample_size = 100
            distrib <- generateRandom(n= sample_size,dist = "Binomial",size = 100,prob = 0.5)
            expect_equal(sample_size, length(distrib$sample))
            expect_equal("Binomial", distrib$dist)
          }
)


testthat::test_that("Poisson disribution tests"
          ,code = {

            sample_size = 100
            distrib <- generateRandom(n= sample_size,dist = "Poisson",lambda = 10)
            expect_equal(sample_size, length(distrib$sample))
            expect_equal("Poisson", distrib$dist)
          }
)