tests/testthat/test_DCTdenoising.R

In imagerExtra: Extra Image Processing Library Based on 'imager'

library(imagerExtra)

test_that("DCTdenoising",
{
    notim <- 1
    im <- boats
    gim <- grayscale(im)
    gim2 <- imrep(gim, 2) %>% imappend(., "z")
    N <- 3
    sdn_c <- 0.1
    sdn_bad1 <- "A"
    sdn_bad2 <- c(1, 1)
    sdn_bad3 <- NA
    sdn_bad4 <- NULL
    sdn_bad5 <- -1
    flag_bad1 <- 1
    flag_bad2 <- NA
    expect_error(DenoiseDCT(notim, sdn_c))
    expect_error(DenoiseDCT(gim2, sdn_c))
    expect_error(DenoiseDCT(im, sdn_c))
    expect_error(DenoiseDCT(gim, sdn_bad1))
    expect_error(DenoiseDCT(gim, sdn_bad2))
    expect_error(DenoiseDCT(gim, sdn_bad3))
    expect_error(DenoiseDCT(gim, sdn_bad4))
    expect_error(DenoiseDCT(gim, sdn_bad5))
    expect_error(DenoiseDCT(gim, sdn_c, flag_dct16x16 = flag_bad1))
    expect_error(DenoiseDCT(gim, sdn_c, flag_dct16x16 = flag_bad2))
})