test_that("No common errors", {
  # These are situations that had caused errors in the past that 
  # I have (hopefully) now fixed
  expect_no_error(
    ptweedie_inversion(seq(0, 5, length = 100), power = 1.1, mu = 1, phi = 1)
  )
  expect_no_error(
    ptweedie_inversion(0.01, mu = 5, phi = 0.01, power = 1.01)  
  )
  expect_no_error(
    ptweedie_inversion(0.005005, mu = 1, phi = 1, power = 3)  
  )
  expect_no_error(
    ptweedie_inversion(0.095095, mu = 1, phi = 1, power = 4.5) 
  )
  expect_no_error(
    ptweedie_inversion(0.001, mu = 0.01, phi = 0.01, power = 6)
  )
  expect_no_error(
    ptweedie_inversion(0.001, mu = 5, phi = 0.01, power = 6) 
  )
  expect_no_error(
    ptweedie_inversion(0.075075, mu = 1, phi = 1, power = 4.5)  
  )
  expect_no_error(
    ptweedie_inversion(0.001, power = 6, mu = 0.01, phi = 0.01)  
  )
  expect_no_error(
   ptweedie_inversion(0.001, phi = 10, p = 1.01, mu = 5)
  )
  expect_no_error(
    ptweedie_inversion(0.001, mu = 1, phi = 0.01, p = 1.01)
  )
  expect_no_error(
    ptweedie_inversion(50, mu = 1.4, phi = 0.74, power = 3) 
  )
  expect_no_error(
    ptweedie_inversion(0.3, mu = 2, phi = 1, power = 2.5)
  )
  expect_no_error(
    ptweedie_inversion(0.3, mu = 2, phi = 1, power = 1.5)
  )
  expect_no_error(
    ptweedie_inversion(1.25, mu = 0.74, phi = 1.4, power = 3)
  )
  expect_no_error(
    ptweedie_inversion(0.3, mu = 2, phi = 1, power = 3.5)
  )
})