tests/testthat/test-generate-c.R

context("generate: c (tools)")

test_that("Integer sums over arrays not supported", {
  data <- list(elements = list(y = list(storage_type = "int")))
  expect_error(
    generate_c_sexp(list("sum", "y", 1, 2), data, list(), character()),
    "Partial integer sums not yet supported")
  data$elements$y$storage_type <- "double"
  expect_equal(
    generate_c_sexp(list("sum", "y", 1, 2), data, list(), character()),
    "odin_sum1(y, 0, 2)")
})
richfitz/odin documentation built on July 5, 2024, 9:32 p.m.