tests/testthat/testHideCode.R

context("MasterMind - hideCode")

source('../../R/server.R')

test_that("hideCode exists", {
  hideCode <- mmServer('hideCode')
  expect_failure(expect_null(hideCode))

})
pkristoff/MasterMind documentation built on May 25, 2019, 11:35 p.m.