tests/testthat/test-fileInput-mathprog.R

In alteryx/AlteryxPrescriptive: Simulation and Optimization Tools in Alteryx

context("fileInput-MathProg")

config <- list(
  inputMode = "file",
  fileType = "MathProg",
  problemType = "lp",
  maximize = TRUE,
  solver = "glpk"
)


payload <- list(config = config, inputs = NULL)


test_that("Basic LP is solved correctly by glpk", {
  payload$config$filePath = getSampleData("lpTwoVars.mod")
  payload$config$solver = 'glpk'
  sol = AlteryxSolve(payload)
  expect_equal(sol$objval, 34)
})

test_that("TSP is solved correctly by glpk", {
  payload$config$filePath = getSampleData("tsp.mod")
  payload$config$solver = 'glpk'
  sol = AlteryxSolve(payload)
  expect_equal(sol$objval, 6859)
})


test_that("Basic LP is solved correctly by gurobi", {
  skip_on_travis()
  skip_if_not_installed('gurobi')
  library(gurobi)
  payload$config$filePath = getSampleData("lpTwoVars.mod")
  payload$config$solver = 'gurobi'
  out = capture.output(sol <- AlteryxSolve(payload))
  expect_equal(sol$objval, 34)
})

test_that("Stigler Diet problem is solved correctly by glpk", {
  payload$config$filePath <- getSampleData('stigler.mod')
  payload$config$maximize <- FALSE
  sol <- AlteryxSolve(payload)
})