Exports and inlines

Author: krlmlr

NAMESPACE

@@ -8,13 +8,16 @@ export(connect)
 export(dbi_generics)
 export(expect_all_args_have_default_values)
 export(expect_ellipsis_in_formals)
+export(expect_equal_df)
 export(expect_has_class_method)
 export(expect_invisible_true)
 export(get_default_context)
 export(get_key_methods)
+export(get_penguins)
 export(get_pkg_path)
 export(get_placeholder_funs)
 export(get_texts)
+export(has_utf8_or_ascii_encoding)
 export(local_connection)
 export(local_remove_test_table)
 export(local_result)
@@ -32,17 +35,21 @@ export(test_driver)
 export(test_getting_started)
 export(test_meta)
 export(test_result)
+export(test_select)
 export(test_select_bind)
 export(test_select_with_null)
 export(test_some)
 export(test_sql)
 export(test_stress)
+export(test_table_roundtrip)
+export(test_table_roundtrip_one)
 export(test_transaction)
 export(trivial_df)
 export(trivial_query)
 export(trivial_values)
 export(try_silent)
 export(tweaks)
+export(unrowname)
 import(testthat)
 importFrom(DBI,Id)
 importFrom(DBI,SQL)

R/expectations.R

@@ -48,6 +48,7 @@ expect_invisible_true <- function(code) {
   invisible(ret$value)
 }
 
+#' @export
 expect_equal_df <- function(actual, expected) {
   factor_cols <- vapply(expected, is.factor, logical(1L))
   expected[factor_cols] <- lapply(expected[factor_cols], as.character)

R/spec-result-roundtrip.R

@@ -267,6 +267,7 @@ test_select_with_null <- function(...) {
   test_select(..., .add_null = "below")
 }
 
+#' @export
 test_select <- function(con, ..., .dots = NULL, .add_null = "none",
                         .ctx, .envir = parent.frame()) {
   values <- c(list(...), .dots)
@@ -356,6 +357,7 @@ all_have_utf8_or_ascii_encoding <- function(x) {
   all(vapply(x, has_utf8_or_ascii_encoding, logical(1L)))
 }
 
+#' @export
 has_utf8_or_ascii_encoding <- function(x) {
   if (Encoding(x) == "UTF-8") {
     TRUE

R/spec-sql-write-table.R

@@ -822,12 +822,14 @@ spec_sql_write_table <- list(
   NULL
 )
 
+#' @export
 test_table_roundtrip <- function(...) {
   test_table_roundtrip_one(..., .add_na = "none")
   test_table_roundtrip_one(..., .add_na = "above")
   test_table_roundtrip_one(..., .add_na = "below")
 }
 
+#' @export
 test_table_roundtrip_one <- function(con, tbl_in, tbl_expected = tbl_in, transform = identity,
                                      name = NULL, field.types = NULL, use_append = FALSE, .add_na = "none") {
   force(tbl_expected)

R/use.R

@@ -24,31 +24,41 @@ use_dbitest <- function(path) {
   ))
   usethis::use_import_from("DBItest", c(
     "get_default_context",
+    "connect",
     "local_connection",
     "local_result",
-    "connect",
-    "trivial_query",
+    "local_remove_test_table",
     "try_silent",
     "package_name",
     "get_pkg_path",
-    "test_data_type",
-    "expect_invisible_true",
     "s4_methods",
+    "expect_invisible_true",
+    "expect_equal_df",
     "expect_all_args_have_default_values",
     "expect_ellipsis_in_formals",
     "expect_has_class_method",
     "get_key_methods",
     "dbi_generics",
     "check_df",
-    "test_select_bind",
-    "new_bind_tester_extra",
     "random_table_name",
-    "local_remove_test_table",
     "get_placeholder_funs",
+    "has_utf8_or_ascii_encoding",
+    #
+    "trivial_query",
     "trivial_df",
     "trivial_values",
-    "test_select_with_null",
+    "get_penguins",
+    #
     "get_texts",
+    "unrowname",
+    #
+    "test_data_type",
+    "test_select_with_null",
+    "test_select",
+    "test_select_bind",
+    "new_bind_tester_extra",
+    "test_table_roundtrip",
+    "test_table_roundtrip_one",
     NULL
   ))
 

R/utils.R

@@ -53,6 +53,7 @@ local_remove_test_table <- function(con, name, frame = rlang::caller_env()) {
   )
 }
 
+#' @export
 get_penguins <- function(ctx) {
   datasets_penguins <- unrowname(palmerpenguins::penguins[c(1, 153, 277), ])
   if (!isTRUE(ctx$tweaks$strict_identifier)) {
@@ -61,6 +62,7 @@ get_penguins <- function(ctx) {
   as.data.frame(datasets_penguins)
 }
 
+#' @export
 unrowname <- function(x) {
   rownames(x) <- NULL
   x