feat: Show DBItest function in backtrace

[krlmlr]

New output, note the first call in the stack trace.

pkgload::load_all("~/git/R/r-dbi/RSQLite")
#> ℹ Loading RSQLite
DBItest::test_some("arrow_append_table_arrow_roundtrip_64_bit_roundtrip")
#> ── Failure: DBItest[RSQLite]: Arrow: arrow_append_table_arrow_roundtrip_64_bit_roundtrip ──
#> `actual` not identical to `expected`.
#> Classes differ: 'numeric' is not 'integer64'
#> Backtrace:
#>     ▆
#>  1. └─DBItest:::spec_arrow$arrow_append_table_arrow_roundtrip_64_bit_roundtrip(...)
#>  2.   └─DBItest:::test_arrow_roundtrip(...) at DBItest/R/spec-arrow-append-table-arrow.R:224:5
#>  3.     └─DBItest:::test_arrow_roundtrip_one(..., .add_na = "none") at DBItest/R/spec-arrow-write-table-arrow.R:728:3
#>  4.       └─DBItest:::expect_equal_df(tbl_out, tbl_expected) at DBItest/R/spec-arrow-write-table-arrow.R:763:3
#>  5.         └─testthat::expect_identical(actual, expected) at DBItest/R/expectations.R:80:3
#> 
#> ── Failure: DBItest[RSQLite]: Arrow: arrow_append_table_arrow_roundtrip_64_bit_roundtrip ──
#> `actual` not identical to `expected`.
#> Classes differ: 'numeric' is not 'integer64'
#> Backtrace:
#>     ▆
#>  1. └─DBItest:::spec_arrow$arrow_append_table_arrow_roundtrip_64_bit_roundtrip(...)
#>  2.   └─DBItest:::test_arrow_roundtrip(...) at DBItest/R/spec-arrow-append-table-arrow.R:224:5
#>  3.     └─DBItest:::test_arrow_roundtrip_one(..., .add_na = "above") at DBItest/R/spec-arrow-write-table-arrow.R:729:3
#>  4.       └─DBItest:::expect_equal_df(tbl_out, tbl_expected) at DBItest/R/spec-arrow-write-table-arrow.R:763:3
#>  5.         └─testthat::expect_identical(actual, expected) at DBItest/R/expectations.R:80:3
#> 
#> ── Failure: DBItest[RSQLite]: Arrow: arrow_append_table_arrow_roundtrip_64_bit_roundtrip ──
#> `actual` not identical to `expected`.
#> Classes differ: 'numeric' is not 'integer64'
#> Backtrace:
#>     ▆
#>  1. └─DBItest:::spec_arrow$arrow_append_table_arrow_roundtrip_64_bit_roundtrip(...)
#>  2.   └─DBItest:::test_arrow_roundtrip(...) at DBItest/R/spec-arrow-append-table-arrow.R:224:5
#>  3.     └─DBItest:::test_arrow_roundtrip_one(..., .add_na = "below") at DBItest/R/spec-arrow-write-table-arrow.R:730:3
#>  4.       └─DBItest:::expect_equal_df(tbl_out, tbl_expected) at DBItest/R/spec-arrow-write-table-arrow.R:763:3
#>  5.         └─testthat::expect_identical(actual, expected) at DBItest/R/expectations.R:80:3
#> Error:
#> ! Test failed
#> Backtrace:
#>      ▆
#>   1. └─DBItest::test_some("arrow_append_table_arrow_roundtrip_64_bit_roundtrip")
#>   2.   └─DBItest::test_all(run_only = test, skip = character(), ctx = ctx) at DBItest/R/test-all.R:47:3
#>   3.     └─DBItest::test_arrow(skip = skip, run_only = run_only, ctx = ctx) at DBItest/R/test-all.R:33:3
#>   4.       └─DBItest:::run_tests(ctx, spec_arrow, skip, run_only, test_suite) at DBItest/R/test-arrow.R:17:3
#>   5.         └─base::vapply(...) at DBItest/R/run.R:35:3
#>   6.           └─DBItest (local) FUN(X[[i]], ...)
#>   7.             └─testthat::test_that(...) at DBItest/R/run.R:45:9
#>   8.               └─withr (local) `<fn>`(`<env>`) at DBItest/R/run.R:45:9
#>   9.                 ├─base::tryCatch(...)
#>  10.                 │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
#>  11.                 │   └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
#>  12.                 │     └─base (local) doTryCatch(return(expr), name, parentenv, handler)
#>  13.                 └─base::eval(handler$expr, handler$envir)
#>  14.                   └─base::eval(handler$expr, handler$envir)
#>  15.                     └─reporter$stop_if_needed()
#>  16.                       └─rlang::abort("Test failed", call = NULL)

^{Created on 2024-01-11 with reprex v2.0.2}

Closes #349.

[aviator-app]

Current Aviator status

Aviator will automatically update this comment as the status of the PR changes.
Comment /aviator refresh to force Aviator to re-examine your PR (or learn about other /aviator commands).

This PR was merged using Aviator.

---

See the real-time status of this PR on the Aviator webapp.

Use the Aviator Chrome Extension to see the status of your PR within GitHub.

[krlmlr]

This needs #355.

[aviator-app]

This pull request failed to merge: some CI status(es) failed. Remove the blocked label to re-queue.

Failed CI(s): Smoke test: stock R