tests/testthat/test-main.R

In mrc-ide/odin.api: Serve 'odin' Models via an API

test_that("Can parse arguments", {
  expect_mapequal(parse_main(character()),
                  list(log_level = "info",
                       validate = FALSE,
                       port = 8001))
  expect_mapequal(parse_main("--port=8080"),
                  list(log_level = "info",
                       validate = FALSE,
                       port = 8080))
  expect_mapequal(parse_main(c("--port=8080", "--validate")),
                  list(log_level = "info",
                       validate = TRUE,
                       port = 8080))
  expect_mapequal(parse_main(c("--log-level=debug", "--validate")),
                  list(log_level = "debug",
                       validate = TRUE,
                       port = 8001))
})


test_that("Can construct api", {
  mock_run <- mockery::mock()
  mock_api <- mockery::mock(list(run = mock_run))
  mockery::stub(main, "api", mock_api)
  main(c("--log-level=debug"))

  mockery::expect_called(mock_api, 1)
  expect_equal(mockery::mock_args(mock_api)[[1]], list(FALSE, "debug"))

  mockery::expect_called(mock_run, 1)
  expect_equal(mockery::mock_args(mock_run)[[1]], list("0.0.0.0", port = 8001))
})