ci: Import from actions-sync, check carefully (#387)

* ci: Import from actions-sync, check carefully * chore: Auto-update from GitHub Actions Run: https://github.com/r-dbi/DBItest/actions/runs/12195209458
r-dbi · Dec 6, 2024 · 419f7ed · 419f7ed
1 parent 8c1cf3a
commit 419f7ed
Show file tree

Hide file tree

Showing 6 changed files with 41 additions and 41 deletions.
diff --git a/.github/workflows/lock.yaml b/.github/workflows/lock.yaml
@@ -12,7 +12,7 @@ jobs:
   lock:
     runs-on: ubuntu-24.04
     steps:
-      - uses: dessant/lock-threads@v5
+      - uses: krlmlr/lock-threads@patch-1
         with:
           github-token: ${{ github.token }}
           issue-inactive-days: "365"

diff --git a/R/spec-meta-bind-.R b/R/spec-meta-bind-.R
@@ -1,16 +1,16 @@
 # Helpers -----------------------------------------------------------------
 
 test_select_bind_expr <- function(
-    bind_values,
-    ctx = stop("ctx is available during run time only"),
-    ...,
-    arrow,
-    bind,
-    query = TRUE,
-    skip_fun = NULL,
-    dbitest_version = NULL,
-    cast_fun = NULL,
-    requires_names = NULL) {
+  bind_values,
+  ctx = stop("ctx is available during run time only"),
+  ...,
+  arrow,
+  bind,
+  query = TRUE,
+  skip_fun = NULL,
+  dbitest_version = NULL,
+  cast_fun = NULL,
+  requires_names = NULL) {
   force(bind_values)
   force(arrow)
   force(bind)

diff --git a/R/spec-meta-bind-expr.R b/R/spec-meta-bind-expr.R
@@ -6,10 +6,10 @@
 #' @format NULL
 #' @keywords NULL
 spec_meta_bind_expr <- function(
-    arrow = c("none", "query"),
-    bind = c("df", "stream"),
-    ...,
-    ctx = stop("ctx is available during run time only")) {
+  arrow = c("none", "query"),
+  bind = c("df", "stream"),
+  ...,
+  ctx = stop("ctx is available during run time only")) {
   check_dots_empty()
   arrow <- arg_match(arrow)
   bind <- arg_match(bind)

diff --git a/R/spec-meta-bind-runner.R b/R/spec-meta-bind-runner.R
@@ -10,19 +10,19 @@ test_select_bind_expr_one <- list()
 #' \pkg{DBI} clients execute parametrized statements as follows:
 #'
 test_select_bind_expr_one$fun <- function(
-    bind_values,
-    ...,
-    arrow,
-    bind,
-    query = TRUE,
-    has_cast_fun = FALSE,
-    check_return_value = NULL,
-    patch_bind_values = NULL,
-    bind_error = NA,
-    warn = FALSE,
-    is_repeated = FALSE,
-    is_premature_clear = FALSE,
-    is_untouched = FALSE) {
+  bind_values,
+  ...,
+  arrow,
+  bind,
+  query = TRUE,
+  has_cast_fun = FALSE,
+  check_return_value = NULL,
+  patch_bind_values = NULL,
+  bind_error = NA,
+  warn = FALSE,
+  is_repeated = FALSE,
+  is_premature_clear = FALSE,
+  is_untouched = FALSE) {
   check_dots_empty()
   force(bind_values)
   force(arrow)

diff --git a/R/spec-result-roundtrip.R b/R/spec-result-roundtrip.R
@@ -265,11 +265,11 @@ test_select_with_null <- function(...) {
 }
 
 test_select <- function(
-    con,
-    ...,
-    .add_null = "none",
-    .ctx,
-    .envir = parent.frame()) {
+  con,
+  ...,
+  .add_null = "none",
+  .ctx,
+  .envir = parent.frame()) {
 
   values <- list2(...)
 

diff --git a/R/spec-sql-write-table.R b/R/spec-sql-write-table.R
@@ -831,14 +831,14 @@ test_table_roundtrip <- function(...) {
 }
 
 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") {
+  con,
+  tbl_in,
+  tbl_expected = tbl_in,
+  transform = identity,
+  name = NULL,
+  field.types = NULL,
+  use_append = FALSE,
+  .add_na = "none") {
   force(tbl_expected)
   if (.add_na == "above") {
     tbl_in <- add_na_above(tbl_in)