tests/testthat/test_layout.R

In futile.logger: A Logging Utility for R

# :vim set ff=R
context("format string")
test_that("Embedded format string", {
  flog.threshold(INFO)
  raw <- capture.output(flog.info("This is a %s message", "log"))
  #cat("\n[test.default] Raw:",raw,"\n")
  expect_that(length(grep('INFO', raw)) > 0, is_true())
  expect_that(length(grep('log message', raw)) > 0, is_true())
})

test_that("Custom layout dereferences level field", {
  flog.threshold(INFO)
  flog.layout(layout.format('xxx[~l]xxx'))
  raw <- capture.output(flog.info("log message"))
  flog.layout(layout.simple)
  expect_that('xxx[INFO]xxx' == raw, is_true())
  expect_that(length(grep('log message', raw)) == 0, is_true())
})

context("null values")
test_that("Raw null value is printed", {
  raw <- capture.output(flog.info('xxx[%s]xxx', NULL))
  expect_that(length(grep('xxx[NULL]xxx', raw, fixed=TRUE)) == 1, is_true())
})

test_that("Single null value is printed", {
  opt <- list()
  raw <- capture.output(flog.info('xxx[%s]xxx', opt$noexist))
  expect_that(length(grep('xxx[NULL]xxx', raw, fixed=TRUE)) == 1, is_true())
})

test_that("Null is printed amongst variables", {
  opt <- list()
  raw <- capture.output(flog.info('aaa[%s]aaa xxx[%s]xxx', 3, opt$noexist))
  expect_that(length(grep('aaa[3]aaa', raw, fixed=TRUE)) == 1, is_true())
  expect_that(length(grep('xxx[NULL]xxx', raw, fixed=TRUE)) == 1, is_true())
})

context("sprintf arguments")
test_that("no extra arguments are passed", {
  expect_true(grepl('foobar$', capture.output(flog.info('foobar'))))
  expect_true(grepl('foobar %s$', capture.output(flog.info('foobar %s'))))
  expect_true(grepl('10%$', capture.output(flog.info('10%'))))
})
test_that("some extra arguments are passed", {
  expect_true(grepl('foobar$', capture.output(flog.info('foobar', pi))))
  expect_true(grepl(
    'foobar foo$',
    capture.output(flog.info('foobar %s', 'foo'))))
  expect_true(grepl('100$', capture.output(flog.info('10%d', 0))))
  expect_true(
    grepl('foo and bar equals to foobar',
          capture.output(
            flog.info('%s and %s equals to %s', 'foo', 'bar', 'foobar'))))
})