## tests for R/messages.R
cat("\ntest_messages.R\n")
test_that("using basic msg", {
## write some messages
tt = today("-")
msg(action="reset")
expect_message(msg("one"), "one")
expect_message(msg("two"), tt)
expect_message(msg(action="show"))
expect_message(msg())
out = msg(action="get")
expect_equal(length(out), 2)
})
test_that("writing/retrieving/reseting messages in custom logger", {
## create messaging system
mymsg = newmsg(verbose=FALSE, date=FALSE)
## write some messages
mymsg("hello")
mymsg("there")
## retrieve the messages
output = mymsg(action="get")
expected = c("hello", "there")
expect_equal(output, expected)
mymsg(action="reset")
output2 = mymsg(action="get")
expect_equal(output2, c())
})
test_that("writing long logs changes internal storage object", {
mymsg = newmsg(verbose=FALSE, date=FALSE)
## write lots of messages
NN = 20
for (i in 1:NN) {
mymsg(paste0("message ", i))
}
## write test message
mymsg("testmsg")
## check that all messages were recorded
allmsg = mymsg(action="get")
expect_equal(length(allmsg), NN+1)
expect_equal(tail(allmsg, 1), "testmsg")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.