tests/testthat/test_VMPSigma.R

In rcarcasses/HQCD-P: An R package for the Holographic Pomeron

context('VMPSigma')

init()

test_that('Experimental data is being loaded', {
  vmp <- VMPSigma()
  expect_equal(length(expVal(vmp)), 113)
  expect_equal(length(expErr(vmp)), 113)
  expect_equal(names(expKinematics(vmp)),c('m', 'Q2', 'W'))
  expect_equal(attr(vmp, 'tmin'), -1.2)
  expect_equal(attr(vmp, 'tmax'), 0.0)
})