tests/testthat/test-card.R

In nteetor/yonder: A Reactive Web Framework Built on 'shiny'

context("card component")

test_that("card with nav pills has .nav-header-pills", {
  this <- card(
    header = navInput(id = "ID", appearance = "pills")
  )

  expect_true(grepl("card-header-pills", as.character(this)))
})

test_that("card with nav tabs has .nav-header-tabs", {
  this <- card(
    header = navInput(id = "ID", appearance = "tabs")
  )

  expect_true(grepl("card-header-tabs", as.character(this)))
})

test_that("can pass strings to card", {
  expect_silent(card("hello", "world"))

  this <- card("hello")
  expect_true(is_tag(this$children[[1]]))
  expect_true(tag_class_re(this$children[[1]], "card-body"))
})

test_that("card paragraphs are wrapped in .card-body", {
  this <- card(p("hello, world"))

  expect_true(grepl("card-body", as.character(this)))
})

test_that("card paragraphs are given .card-text", {
  this <- card(p("hello, world"))

  expect_true(grepl("card-text", as.character(this)))
})

test_that("card respects ... named values as HTML attributes", {
  this <- card(class = "bg-blue", `data-hello` = "world")

  expect_true(tag_class_re(this, "bg-blue"))
  expect_true(grepl('data-hello="world"', as.character(this), fixed = TRUE))
})

test_that("card linkInputs have .card-link, keep id", {
  this <- card(linkInput(id = "ID", label = "LABEL"))

  expect_true(grepl('id="ID"', as.character(this), fixed = TRUE))
  expect_true(grepl("card-link", as.character(this)))
})

test_that("has dependencies", {
  expect_dependencies(card())
})