add tests for chained syntax

D-Se · Nov 30, 2023 · 560d187 · 560d187
1 parent 0a80494
commit 560d187
Showing 1 changed file with 14 additions and 0 deletions.
diff --git a/inst/tinytest/test_chain.R b/inst/tinytest/test_chain.R
@@ -0,0 +1,14 @@
+`:=` <- expect_identical
+
+x = 5
+c <- (x ? num ? 1 ~ 2)
+c := 1
+c <- (x ?~ chr ?! chr ? 1 ~ 2)
+c := 2
+x?chr || x?dbl := TRUE
+
+x = c(T, F, NA)
+y = 1:3
+z = 7:9
+
+(x ? (!x ? y ~ z) ~ y) := c(7L, 2L, NA_integer_)