tests/testthat/testall.R

In bnasr/hazer: Identifying Foggy and Cloudy Images by Quantifying Haziness

context("all")

library(jpeg)

img <- readJPEG(system.file( "pointreyes.jpg", package="hazer"))

b <- getBrightness(img)
d <- getDarkness(img)
c <- getContrast(img)
h <- getHazeFactor(img)

p <- plotRGBArray(img)


test_that("test brightness, darkness and contrast", {
  expect_equal(floor(mean(b)*1000), 606)
  expect_equal(floor(mean(d)*1000), 364)
  expect_equal(floor(mean(c)*1000), 242)
})

test_that("test the haze", {
  expect_equal(as.numeric(floor(h[1]*1000)), ifelse(tolower(Sys.info()[[1]])!='linux', 225, 224))
  expect_equal(as.numeric(floor(h[2]*1000)), ifelse(tolower(Sys.info()[[1]])!='linux', 710, 712))
})

test_that("test the plot", {
  expect_equal(is.null(p), TRUE)
})