context("MasterMind - showCode")
source('../../R/server.R')
test_that("showCode numOfPicks=1", {
showCode <- mmServer('showCode')
expect_failure(expect_null(showCode))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.