chore: Split snapshots

tests/testthat/_snaps/dm.md

@@ -139,7 +139,7 @@
       Primary keys: 16
       Foreign keys: 14
 
----
+# output for dm() with dm (2)
 
     Code
       dm(dm_for_filter(), dm_for_flatten(), dm_for_filter())
@@ -154,7 +154,7 @@
         * "tf_5" at locations 5 and 16.
         * ...
 
----
+# output for dm() with dm (3)
 
     Code
       dm(dm_for_filter(), dm_for_flatten(), dm_for_filter(), .name_repair = "unique") %>%

tests/testthat/_snaps/examine-cardinalities.md

@@ -55,7 +55,7 @@
     Message
       ! No FKs available in `dm`.
 
----
+# `dm_examine_cardinalities()` API (2)
 
     Code
       dm_examine_cardinalities(dm_test_obj(), foo = "bar")

tests/testthat/_snaps/examine-constraints.md

@@ -87,7 +87,7 @@
     Message
       i No constraints defined.
 
----
+# `dm_examine_constraints()` API (2)
 
     Code
       dm_examine_constraints(dm_test_obj(), foo = "bar")

tests/testthat/test-dm.R

@@ -210,11 +210,15 @@ test_that("output for dm() with dm", {
     dm(dm_for_filter()) %>% collect()
     dm(dm_for_filter(), dm_for_flatten(), dm_for_filter(), .name_repair = "unique", .quiet = TRUE) %>% collect()
   })
+})
 
+test_that("output for dm() with dm (2)", {
   expect_snapshot(error = TRUE, {
     dm(dm_for_filter(), dm_for_flatten(), dm_for_filter())
   })
+})
 
+test_that("output for dm() with dm (3)", {
   expect_snapshot({
     dm(dm_for_filter(), dm_for_flatten(), dm_for_filter(), .name_repair = "unique") %>% collect()
   })

tests/testthat/test-examine-cardinalities.R

@@ -17,7 +17,9 @@ test_that("`dm_examine_cardinalities()` API", {
     dm_examine_cardinalities(dm_test_obj(), progress = FALSE)
     dm_examine_cardinalities(dm = dm_test_obj())
   })
+})
 
+test_that("`dm_examine_cardinalities()` API (2)", {
   expect_snapshot(error = TRUE, {
     dm_examine_cardinalities(dm_test_obj(), foo = "bar")
   })

tests/testthat/test-examine-constraints.R

@@ -92,7 +92,9 @@ test_that("`dm_examine_constraints()` API", {
     dm_examine_constraints(dm_test_obj(), progress = FALSE)
     dm_examine_constraints(dm = dm_test_obj())
   })
+})
 
+test_that("`dm_examine_constraints()` API (2)", {
   expect_snapshot(error = TRUE, {
     dm_examine_constraints(dm_test_obj(), foo = "bar")
   })