Tests

Author: krlmlr

R/tpch_raw_12.R

@@ -9,25 +9,25 @@ tpch_raw_12 <- function(con, experimental) {
         "|",
         list(
           duckdb$expr_function(
-            "___eq_na_matches_na",
+            "r_base::==",
             list(
+              duckdb$expr_reference("l_shipmode"),
               if ("experimental" %in% names(formals(duckdb$expr_constant))) {
                 duckdb$expr_constant("MAIL", experimental = experimental)
               } else {
                 duckdb$expr_constant("MAIL")
-              },
-              duckdb$expr_reference("l_shipmode")
+              }
             )
           ),
           duckdb$expr_function(
-            "___eq_na_matches_na",
+            "r_base::==",
             list(
+              duckdb$expr_reference("l_shipmode"),
               if ("experimental" %in% names(formals(duckdb$expr_constant))) {
                 duckdb$expr_constant("SHIP", experimental = experimental)
               } else {
                 duckdb$expr_constant("SHIP")
-              },
-              duckdb$expr_reference("l_shipmode")
+              }
             )
           )
         )

R/tpch_raw_16.R

@@ -54,103 +54,103 @@ tpch_raw_16 <- function(con, experimental) {
                                 "|",
                                 list(
                                   duckdb$expr_function(
-                                    "___eq_na_matches_na",
+                                    "r_base::==",
                                     list(
+                                      duckdb$expr_reference("p_size"),
                                       if ("experimental" %in% names(formals(duckdb$expr_constant))) {
                                         duckdb$expr_constant(49, experimental = experimental)
                                       } else {
                                         duckdb$expr_constant(49)
-                                      },
-                                      duckdb$expr_reference("p_size")
+                                      }
                                     )
                                   ),
                                   duckdb$expr_function(
-                                    "___eq_na_matches_na",
+                                    "r_base::==",
                                     list(
+                                      duckdb$expr_reference("p_size"),
                                       if ("experimental" %in% names(formals(duckdb$expr_constant))) {
                                         duckdb$expr_constant(14, experimental = experimental)
                                       } else {
                                         duckdb$expr_constant(14)
-                                      },
-                                      duckdb$expr_reference("p_size")
+                                      }
                                     )
                                   )
                                 )
                               ),
                               duckdb$expr_function(
-                                "___eq_na_matches_na",
+                                "r_base::==",
                                 list(
+                                  duckdb$expr_reference("p_size"),
                                   if ("experimental" %in% names(formals(duckdb$expr_constant))) {
                                     duckdb$expr_constant(23, experimental = experimental)
                                   } else {
                                     duckdb$expr_constant(23)
-                                  },
-                                  duckdb$expr_reference("p_size")
+                                  }
                                 )
                               )
                             )
                           ),
                           duckdb$expr_function(
-                            "___eq_na_matches_na",
+                            "r_base::==",
                             list(
+                              duckdb$expr_reference("p_size"),
                               if ("experimental" %in% names(formals(duckdb$expr_constant))) {
                                 duckdb$expr_constant(45, experimental = experimental)
                               } else {
                                 duckdb$expr_constant(45)
-                              },
-                              duckdb$expr_reference("p_size")
+                              }
                             )
                           )
                         )
                       ),
                       duckdb$expr_function(
-                        "___eq_na_matches_na",
+                        "r_base::==",
                         list(
+                          duckdb$expr_reference("p_size"),
                           if ("experimental" %in% names(formals(duckdb$expr_constant))) {
                             duckdb$expr_constant(19, experimental = experimental)
                           } else {
                             duckdb$expr_constant(19)
-                          },
-                          duckdb$expr_reference("p_size")
+                          }
                         )
                       )
                     )
                   ),
                   duckdb$expr_function(
-                    "___eq_na_matches_na",
+                    "r_base::==",
                     list(
+                      duckdb$expr_reference("p_size"),
                       if ("experimental" %in% names(formals(duckdb$expr_constant))) {
                         duckdb$expr_constant(3, experimental = experimental)
                       } else {
                         duckdb$expr_constant(3)
-                      },
-                      duckdb$expr_reference("p_size")
+                      }
                     )
                   )
                 )
               ),
               duckdb$expr_function(
-                "___eq_na_matches_na",
+                "r_base::==",
                 list(
+                  duckdb$expr_reference("p_size"),
                   if ("experimental" %in% names(formals(duckdb$expr_constant))) {
                     duckdb$expr_constant(36, experimental = experimental)
                   } else {
                     duckdb$expr_constant(36)
-                  },
-                  duckdb$expr_reference("p_size")
+                  }
                 )
               )
             )
           ),
           duckdb$expr_function(
-            "___eq_na_matches_na",
+            "r_base::==",
             list(
+              duckdb$expr_reference("p_size"),
               if ("experimental" %in% names(formals(duckdb$expr_constant))) {
                 duckdb$expr_constant(9, experimental = experimental)
               } else {
                 duckdb$expr_constant(9)
-              },
-              duckdb$expr_reference("p_size")
+              }
             )
           )
         )