set gurobi solver

Author: jurgen-lentz

tests/testthat/test_ampl.R

@@ -83,6 +83,7 @@ test_that("test AMPL", {
   expect_equal(ampl$getSets()$S$name(), "S")
   expect_equal(ampl$getParameters()$l$name(), "l")
 
+  ampl$setOption("solver", "gurobi")
   ampl$solve()
   expect_equal(ampl$getObjective("obj")$value(), 5)
 

tests/testthat/test_examples.R

@@ -3,37 +3,37 @@ context("Test examples")
 test_that("test dietmodel.R", {
   setwd("../../examples/")
   source("dietmodel.R")
-  dietmodel()
+  dietmodel("gurobi")
 })
 
 test_that("test firstexample.R", {
   # setwd("../../examples/")
   source("firstexample.R")
-  firstexample()
+  firstexample("gurobi")
 })
 
 test_that("test efficientfrontier.R", {
   # setwd("../../examples/")
   source("efficientfrontier.R")
-  efficientfrontier()
+  efficientfrontier("gurobi")
 })
 
 test_that("test multidimensional.R", {
   # setwd("../../examples/")
   source("multidimensional.R")
-  multidimensional()
+  multidimensional("gurobi")
 })
 
 test_that("test optionsexample.R", {
   # setwd("../../examples/")
   source("optionsexample.R")
-  optionsexample()
+  optionsexample("gurobi")
 })
 
 if (Sys.getenv("SKIP_BIG_TESTS") != "1") {
   test_that("test trackingmodel.R", {
       # setwd("../../examples/")
       source("trackingmodel.R")
-      trackingmodel()
+      trackingmodel("gurobi")
   })
 }