tests/testthat/test-qtmev.R

In mevr: Fitting the Metastatistical Extreme Value Distribution MEVD

test_that("qtmev", {
  describe("qtmev function", {
    it ("should throw an error if data argument is not of class 'data.frame'", {
      expect_error(qtmev(1, 1:3), "data must be of class 'data.frame'")
    })
  })
})