Tests

Author: krlmlr

tests/testthat/test-rel_api.R

@@ -9715,87 +9715,6 @@ test_that("relational mutate(d = NA_real_, e = is.na(d)) order-preserving", {
   DBI::dbDisconnect(con, shutdown = TRUE)
 })
 
-test_that("relational mutate(d = NaN, e = is.na(d)) order-preserving", {
-  # Autogenerated
-  duckdb <- asNamespace("duckdb")
-  drv <- duckdb::duckdb()
-  con <- DBI::dbConnect(drv)
-  experimental <- FALSE
-  invisible(DBI::dbExecute(con, 'CREATE MACRO "is.na"(x) AS (x IS NULL)'))
-  df1 <- data.frame(a = seq(1, 6, by = 1), b = 2, g = c(1L, 2L, 2L, 3L, 3L, 3L))
-
-  "mutate"
-  rel1 <- duckdb$rel_from_df(con, df1, experimental = experimental)
-  "mutate"
-  rel2 <- duckdb$rel_project(
-    rel1,
-    list(
-      {
-        tmp_expr <- duckdb$expr_reference("a")
-        duckdb$expr_set_alias(tmp_expr, "a")
-        tmp_expr
-      },
-      {
-        tmp_expr <- duckdb$expr_reference("b")
-        duckdb$expr_set_alias(tmp_expr, "b")
-        tmp_expr
-      },
-      {
-        tmp_expr <- duckdb$expr_reference("g")
-        duckdb$expr_set_alias(tmp_expr, "g")
-        tmp_expr
-      },
-      {
-        tmp_expr <- if ("experimental" %in% names(formals(duckdb$expr_constant))) {
-          duckdb$expr_constant(NaN, experimental = experimental)
-        } else {
-          duckdb$expr_constant(NaN)
-        }
-        duckdb$expr_set_alias(tmp_expr, "d")
-        tmp_expr
-      }
-    )
-  )
-  "mutate"
-  rel3 <- duckdb$rel_project(
-    rel2,
-    list(
-      {
-        tmp_expr <- duckdb$expr_reference("a")
-        duckdb$expr_set_alias(tmp_expr, "a")
-        tmp_expr
-      },
-      {
-        tmp_expr <- duckdb$expr_reference("b")
-        duckdb$expr_set_alias(tmp_expr, "b")
-        tmp_expr
-      },
-      {
-        tmp_expr <- duckdb$expr_reference("g")
-        duckdb$expr_set_alias(tmp_expr, "g")
-        tmp_expr
-      },
-      {
-        tmp_expr <- duckdb$expr_reference("d")
-        duckdb$expr_set_alias(tmp_expr, "d")
-        tmp_expr
-      },
-      {
-        tmp_expr <- duckdb$expr_function("is.na", list(duckdb$expr_reference("d")))
-        duckdb$expr_set_alias(tmp_expr, "e")
-        tmp_expr
-      }
-    )
-  )
-  rel3
-  out <- duckdb$rel_to_altrep(rel3)
-  expect_identical(
-    out,
-    data.frame(a = seq(1, 6, by = 1), b = 2, g = c(1L, 2L, 2L, 3L, 3L, 3L), d = NaN, e = TRUE)
-  )
-  DBI::dbDisconnect(con, shutdown = TRUE)
-})
-
 test_that("relational mutate(d = row_number()) order-preserving", {
   # Autogenerated
   duckdb <- asNamespace("duckdb")
@@ -14196,92 +14115,6 @@ test_that("relational mutate(d = NA_real_, e = is.na(d)) order-enforcing", {
   DBI::dbDisconnect(con, shutdown = TRUE)
 })
 
-test_that("relational mutate(d = NaN, e = is.na(d)) order-enforcing", {
-  # Autogenerated
-  duckdb <- asNamespace("duckdb")
-  drv <- duckdb::duckdb()
-  con <- DBI::dbConnect(drv)
-  experimental <- FALSE
-  invisible(DBI::dbExecute(con, 'CREATE MACRO "is.na"(x) AS (x IS NULL)'))
-  df1 <- data.frame(a = seq(1, 6, by = 1), b = 2, g = c(1L, 2L, 2L, 3L, 3L, 3L))
-
-  "mutate"
-  rel1 <- duckdb$rel_from_df(con, df1, experimental = experimental)
-  "mutate"
-  rel2 <- duckdb$rel_project(
-    rel1,
-    list(
-      {
-        tmp_expr <- duckdb$expr_reference("a")
-        duckdb$expr_set_alias(tmp_expr, "a")
-        tmp_expr
-      },
-      {
-        tmp_expr <- duckdb$expr_reference("b")
-        duckdb$expr_set_alias(tmp_expr, "b")
-        tmp_expr
-      },
-      {
-        tmp_expr <- duckdb$expr_reference("g")
-        duckdb$expr_set_alias(tmp_expr, "g")
-        tmp_expr
-      },
-      {
-        tmp_expr <- if ("experimental" %in% names(formals(duckdb$expr_constant))) {
-          duckdb$expr_constant(NaN, experimental = experimental)
-        } else {
-          duckdb$expr_constant(NaN)
-        }
-        duckdb$expr_set_alias(tmp_expr, "d")
-        tmp_expr
-      }
-    )
-  )
-  "mutate"
-  rel3 <- duckdb$rel_project(
-    rel2,
-    list(
-      {
-        tmp_expr <- duckdb$expr_reference("a")
-        duckdb$expr_set_alias(tmp_expr, "a")
-        tmp_expr
-      },
-      {
-        tmp_expr <- duckdb$expr_reference("b")
-        duckdb$expr_set_alias(tmp_expr, "b")
-        tmp_expr
-      },
-      {
-        tmp_expr <- duckdb$expr_reference("g")
-        duckdb$expr_set_alias(tmp_expr, "g")
-        tmp_expr
-      },
-      {
-        tmp_expr <- duckdb$expr_reference("d")
-        duckdb$expr_set_alias(tmp_expr, "d")
-        tmp_expr
-      },
-      {
-        tmp_expr <- duckdb$expr_function("is.na", list(duckdb$expr_reference("d")))
-        duckdb$expr_set_alias(tmp_expr, "e")
-        tmp_expr
-      }
-    )
-  )
-  "arrange"
-  rel4 <- duckdb$rel_order(
-    rel3,
-    list(duckdb$expr_reference("a"), duckdb$expr_reference("b"), duckdb$expr_reference("g"), duckdb$expr_reference("d"), duckdb$expr_reference("e"))
-  )
-  rel4
-  out <- duckdb$rel_to_altrep(rel4)
-  expect_identical(
-    out,
-    data.frame(a = seq(1, 6, by = 1), b = 2, g = c(1L, 2L, 2L, 3L, 3L, 3L), d = NaN, e = TRUE)
-  )
-  DBI::dbDisconnect(con, shutdown = TRUE)
-})
-
 test_that("relational mutate(d = row_number()) order-enforcing", {
   # Autogenerated
   duckdb <- asNamespace("duckdb")