tests/testthat/test_messages.R

In tkonopka/shrt: short R code

## 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")
})