tests/testthat/test-basic.R

In JohnCoene/ambiorix: Web Framework Inspired by 'Express.js'

test_that("Ambiorix", {
  # default
  app <- Ambiorix$new()
  expect_s3_class(app, "Ambiorix")

  # bindings
  app <- Ambiorix$new()
  app$port <- 3000L
  app$host <- "xxx"
  expect_equal(app$port, 3000L)
  expect_equal(app$host, "xxx")

  # set
  app <- Ambiorix$new(
    port = 8080L,
    host = "127.0.0.1",
    log = FALSE
  )

  app$static("www")
  expect_equal(app$port, 8080L)
  expect_equal(app$host, "127.0.0.1")

  expect_error(app$set_404("error"))
  expect_error(app$set_404(\(req) {}))
  expect_s3_class(app$set_404(\(req, res) {
    res$send("Errr")
  }), "Ambiorix")

  expect_error(app$serialiser("error"))
  expect_s3_class(app$serialiser(\(data) {
    return("data")
  }), "Ambiorix")

})