tests/testthat/test-options.R

In r3dmol: Create Interactive 3D Visualizations of Molecular Data

test_that("`m_viewer_spec` create a `ViewerSpec` list with default value", {
  viewer_spec <- m_viewer_spec()

  expect_s3_class(viewer_spec, "ViewerSpec")

  expect_equal(viewer_spec$id, NULL)
  expect_equal(viewer_spec$defaultcolors, NULL)
  expect_equal(viewer_spec$cartoonQuality, 5)
  expect_equal(viewer_spec$antialias, TRUE)
  expect_equal(viewer_spec$nomouse, FALSE)
  expect_equal(viewer_spec$backgroundColor, "white")
  expect_equal(viewer_spec$lowerZoomLimit, 5)
  expect_equal(viewer_spec$upperZoomLimit, 400)
  expect_equal(viewer_spec$orthographic, FALSE)
  expect_equal(viewer_spec$disableFog, FALSE)
})

test_that("`m_viewer_spec()` options are able to set", {
  options <- list(
    id = "1",
    defaultcolors = "#fff",
    cartoonQuality = 6,
    antialias = FALSE,
    nomouse = TRUE,
    backgroundColor = "#fff",
    lowerZoomLimit = 0,
    upperZoomLimit = 1000,
    orthographic = TRUE,
    disableFog = TRUE
  )

  viewer_spec <- do.call(m_viewer_spec, options)

  options_check(options, viewer_spec)
})