updating tests

randrescastaneda · Feb 29, 2024 · 1f30639 · 1f30639
1 parent 0a6d49c
commit 1f30639
Showing 1 changed file with 47 additions and 1 deletion.
diff --git a/tests/testthat/test-dplyr-joins.R b/tests/testthat/test-dplyr-joins.R
@@ -390,7 +390,7 @@ test_that("LEFT JOIN - unmatched throws error", {
             relationship = "many-to-many",
             by           = "id1=id2",
             unmatched    = "error") |>
-    expect_no_error()
+    expect_error()
 
   left_join(x            = x1,
             y            = y1,
@@ -399,6 +399,23 @@ test_that("LEFT JOIN - unmatched throws error", {
             unmatched    = "error") |>
     expect_error()
 
+
+  left_join(x            = x4,
+            y            = y4,
+            relationship = "many-to-many",
+            by           = c("id2", "x"),
+            unmatched    = "error") |>
+    expect_error()
+
+  left_join(x            = x4,
+            y            = y4,
+            relationship = "many-to-many",
+            by           = c("id1=id2", "id2=id"),
+            unmatched    = "error") |>
+    expect_error()
+
+
+
 })
 
 
@@ -722,6 +739,21 @@ test_that("RIGHT JOIN - unmatched error", {
             unmatched    = "error") |>
     expect_error()
 
+ right_join(x            = x4,
+           y            = y4,
+           relationship = "many-to-many",
+           by           = c("id2", "x"),
+           unmatched    = "error") |>
+   expect_error()
+
+ right_join(x            = x4,
+           y            = y4,
+           relationship = "many-to-many",
+           by           = c("id1=id2", "id2=id"),
+           unmatched    = "error") |>
+   expect_no_error()
+
+
 })
 
 #-------------------------------------------------------------------------------
@@ -1602,5 +1634,19 @@ test_that("INNER JOIN - unmatched error", {
             unmatched    = "error") |>
     expect_error()
 
+  inner_join(x            = x4,
+             y            = y4,
+             relationship = "many-to-many",
+             by           = c("id2", "x"),
+             unmatched    = "error") |>
+    expect_error()
+
+  inner_join(x            = x4,
+             y            = y4,
+             relationship = "many-to-many",
+             by           = c("id1=id2", "id2=id"),
+             unmatched    = "error") |>
+    expect_error()
+
 
 })