tests/testthat/test-mask_oval.R

In debruine/webmorphR: Reproducible Stimuli

test_that("mask_oval", {
  stimuli <- demo_stim()

  expect_silent(x <- mask_oval(stimuli, each = TRUE))
  expect_silent(y <- mask_oval(stimuli, each = FALSE))

  bounds <- c(
    top = 40,
    right = 20,
    bottom = 20,
    left = 40
  )

  expect_silent(z <- mask_oval(stimuli, bounds, fill = "red"))
  
  # check mask presence and absence
  for (i in 1:2) {
    in_border <- patch(z[[i]], 
                       width = 2, 
                       height = 2,
                       x_off = 0.5,
                       y_off = 35)[[1]]
    out_border <- patch(z[[i]], 
                        width = 2, 
                        height = 2,
                        x_off = 0.5,
                        y_off = 45)[[1]]
    expect_equal("#FF0000FF", in_border)
    expect_true(in_border != out_border)
  }

  # skip("needs visual check")
  # # oval at point borders for each face
  # x |> draw_tem() |> plot(maxwidth = 500)
  # # same oval on both images, can see both faces
  # y |> plot(maxwidth = 500)
  # # red oval with 40/20/20/40 borders
  # z |> plot(maxwidth = 500)
})

# transparent fill ----
# test_that("transparent fill", {
#   stimuli <- demo_stim()
#   x <- mask_oval(stimuli, fill = "none")
#   x |> draw_tem() |> plot(maxwidth = 500)
#   
#   in_border <- patch(x)
#   out_border <- patch(x, 10, 10, 245, 245)
#   expect_true(all(in_border == "transparent"))
#   expect_true(all(in_border != out_border))
# })