tests/testthat/test-rank_list.R

In rstudio/sortable: Drag-and-Drop in 'shiny' Apps with 'SortableJS'

test_that("Can create rank_list", {
  z <- rank_list(
    text = "You can drag, drap and re-order these items:",
    labels = c("one", "two", "three", "four", "five"),
    input_id = "example_2"
  )

  expect_s3_class(z, "rank_list")
})