inst/tinytest/bc_general/test-binary_attr_broadcaster.R

In broadcast: Broadcasted Array Operations Like 'NumPy'

# test binary attributes
enumerate <- 0L
errorfun <- function(tt) {
  
  if(isFALSE(tt)) stop(print(tt))
}


datagens <- list(
  \() sample(c(TRUE, FALSE, NA), 10, TRUE),
  \() sample(c(-10L:10L, NA_integer_)),
  \() sample(c(rnorm(10), NA, NaN, Inf, -Inf)),
  \() sample(c(rnorm(10), NA, NaN, Inf, -Inf)) + sample(c(rnorm(10), NA, NaN, Inf, -Inf)) * -1i,
  \() sample(c(letters, NA)),
  \() as.raw(sample(0:9)),
  \() as.list(sample(-10:10))
)


for(i in seq_along(datagens)) {
  for(xBC in c(TRUE, FALSE)) {
    for(yBC in c(TRUE, FALSE)) {
      
      x <- datagens[[i]]()
      y <- datagens[[i]]()
      
      broadcaster(x) <- xBC
      broadcaster(y) <- yBC
      
      out <- bcapply(x, y, \(x, y) paste0(x, y))
      expect_equal(
        broadcaster(out),
        broadcaster(x) || broadcaster(y)
      ) |> errorfun()
      
      
      test <- sample(c(TRUE, FALSE), prod(bc_dim(x, y)), TRUE)
      if(broadcaster(x) || broadcaster(y)) {
        broadcaster(test) <- TRUE
      }
      out <- bc_ifelse(test, x, y)
      expect_equal(
        broadcaster(out),
        broadcaster(x) || broadcaster(y)
      ) |> errorfun()
      
      
      enumerate <- enumerate + 2L
      
    }
  }
}