tests/testthat/test-dca_waiters.R

In Sage-Bionetworks/dcamodules: Data Curator App Modules

test_that("waiters can be successfully initiated", {
  server <- function(input, output, session) {
    observeEvent(input$waiter, {
      t <- 0
      # not certified
      dca_waiter("update", is.landing = TRUE, is.certified = FALSE, sleep = t)
      # not enought permission
      dca_waiter("update", is.landing = TRUE, is.permission = FALSE, sleep = t)
      # success login
      dca_waiter("update", is.landing = TRUE, sleep = t)
      # simple waiter screens
      dca_waiter("show", sleep = t)
      dca_waiter("update", sleep = t, is.stop = TRUE)
      dca_waiter("hide", sleep = t)
    })
  }
  testServer(server, {
    # iniate all waiters in server
    session$setInputs(waiter = 1)
    expect_equal(input$waiter, 1)
  })
})

test_that("should have warning when is.stop and is.landing both provided", {
  expect_warning(
    dca_waiter("show", is.landing = TRUE, is.stop = TRUE),
    "'is.stop' is not used when 'is.landing' is TRUE"
  )
})

test_that("spin_logo works", {
  svg_spinner <- spin_logo("synapse")
  png_spinner <- spin_logo("htan")
  expect_identical(class(svg_spinner), "shiny.tag")
  expect_identical(class(png_spinner), "shiny.tag")
  expect_identical(svg_spinner$attribs$class, "dca-logo-spin")
  expect_identical(png_spinner$attribs$class, "dca-logo-spin")
})