From 3133c292fe184ccba835260cf0c202d7301a30b2 Mon Sep 17 00:00:00 2001 From: Dirk Eddelbuettel Date: Tue, 14 Jun 2022 16:33:01 -0500 Subject: [PATCH] add three tests for overlapping ranges --- inst/tinytest/test_querycondition.R | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) diff --git a/inst/tinytest/test_querycondition.R b/inst/tinytest/test_querycondition.R index d64a737d00..637a82ae03 100644 --- a/inst/tinytest/test_querycondition.R +++ b/inst/tinytest/test_querycondition.R @@ -284,3 +284,19 @@ qc <- parse_query_condition(year < 2008 || year > 2010) arr <- tiledb_array(uri, as.data.frame=TRUE, query_condition=qc) expect_equal(NROW(arr[]), sum(with(penguins, year < 2008 | year > 2010))) + +## Overlapping ranges +qc <- parse_query_condition(year < 2009 && year < 2010) +arr <- tiledb_array(uri, as.data.frame=TRUE, query_condition=qc) +expect_equal(NROW(arr[]), + sum(with(penguins, year < 2009))) + +qc <- parse_query_condition(year <= 2009 && year >= 2009) +arr <- tiledb_array(uri, as.data.frame=TRUE, query_condition=qc) +expect_equal(NROW(arr[]), + sum(with(penguins, year == 2009))) + +qc <- parse_query_condition(year < 2009 || year < 2010) +arr <- tiledb_array(uri, as.data.frame=TRUE, query_condition=qc) +expect_equal(NROW(arr[]), + sum(with(penguins, year < 2010)))