test_that("We get dm objects with relational integrity", {

  constraints_test_cur <- dm::dm_examine_constraints(srppp_cur, .progress = FALSE)
  
  # Count the number of keys that failed a constraint check
  n_failed_cur <- constraints_test_cur |> 
    filter(!is_key) |> 
    nrow()
  expect_equal(n_failed_cur, 1)

  # We know there is a problem with the current test data, as three reference 
  # products parallel imports are missing
  expect_equal(
    constraints_test_cur[[1, "problem"]],
    "values of `parallel_imports$pNbr` not in `pNbrs$pNbr`: 7738 (5), 8332 (1), 9033 (1)")
    
  expect_message(
    print(dm::dm_examine_constraints(srppp_test_1, .progress = FALSE)),
    "All constraints satisfied")

  constraints_test_2 <- dm::dm_examine_constraints(srppp_test_2, .progress = FALSE) |> 
    as_tibble()
 
  # Count the number of keys that failed a constraint check
  n_failed <- constraints_test_2 |> 
    filter(!is_key) |> 
    nrow()
  expect_equal(n_failed, 1)

  # We know there is a problem with the current test data, as three reference 
  # products parallel imports are missing
  expect_equal(
    constraints_test_2[[1, "problem"]],
    "values of `parallel_imports$pNbr` not in `pNbrs$pNbr`: 7738 (5), 8332 (1), 9033 (1)")
    
})