inst/apps/309-flexdashboard-tabs-navs/tests/testthat/test-309-flexdashboard-tabs-navs.R

In rstudio/shinycoreci: CI Testing for shiny

library(shinytest2)

is_element_visible <- function(selector) {
  sprintf("$('%s:visible').length > 0", selector)
}

is_test_element_visible <- function(test_id) {
  is_element_visible(sprintf('[data-test-id="%s"]', test_id))
}

expect_test_element_visible <- function(app, test_id) {
  expect_true(app$get_js(is_test_element_visible(!!test_id)))
  return(invisible(app))
}

expect_test_element_hidden <- function(app, test_id) {
  expect_false(app$get_js(is_test_element_visible(!!test_id)))
  return(invisible(app))
}

for (bs_version in 3:5) {
  test_that(paste0("309-flexdashboard-tabs-navs with BS", bs_version), {
    app <- AppDriver$new(
      name = "309-flexdashboard-tabs-navs",
      seed = 62868,
      height = 600,
      width = 1200,
      view = interactive(),
      render_args = list(
        params = list(bs_version = bs_version),
        output_options = list(theme = list(version = bs_version))
      )
    )

    app$wait_for_idle()
    app$wait_for_js(is_test_element_visible("Page 1"))

    # ---- Page 1 ----
    # Page 1 and its boxes are visible
    expect_test_element_visible(app, "Page 1")
    expect_test_element_visible(app, "Box 1-1")
    expect_test_element_visible(app, "Box 1-2")

    # Check tab state on Page 1 (first tabs are visible)
    expect_test_element_visible(app, "Tab 1-1a")
    expect_test_element_visible(app, "Tab 1-2a")
    # second tabs are hidden
    expect_test_element_hidden(app, "Tab 1-1b")
    expect_test_element_hidden(app, "Tab 1-2b")

    # Pages 2 and 3 and their elements are hidden
    expect_test_element_hidden(app, "Page 2")
    expect_test_element_hidden(app, "Box 2-1")
    expect_test_element_hidden(app, "Box 2-2")
    expect_test_element_hidden(app, "Page 3")
    expect_test_element_hidden(app, "Box 3-1")
    expect_test_element_hidden(app, "Box 3-2")

    # ---- Page 1: Change Tabs ----
    # activate second tabs and check that visibility has switched
    app$
      click(selector = '[data-test-id="Page 1"] .nav-tabs [href$="tab-1-1b"]')$
      wait_for_js(is_test_element_visible("Tab 1-1b"))

    app$
      click(selector = '[data-test-id="Page 1"] .nav-tabs [href$="tab-1-2b"]')$
      wait_for_js(is_test_element_visible("Tab 1-2b"))

    # now first tabs are hidden
    expect_test_element_hidden(app, "Tab 1-1a")
    expect_test_element_hidden(app, "Tab 1-2a")
    # second tabs are visible
    expect_test_element_visible(app, "Tab 1-1b")
    expect_test_element_visible(app, "Tab 1-2b")

    # ---- Page 2 ----
    app$
      click(selector = ".nav .dropdown .dropdown-toggle")$
      wait_for_js(is_element_visible(".nav .dropdown .dropdown-menu"))$
      click(selector = '.nav .dropdown-item[href$="page-2"]')$
      wait_for_js(is_test_element_visible("Page 2"))

    # Page 2 is visible
    expect_test_element_visible(app, "Page 2")
    expect_test_element_visible(app, "Box 2-1")
    expect_test_element_visible(app, "Box 2-2")

    # Pages 1 and 3 and their elements are hidden
    expect_test_element_hidden(app, "Page 1")
    expect_test_element_hidden(app, "Box 1-1")
    expect_test_element_hidden(app, "Box 1-2")
    expect_test_element_hidden(app, "Page 3")
    expect_test_element_hidden(app, "Box 3-1")
    expect_test_element_hidden(app, "Box 3-2")

    # ---- Page 3 ----
    app$
      click(selector = ".nav .dropdown .dropdown-toggle")$
      wait_for_js(is_element_visible(".nav .dropdown .dropdown-menu"))$
      click(selector = '.nav .dropdown-item[href$="page-3"]')$
      wait_for_js(is_test_element_visible("Page 3"))

    # Page 3 is visible
    expect_test_element_visible(app, "Page 3")
    expect_test_element_visible(app, "Box 3-1")
    expect_test_element_visible(app, "Box 3-2")

    # Pages 1 and 2 and their elements are hidden
    expect_test_element_hidden(app, "Page 1")
    expect_test_element_hidden(app, "Box 1-1")
    expect_test_element_hidden(app, "Box 1-2")
    expect_test_element_hidden(app, "Page 2")
    expect_test_element_hidden(app, "Box 2-1")
    expect_test_element_hidden(app, "Box 2-2")

    app$stop()
  })
}