tests/testthat/test-errorlocation.R

In data-cleaning/errorlocate: Locate Errors with Validation Rules

context("errorlocation")

describe("errorlocation",{
  it("can print",{
    rules <- validator(x > 1)
    data <- data.frame(x = 1:2, y=c(2,NA))
    el <- locate_errors(data, rules)

    expect_output_file(print(el), "test-errorlocation-print.txt", update=FALSE)
    expect_equal(el$errors, values(el))
  })
  it("can do a summary",{
    rules <- validator(x > 1)
    data <- data.frame(x = 1:2, y=c(2,NA))
    el <- locate_errors(data, rules)

    el_s <- summary(el)
    expect_output_file(print(el_s), "test-errorlocation-summary.txt", update=FALSE)
    expect_equivalent(as.integer(el_s$record_errors), c(1,1))
    expect_equivalent(as.integer(el_s$record_missing), c(1,1))
  })
  it("has errors_removed", {
    rules <- validator(x > 1)
    data <- data.frame(x = 1:2, y=c(2,NA))
    data_clean <- replace_errors(data, rules)
    el <- errors_removed(data_clean)
    el_s <- summary(el)
    expect_output_file(print(el_s), "test-errorlocation-summary.txt", update=FALSE)
  })
  it ("has collected info on duration and status",{
    rules <- validator( x > 1)
    d <- data.frame( x = c(0,1,2,-1))
    N <- nrow(d)
    el <- locate_errors(d, rules, Ncpus = 1)

    expect_equal(length(el$duration), N)
    expect_true(el$duration[3] == 0)
    expect_equal(length(el$duration), N)
    expect_true(all(el$status == 0))

    rules <- validator( x > 1, x < -1)
    d <- data.frame( x = 0 )
    expect_warning({
      el <- locate_errors(d, rules)
    })
    expect_equal(el$status, 2)
  })
})