From fe7d273bd18788f10df65262349c110a3146c1f5 Mon Sep 17 00:00:00 2001 From: Joe Thorley Date: Wed, 30 Sep 2026 16:23:15 -0700 Subject: [PATCH] Test logical length_out option with Inf, obs_only and xnew_data() values Ported from #114. Co-Authored-By: Claude Opus 5.5 (1M context) --- tests/testthat/test-new-seq.R | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/tests/testthat/test-new-seq.R b/tests/testthat/test-new-seq.R index 475d080..ce7778e 100644 --- a/tests/testthat/test-new-seq.R +++ b/tests/testthat/test-new-seq.R @@ -48,6 +48,10 @@ test_that("new_seq logical length_out greater than 2 equivalent to 2", { withr::local_options(new_data.length_out_lgl = 3L) expect_identical(new_seq(x), c(FALSE, TRUE)) expect_identical(nrow(xnew_data(data.frame(x = x), x)), 2L) + expect_identical(new_seq(TRUE, .obs_only = TRUE), TRUE) + expect_identical(xnew_data(old_data, lgl)$lgl, c(FALSE, TRUE)) + withr::local_options(new_data.length_out_lgl = Inf) + expect_identical(new_seq(x), c(FALSE, TRUE)) }) test_that("new_seq logical", {