tests/testthat/test_pltlogF.r

context("pltlogF test")
library(visualTest)
png("../test_img/pltlogftest.png")
pltlogF()
dev.off()

test_that("output is correct", {
  finger <- getFingerprint(file = "../test_img/pltlogfkey.png")
  expect_true(isSimilar(file = "../test_img/pltlogftest.png", finger, 
    threshold = 25))
})
austinragotzy/mathstat documentation built on May 13, 2019, 11:30 a.m.