context("test-sim.rm")

daten <- tmt:::sim.rm(theta = 100, b = 10, seed =  c(1111,1112))
set.seed(1111)
theta <- stats::rnorm(100)
set.seed(1112)
beta <- stats::rnorm(10)

daten2a <- tmt:::sim.rm(theta = theta, b = beta, seed = c(1111,1112))
daten2b <- tmt:::sim.rm(theta = 100, b = 10, seed = c(1111,1112))

set.seed(1111)
daten3a <- tmt:::sim.rm(theta = 100, b = beta, seed = NULL)
set.seed(1111)
daten3b <- tmt:::sim.rm(theta = 100, b = beta, seed = NULL)

set.seed(1111)
daten4a <- tmt:::sim.rm(theta = theta, b = 10, seed = NULL)
set.seed(1111)
daten4b <- tmt:::sim.rm(theta = theta, b = 10, seed = NULL)

# -----------------------------------------------------------------
context("test-sim.rm data structure")
# -----------------------------------------------------------------
test_that("test classic simulation function for the Rasch model", {
  expect_warning(tmt:::sim.rm(theta = 100, b = 10, seed = 1111))
  expect_message(tmt:::sim.rm(theta = theta, b = 10, seed = 1111))
  expect_message(tmt:::sim.rm(theta = 100, b = beta, seed = 1111))
  expect_is(daten,"matrix")
  expect_that(nrow(daten), equals(100))
  expect_that(ncol(daten), equals(10))
  expect_that(daten[1,], equals(c(0,0,1,0,0,0,1,0,1,1)))
  expect_that(daten,equals(daten2a))
  expect_that(daten2a,equals(daten2b))
  expect_that(daten3a,equals(daten3b))
  expect_that(daten4a,equals(daten4b))
})