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)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.