# test auth.R
testthat::context('authentication')
testthat::test_that('no false positive', {
# returns status code
testthat::expect_type(authenticate('chiefBiiko', 'xxxxx'),
'integer')
# unauthorized
testthat::expect_true(authenticate('chiefBiiko', 'xxxxx') >= 400L)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.