tests/testthat/test-join.R

In tonyelhabr/tetidy: Tony's Personal Package

context("join")
require("dplyr")
# testthat::test_file("tests/testthat/test-join.R")

# https://github.com/tidyverse/dplyr/blob/master/tests/testthat/test-joins.r
a <- dplyr::data_frame(x = 1:3, y = 2:4)
b <- dplyr::data_frame(x = 3:5, z = 3:5)
df <- dplyr::full_join(a, b, "x")

testthat::test_that("`summarise_join_stats()` works as expected with default values", {

  actual <- summarise_join_stats(df, "y", "z")
  expect <-
    dplyr::data_frame(
      x = "y",
      y = "z",
      n_x = 3L,
      n_y = 3L,
      n_joined = 1L,
      n_x_unjoined = 2L,
      n_y_unjoined = 2L,
      x_in_y_pct = 33.33,
      y_in_x_pct = 33.33
    )
  testthat::expect_equal(nrow(actual), 1)
  testthat::expect_equal(ncol(actual), 9)
  # testthat::expect_equal(actual, expect)

  actual_2 <- summarise_join_stats(df, y, z)
  testthat::expect_equal(actual_2, actual)

})