tests/testthat/test-im.plotRGB.auto.R

In imageRy: Modify and Share Images

test_that("multiplication works", {
  expect_equal(2 * 2, 4)
})
library(testthat)
library(imageRy)
library(terra)

test_that("im.plotRGB.auto correctly plots an RGB image", {
  # Create a raster with at least 3 bands (for RGB)
  r <- rast(nrows = 10, ncols = 10, nlyrs = 3)
  values(r) <- runif(300)  # Assign random values

  # Expect the function to run without errors
  expect_silent(im.plotRGB.auto(r, title = "Test RGB Plot"))
})