tests/testthat/test-learnr-question_parsons.R

In rstudio/parsons: Create Parsons Programming Problems in 'learnr` Tutorials

context("learnr question_parsons")

test_that( "init display validates", {

  question <- question_parsons(
    # "Sort the first 5 letters",
    initial = LETTERS[1:5],
    learnr::answer(LETTERS[1:5], correct = TRUE),
    learnr::answer(rev(LETTERS[1:5]), correct = FALSE, "Other direction!")
  )
  expect_is(question, "parsons_question")

  expect_silent({
    question_ui_initialize(question, "ignored")
  })

  expect_silent({
    question_ui_completed(question, LETTERS[5:1])
  })
  expect_silent(
    question_ui_try_again(question, rev(LETTERS[1:5]))
  )

  expect_true(
    question_is_valid(question, letters[1:5])
  )
  expect_false(
    question_is_valid(question, NULL)
  )

  # expect_identical(
  #   question_is_correct(question, LETTERS[1:5]),
  #   learnr::question_is_correct(TRUE, NULL)
  # )
  tmp_answer <- learnr::answer("ignored", FALSE, "Other direction!")
  # expect_identical(
  #   question_is_correct(question, LETTERS[5:1]),
  #   learnr::question_is_correct_value(FALSE, tmp_answer$message)
  # )
  # expect_identical(
  #   question_is_correct(question, letters[1:5]),
  #   learnr::question_is_correct_value(FALSE, NULL)
  # )

})