tests/testthat/test-GeneratorNU.R

In FuzzyResampling: Resampling Methods for Triangular and Trapezoidal Fuzzy Numbers

test_that("Function returns correct values", {


  # snapshots tests

  expect_snapshot(

    {set.seed(123456)

      GeneratorNU(10, 0,1,1,2)}
  )


  expect_snapshot(

    {set.seed(123456)

      GeneratorNU(5, 0,1,1,2,increases = TRUE)}
  )


  expect_snapshot(

    {set.seed(123456)

      GeneratorNU(8, -1,2,1.3,2.1)}
  )

  expect_snapshot(

    {set.seed(123456)

      GeneratorNU(5, 0,1,1,2,increases = FALSE)}
  )


  expect_snapshot(

    {set.seed(123456)

      GeneratorNU(n=5, mu=1.5,sigma=1.5 , a= 1.5, b=2,increases = FALSE)}
  )

  expect_snapshot(

    {set.seed(123456)

      GeneratorNU(n=5, mu=1.5,sigma=1.5 , a= 0, b=0,increases = FALSE)}
  )

})



test_that("Function reports errors", {



  # tests

  expect_error(GeneratorNU(n=-15, mu=1.5,sigma=1.5 , a= 1.5, b=2,increases = FALSE),
               "Parameter n should be integer value and > 0")

  expect_error(GeneratorNU(n=.2, mu=1.5,sigma=1.5 , a= 1.5, b=2,increases = FALSE),
               "Parameter n should be integer value and > 0")

  expect_error(GeneratorNU(n=NA, mu=1.5,sigma=1.5 , a= 1.5, b=2,increases = FALSE),
               "Parameter n should be integer value and > 0")

  expect_error(GeneratorNU(n=10, mu="c",sigma=1.5 , a= 1.5, b=2,increases = FALSE),
               "Parameter mu should be double value")

  expect_error(GeneratorNU(n=10, mu=0,sigma=-1.5 , a= 1.5, b=2,increases = FALSE),
               "Parameter sigma should be double value and > 0")

  expect_error(GeneratorNU(n=10, mu=0,sigma=1 , a= -1, b=2,increases = FALSE),
               "Parameter a should be double value and >= 0")

  expect_error(GeneratorNU(n=10, mu=0,sigma=1 , a= "c", b=2,increases = FALSE),
               "Parameter a should be double value and >= 0")

  expect_error(GeneratorNU(n=10, mu=0,sigma=1 , a= 1, b=-2,increases = FALSE),
               "Parameter b should be double value and >= 0")

  expect_error(GeneratorNU(n=10, mu=0,sigma=1 , a= 1, b=-3,increases = FALSE),
               "Parameter b should be double value and >= 0")

  expect_error(GeneratorNU(n=10, mu=0,sigma=1 , a= 1, b=3,increases = 5),
               "Parameter increases should have logical value")


})