tests/testthat/test-slider.R

In howler: 'Shiny' Extension of 'howler.js'

test_that("howlerVolumeSlider fails with no `id`", {
  expect_error(howlerVolumeSlider())
})

test_that("howlerVolumeSlider passes with any `id`", {
  expect_error(howlerVolumeSlider("test"), regexp = NA)
})

test_that("Basic howlerVolumeSlider creates two shiny tags: volume button and slider input", {
  slider <- howlerVolumeSlider("test")

  expect_is(slider, "shiny.tag.list")
  expect_length(slider, 2L)

  expect_identical(slider[[1L]]$name, "button")
  expect_match(slider[[1L]]$attribs$class, "action-button")
  expect_match(slider[[1L]]$attribs$class, "howler-volumetoggle")

  expect_identical(slider[[2L]]$name, "input")
  expect_match(slider[[2L]]$attribs$class, "howler-volume-slider")
})

test_that("Basic howlerVolumeSlider has volume of 1", {
  slider <- howlerVolumeSlider("test")

  expect_identical(slider[[2L]]$attribs$value, 1.0)
})

test_that("howlerVolumeSlider errors when volume is negative", {
  expect_error(howlerVolumeSlider("test", -1.0))
})

test_that("howlerVolumeSlider errors when volume is greater than 1", {
  expect_error(howlerVolumeSlider("test", 2.0))
})


context("Howler Seek Slider")

test_that("howlerSeekSlider fails with no `id`", {
  expect_error(howlerSeekSlider())
})

test_that("howlerVolumeSlider passes with any `id`", {
  expect_error(howlerSeekSlider("test"), regexp = NA)
})

test_that("Basic howlerSeekSlider creates a slider input", {
  slider <- howlerSeekSlider("test")

  expect_is(slider, "shiny.tag")
  expect_identical(slider$name, "input")
  expect_match(slider$attribs$class, "howler-seek-slider")
})