tests/testthat/test-sure.R

In ramiromagno/gwasrapidd: 'REST' 'API' Client for the 'NHGRI'-'EBI' 'GWAS' Catalog

context("test-sure")

test_that('stop_quietly', {
  #expect_silent(stop_quietly())
  expect_error(stop_quietly())
})

test_that("sure: non-interactive mode", {
  expect_true(sure(default_answer = 'y'))
  expect_true(sure(default_answer = 'yes'))
  expect_true(sure(default_answer = 'Yes'))
  expect_true(sure(default_answer = 'Y'))
  expect_false(sure(default_answer = 'n'))
  expect_false(sure(default_answer = 'no'))
  expect_false(sure(default_answer = 'N'))
  expect_false(sure(default_answer = 'No'))
  expect_false(sure(default_answer = 'some other answer')) # equivalent to 'No'.
})

test_that("sure: mock interactive mode", {
  with_mock(readline = function(...) 'y', expect_true(sure()))
  with_mock(readline = function(...) 'yes', expect_true(sure()))
  with_mock(readline = function(...) 'n', expect_false(sure()))
  with_mock(readline = function(...) 'no', expect_false(sure()))
  with_mock(readline = function(...) 'some other answer', expect_false(sure()))
})

test_that("sure: mock interactive mode with messages", {
  with_mock(readline = function(...) 'y', expect_message(sure(before_question = 'hello'), 'hello'))
  with_mock(readline = function(...) 'yes', expect_message(sure(after_saying_yes = 'alright!'), 'alright'))
  with_mock(readline = function(...) 'n', expect_message(sure(before_question = 'hello'), 'hello'))
  with_mock(readline = function(...) 'no', expect_message(sure(after_saying_no = 'nooo!'), 'nooo!'))

  with_mock(readline = function(...) 'yes', expect_silent(sure(after_saying_no = 'nooo!')))
  with_mock(readline = function(...) 'no', expect_silent(sure(after_saying_yes = 'alright!')))
})