test_that("dilp works", { expect_equal(length(dilp(McAbeeExample)), 6) })