spec_meta_bind_formals

DESCRIPTION

@@ -96,6 +96,7 @@ Collate:
     'spec-sql-remove-table.R'
     'spec-sql-list-objects.R'
     'spec-meta-bind-runner.R'
+    'spec-meta-bind-formals.R'
     'spec-meta-bind.R'
     'spec-meta-bind-.R'
     'spec-meta-is-valid.R'

R/spec-.R

@@ -49,6 +49,7 @@
 #' @include spec-meta-is-valid.R
 #' @include spec-meta-bind-.R
 #' @include spec-meta-bind.R
+#' @include spec-meta-bind-formals.R
 #' @include spec-meta-bind-runner.R
 #' @include spec-sql-list-objects.R
 #' @include spec-sql-remove-table.R

R/spec-meta-bind-formals.R

@@ -0,0 +1,22 @@
+#' spec_meta_bind
+#' @name spec_meta_bind
+#' @family meta specifications
+#' @aliases NULL
+#' @usage NULL
+#' @format NULL
+#' @keywords NULL
+spec_meta_bind_formals <- list(
+  bind_formals = function() {
+    # <establish formals of described functions>
+    expect_equal(names(formals(dbBind)), c("res", "params", "..."))
+  },
+  #'
+  bind_empty = function(con) {
+    #' @section Failure modes:
+    #' Calling `dbBind()` for a query without parameters
+    res <- local_result(dbSendQuery(con, trivial_query()))
+    #' raises an error.
+    expect_error(dbBind(res, list()))
+  },
+  NULL
+)

R/spec-meta-bind.R

@@ -4,11 +4,6 @@
 #' @format NULL
 #' @keywords NULL
 spec_meta_bind <- list(
-  bind_formals = function() {
-    # <establish formals of described functions>
-    expect_equal(names(formals(dbBind)), c("res", "params", "..."))
-  },
-  #
   bind_return_value = function(ctx, con) {
     #' @return
     check_return_value <- function(bind_res, res) {
@@ -43,16 +38,9 @@ spec_meta_bind <- list(
       query = FALSE
     )
   },
-  #'
-  bind_empty = function(con) {
-    #' @section Failure modes:
-    #' Calling `dbBind()` for a query without parameters
-    res <- local_result(dbSendQuery(con, trivial_query()))
-    #' raises an error.
-    expect_error(dbBind(res, list()))
-  },
   #
   bind_too_many = function(ctx, con) {
+    #' @section Failure modes:
     patch_bind_values <- function(bind_values) {
       #' Binding too many
       if (is.null(names(bind_values))) {

R/spec-meta.R

@@ -1,5 +1,6 @@
 #' @format NULL
 spec_meta <- c(
+  spec_meta_bind_formals,
   spec_meta_bind,
   spec_meta_is_valid,
   spec_meta_has_completed,