tests/testthat/test-is_working.R

In dcmodifydb: Modifying Rules on a DataBase

library(dbplyr)
library(dcmodify)

describe("is working",{
  it("is working",{

    tab <- tbl_memdb(data.frame(x = 1:2), "w")
    m <- modifier(if (x > 1) x <- 1)

    # updates <- modifier_to_sql(m, tab)
    working <- is_working_db(m, tab)

    expect_equal(working, TRUE)
  })

  it("is working check",{

    tab <- memdb_frame(x = 1:2)
    df <- as.data.frame(tab)

    m <- modifier( if (x > 1) x <- 1
                 , if (x > 2) y <- 1
                 , if (z > 2) w <- 1
                 , if (x < 0) x <- 0
                 )

    expect_warning({
      working <- is_working_db(m, tab)
    })

    expect_equal(working, c(TRUE, TRUE, FALSE, TRUE))
    expect_equal(as.data.frame(tab), df)
  })
})