tests/testthat/test-available-tutorials.R

In PaulESantos/pftctutor: Interactive Tutorials for PFTC Courses data

context("available tutorials")

test_that("Tutorial names are retrieved", {

  expect_error(available_tutorials("not a package"), "No package found")
  expect_error(available_tutorials("base"), "No tutorials found")
  expect_true("hello" %in% available_tutorials("learnr")$name)
  expect_true("hello" %in% suppressMessages(run_tutorial(package = "learnr")$name))
  expect_s3_class(available_tutorials("learnr"), "learnr_available_tutorials")

  expect_error(run_tutorial("helloo", package = "learnr"), "\"hello\"")
  expect_error(run_tutorial("doesn't exist", package = "learnr"), "Available ")
  expect_message(run_tutorial(package = "learnr"), "Available ")


  expect_output(
    fixed = TRUE,
    print(available_tutorials("learnr")),
"Available tutorials:
* learnr
  - ex-data-basics    : \"Data basics\"
  - ex-data-filter    : \"Filter observations\"
  - ex-data-mutate    : \"Create new variables\"
  - ex-data-summarise : \"Summarise Tables\"
  - ex-setup-r        : \"Set Up\"
  - hello             : \"Hello, Tutorial!\"
  - quiz_question     : \"Tutorial Quiz Questions in `learnr`\"
  - slidy             : \"Slidly demo\""
  )

})