bulma/tests/testthat/test-layout.R

context("test-layout")

# Bulma Levels ------------------------------------------------------------

level_home_example <- '
<div class="level is-mobile">
  <div class="level-item">Home</div>
  <div class="level-item">Menu</div>
  <div class="level-item">Bulma</div>
  <div class="level-item">Reservations</div>
  <div class="level-item">Contact</div>
</div>'

level_header_example <- '
<div class="level is-mobile">
  <div class="level-item has-text-centered">
    <div>
      <p class="heading">Tweets</p>
      <p class="title">3456</p>
    </div>
  </div>
  <div class="level-item has-text-centered">
    <div>
      <p class="heading">Following</p>
      <p class="title">123</p>
    </div>
  </div>
</div>'

collapse_html_chr <- function(x) {
  x <- paste(x, collapse = "\n")
  gsub("\\s*\n\\s*", "", x)
}

expect_html_chr <- function(x, y) {
  expect_equal(collapse_html_chr(x), collapse_html_chr(y))
}

test_that("bulma_level_item single", {
  expect_html_chr(bulma_level_item("one"), '<div class="level-item">one</div>')
  expect_true(is_level_item(bulma_level_item("a")))
  expect_true(is_level_item(bulma_level_item("a", "b")))
  expect_equal(as_level_item(bulma_level_item("a")),
               bulma_level_item("a"))
})

test_that("bulma_level_item doesn't wrap other bulma_level_items", {
  expect_html_chr(bulma_level_item(bulma_level_item("one")), '<div class="level-item">one</div>')
})

test_that("bulma_level_item concatenates inputs into single div", {
  expect_html_chr(bulma_level_item("A", "B"), '<div class="level-item">AB</div>')
  expect_html_chr(bulma_level_item(tag_p("A"), tag_p("B")), '<div class="level-item"><p>A</p><p>B</p></div>')
})

test_that("bulma_level generally works", {
  expect_html_chr(bulma_level("Home", "Menu", "Bulma", "Reservations", "Contact"),
                  level_home_example)
  expect_html_chr(bulma_level("Home", bulma_level_item("Menu"), "Bulma", "Reservations", "Contact"),
                  level_home_example)
  expect_html_chr(bulma_level("Tweets" = 3456, Following = 123, type = "header"),
                  level_header_example)
})

test_that("bulma_level works with sides", {
  bulma_with_sides <- bulma_level(left = list(bulma_level_item("123 posts")),
                                  right = list("All", "Published"),
                                  "Normal")
  level_with_sides <- '
  <div class="level is-mobile">
  <div class="level-left">
    <div class="level-item">123 posts</div>
  </div>
  <div class="level-item">Normal</div>
  <div class="level-right">
    <div class="level-item">All</div>
    <div class="level-item">Published</div>
  </div>
  </div>'

  expect_html_chr(bulma_with_sides, level_with_sides)
})