R Under development (unstable) (2023-11-07 r85491 ucrt) -- "Unsuffered Consequences" Copyright (C) 2023 The R Foundation for Statistical Computing Platform: x86_64-w64-mingw32/x64 R is free software and comes with ABSOLUTELY NO WARRANTY. You are welcome to redistribute it under certain conditions. Type 'license()' or 'licence()' for distribution details. R is a collaborative project with many contributors. Type 'contributors()' for more information and 'citation()' on how to cite R or R packages in publications. Type 'demo()' for some demos, 'help()' for on-line help, or 'help.start()' for an HTML browser interface to help. Type 'q()' to quit R. > ### > ### trapz.R +++ Test suite +++ > ### > > > test.trapz <- function(input, expected) { + output <- do.call(getFromNamespace("trapz", "pracma"), input) + identical(output, expected) + } > > trapz.expected.empty1 <- 0 > trapz.expected.empty2 <- 0 > trapz.expected.gen1 <- 12 > trapz.expected.gen2 <- 6 > trapz.expected.cmpl1 <- 0+0.5i > trapz.expected.cmpl2 <- 0+0.5i > > test.trapz(list(x=c()), trapz.expected.empty1) [1] TRUE > test.trapz(list(x=c(), y=c()), trapz.expected.empty2) [1] TRUE > test.trapz(list(x=1:5), trapz.expected.gen1) [1] TRUE > test.trapz(list(x=seq(0,2,by=0.5), y=1:5), trapz.expected.gen2) [1] TRUE > test.trapz(list(x=c(0,1), y=c(0,1i)), trapz.expected.cmpl1) [1] TRUE > test.trapz(list(x=c(0,1i), y=c(0,1)), trapz.expected.cmpl2) [1] TRUE > > proc.time() user system elapsed 0.14 0.04 0.18