test_that("layout_vertical_right appends classes and data-bs-theme and filters theme li", {
  theme_a <- shiny::tags$a(href = "#", class = "theme-toggle", "T")
  theme_li <- shiny::tags$li(class = "mt-auto", theme_a)
  ul <- shiny::tags$ul(theme_li)

  aside_tag <- shiny::tags$aside(
    class = "navbar navbar-vertical",
    shiny::tags$div(
      class = "container-fluid",
      shiny::tags$div(class = "collapse navbar-collapse", id = "sidebar-menu", ul)
    )
  )

  out <- layout_vertical_right(aside_tag, NULL, tabler_body("Z"), NULL, show_theme_button = FALSE)
  s <- as.character(out)

  # class navbar-end and navbar-expand-lg and data-bs-theme dark should be present
  expect_true(grepl("navbar-end", s))
  expect_true(grepl('data-bs-theme="dark"', s))
})