tests/testthat/test_padding.R

In UBC-MDS/Rgram: Rgram Aims to Make the Image Processing Task Easy and Intuitive

# This script tests the padding() function

context("Padding image")
library(imager)
library(testit)


test_that("In case the input is not an image", {

    expect_error(padding(list(input1)))
    expect_error(padding("test_images/padding/input.pdf", "test_images/padding/padding.jpg"))

})

test_that("If user specifies an additional argument, it throws an error", {

    expect_error(padding("test_images/padding/input.jpg", 20, "test_images/padding/padding.jpg", "box"))

})

test_that("Color image is paddingred", {

  output_p<- padding("test_images/padding/sample.jpg", 20)
  exp_output_p <- load.image("https://raw.githubusercontent.com/UBC-MDS/Rgram/master/tests/testthat/test_images/padding/padding_output.jpg")
  expect_equal(output_p, exp_output_p, tolerance=1e-1)
})

test_that("In case the input/output is not a string", {

    expect_error(padding(123, "test_images/padding/padding.jpg"))
    expect_error(padding("test_images/padding/input.jpg", 20, c(1,2,3)))
})

test_that("In case the input path does not exist", {

    expect_error(padding("123/padding/input.jpg", 20))
})

test_that("In case the input is not an image", {
    expect_error(padding("test_images/padding/test.pdf", 20))
})