test_that("mleMOGIW test", {
  x <- rMOGIW(50,2,3,2,3)
  pars <- c(alpha=2, beta=3, lambda=2, theta=3)
  expect_equal(mleMOGIW(x=x,param=pars,method = "L-BFGS-B"), mleMOGIW(x=x,param=pars))
})