test_that("expected length", {
  expect_length(deloof(deloof_data), nrow(deloof_data))
})