tests/testthat/test-mip-lpsolve.R

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

context("lpsolve")

describe("lp_solve",{
  it("can translate simple lin rule", {
    v <- validator(3*x <= 2)

    lin_rules <- lin_as_mip_rules(v)
    exp <- list( a = 3,
                 op = "<=",
                 b = 2,
                 rule = "V1",
                 type = "double",
                 weight = Inf)

    expect_equivalent(lin_rules[[1]], exp)
  })
  it("can translate lin rules to lpsolve object", {
    v <- validator(x > 1, y < 3)
    lin_rules <- lin_as_mip_rules(v)
    translate_mip_lp(lin_rules)
  })
  it("can encode weights in the objective function",{
    v <- validator(x + y == z, 2*y + 1 == z)
    data <- data.frame(x = 1, y = 1, z = 3)
    mip <- miprules(v)
    mip$set_values(as.list(data), weights = c(x=10, y = 1, z = 1))
  })
})