diff --git a/duckdb-rfuns-r/tests/testthat/gen/plus.R b/duckdb-rfuns-r/tests/testthat/gen/plus.R index 6f51234..cf2b298 100644 --- a/duckdb-rfuns-r/tests/testthat/gen/plus.R +++ b/duckdb-rfuns-r/tests/testthat/gen/plus.R @@ -6,8 +6,6 @@ NA_real_ + 2 " + " -1.0 + 2.0 -NaN + 2.0 -NA_real_ + 2.0 -1.0 + NA_real_ -1.0 + NaN +1L + 2L +NA_integer_ + 2L +1L + NA_integer_ diff --git a/duckdb-rfuns-r/tests/testthat/test-generated-plus.R b/duckdb-rfuns-r/tests/testthat/test-generated-plus.R index 4a83515..365a453 100644 --- a/duckdb-rfuns-r/tests/testthat/test-generated-plus.R +++ b/duckdb-rfuns-r/tests/testthat/test-generated-plus.R @@ -94,9 +94,9 @@ test_that(' + :: NA_real_ + 2', { expect_identical(out_df[, 1], NA_real_ + 2) }) -test_that(' + :: 1 + 2', { +test_that(' + :: 1L + 2L', { con <- local_con() - in_df <- tibble::tibble(x1 = 1, x2 = 2) + in_df <- tibble::tibble(x1 = 1L, x2 = 2L) in_rel <- duckdb:::rel_from_df(con, in_df) out_rel <- duckdb:::rel_project( in_rel, @@ -110,12 +110,12 @@ test_that(' + :: 1 + 2', { ) out_df <- duckdb:::rel_to_altrep(out_rel) - expect_identical(out_df[, 1], 1 + 2) + expect_identical(out_df[, 1], 1L + 2L) }) -test_that(' + :: NaN + 2', { +test_that(' + :: NA_integer_ + 2L', { con <- local_con() - in_df <- tibble::tibble(x1 = NaN, x2 = 2) + in_df <- tibble::tibble(x1 = NA_integer_, x2 = 2L) in_rel <- duckdb:::rel_from_df(con, in_df) out_rel <- duckdb:::rel_project( in_rel, @@ -129,50 +129,12 @@ test_that(' + :: NaN + 2', { ) out_df <- duckdb:::rel_to_altrep(out_rel) - expect_identical(out_df[, 1], NaN + 2) + expect_identical(out_df[, 1], NA_integer_ + 2L) }) -test_that(' + :: NA_real_ + 2', { +test_that(' + :: 1L + NA_integer_', { con <- local_con() - in_df <- tibble::tibble(x1 = NA_real_, x2 = 2) - in_rel <- duckdb:::rel_from_df(con, in_df) - out_rel <- duckdb:::rel_project( - in_rel, - list(duckdb:::expr_function( - 'r_base::+', - list( - duckdb:::expr_reference('x1'), - duckdb:::expr_reference('x2') - ) - )) - ) - out_df <- duckdb:::rel_to_altrep(out_rel) - - expect_identical(out_df[, 1], NA_real_ + 2) -}) - -test_that(' + :: 1 + NA_real_', { - con <- local_con() - in_df <- tibble::tibble(x1 = 1, x2 = NA_real_) - in_rel <- duckdb:::rel_from_df(con, in_df) - out_rel <- duckdb:::rel_project( - in_rel, - list(duckdb:::expr_function( - 'r_base::+', - list( - duckdb:::expr_reference('x1'), - duckdb:::expr_reference('x2') - ) - )) - ) - out_df <- duckdb:::rel_to_altrep(out_rel) - - expect_identical(out_df[, 1], 1 + NA_real_) -}) - -test_that(' + :: 1 + NaN', { - con <- local_con() - in_df <- tibble::tibble(x1 = 1, x2 = NaN) + in_df <- tibble::tibble(x1 = 1L, x2 = NA_integer_) in_rel <- duckdb:::rel_from_df(con, in_df) out_rel <- duckdb:::rel_project( in_rel, @@ -186,6 +148,6 @@ test_that(' + :: 1 + NaN', { ) out_df <- duckdb:::rel_to_altrep(out_rel) - expect_identical(out_df[, 1], 1 + NaN) + expect_identical(out_df[, 1], 1L + NA_integer_) })