tests/testthat/test-func_size.R

In UBC-MDS/image-compression-toolkit--R: It compresses images

context("image_size")
library(testthat)
library(OpenImageR)
library(rprojroot)

root <- is_testthat
root_file <- root$make_fix_file()

image = root_file("data-raw", "test_image_1718.png")

# tests for image_size() function

test_that("correct size is returned", {
  expect_lt(image_size(image), object.size(readImage(image)))
})

test_that("type error should be raised if wrong input is entered", {
  expect_error(image_size(5), "TypeError: img_path should be a string.")
})

test_that("input array is correct shape",{
  expect_true(length(dim(readImage(image))) %in%  c(2, 3))
})