tests/testthat/testDuplicated.R

In editrules: Parsing, Applying, and Manipulating Data Cleaning Rules

context("duplicated")
test_that("duplicated.editmatrix works",{

    expect_equal(
        duplicated.editmatrix(editmatrix(expression(
            x < 0, x <= 0, y < 0))),
        c(FALSE,FALSE,FALSE)
    )
})