tests/testthat/test_code_sql_distinct.R

In MattjCamp/Coder: A super-simple code generator

library(sqldf)

context("SQL DISTINCT")

test_that("SQL Distinct behaves as expected", {

  sample <- code_sql_sample("quakes")

  d <-
    sample %>%
    code_sql_distinct(col = "stations") %>%
    sqldf()

  expect_equal(d[1, 1], 41)


})