context("functional sequences")
test_that("fseq functions work", {
a <- . %>% cos %>% sin %>% tan
b <- function(x) tan(sin(cos(x)))
expect_that(a(1:10), is_identical_to(b(1:10)))
})
Generated by dwww version 1.15 on Sat May 18 15:25:33 CEST 2024.