tests/testthat/unit/test-full_join.R

In asardaes/table.express: Build 'data.table' Expressions with Data Manipulation Verbs

context("  Full join")

test_that("Full join works.", {
    expected <- merge(lhs, rhs, by = "x", all = TRUE)
    ans <- lhs %>% start_expr %>% full_join(rhs, x) %>% end_expr
    expect_identical(ans, expected)

    lhs <- data.table::setkey(data.table::copy(lhs), x)

    expected <- merge(lhs, rhs, all = TRUE)
    ans <- lhs %>% start_expr %>% full_join(rhs) %>% end_expr
    expect_identical(ans, expected)

    expected <- merge(website, paypal, by.x = c("name", "session_id"), by.y = c("name", "payment_id"), all = TRUE)
    ans <- website %>% start_expr %>% full_join(paypal, "name", session_id = payment_id) %>% end_expr
    expect_identical(ans, expected)
})

test_that("Self full join works.", {
    expected <- merge(lhs, lhs, by = "x", all = TRUE, allow = TRUE)
    ans <- lhs %>% start_expr %>% full_join(, x) %>% end_expr
    expect_identical(ans, expected)
})

test_that("Eager full_join works.", {
    expected <- merge(lhs, rhs, by = "x", all = TRUE)
    ans <- lhs %>% full_join(rhs, x)
    expect_identical(ans, expected)

    expected <- merge(lhs, lhs, by = "x", all = TRUE, allow = TRUE)
    ans <- lhs %>% full_join(, x)
    expect_identical(ans, expected)
})