tests/testthat/test-bucket_list.R

In timelyportfolio/sortableR: Drag-and-Drop in 'shiny' Apps with 'SortableJS'

test_that("Can use add_rank_list", {
  z <- add_rank_list(text = "missing", labels = NULL, input_id = NULL)
  expect_s3_class(z, "add_rank_list")
})


test_that("Can create bucket_list", {

  z <- bucket_list(
    header = "This is a bucket list. You can drag items between the lists.",
    add_rank_list(
      text = "Drag from here",
      labels = c("a", "bb", "ccc")
    ),
    add_rank_list(
      text = "to here",
      labels = NULL,
      input_id = "input_to"
    )
  )
  expect_s3_class(z, "bucket_list")


  expect_error(
    bucket_list(
      # header = "This is a bucket list. You can drag items between the lists.",
      add_rank_list(
        text = "Drag from here",
        labels = c("a", "bb", "ccc")
      ),
      add_rank_list(
        text = "to here",
        labels = NULL
      )
    ),
    "must be NULL or a string"
  )

  z <- bucket_list(
    header = NA,
    add_rank_list(
      text = "Drag from here",
      labels = c("a", "bb", "ccc")
    ),
    add_rank_list(
      text = "to here",
      labels = NULL
    )
  )
  expect_s3_class(z, "bucket_list")

})