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)")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.