mirror of
https://github.com/rstudio/shiny.git
synced 2026-02-07 21:26:08 -05:00
be11b44864
- Adds functions we will need for tracking ..stacktraceon/off.. across deep stacks - Adds functions we will need for pruning according to lobstr::cst logic These functions are not yet integrated, that will occur in a separate commit.
48 lines
1.1 KiB
R
48 lines
1.1 KiB
R
context("deepstacks")
|
|
|
|
describe("deep stack trace filtering", {
|
|
it("passes smoke test", {
|
|
st <- list(
|
|
c(
|
|
common <- c("1", "2", "..stacktraceoff..", "3", "..stacktracefloor.."),
|
|
"4", "..stacktraceon..", "5"
|
|
),
|
|
c(common, "6", "..stacktraceoff..", "7"),
|
|
c(common, "8", "..stacktraceon.."),
|
|
c(common, "9")
|
|
)
|
|
|
|
expect_equal(
|
|
stripStackTraces(values = TRUE, st),
|
|
jsonlite::fromJSON('[["1", "2", "5"],["6"],[],["9"]]')
|
|
)
|
|
})
|
|
|
|
it("handles null cases", {
|
|
expect_equal(
|
|
stripStackTraces(values = TRUE, list(c())),
|
|
list(character(0))
|
|
)
|
|
})
|
|
|
|
it("handles various edge cases", {
|
|
expect_equal(
|
|
stripStackTraces(values = TRUE, list(
|
|
c("..stacktraceoff..", "..stacktraceoff..")
|
|
)),
|
|
list(character(0))
|
|
)
|
|
|
|
expect_equal(
|
|
stripStackTraces(values = TRUE, list(
|
|
c("..stacktraceoff..", "..stacktraceoff.."),
|
|
c(),
|
|
c("..stacktraceon.."),
|
|
c("..stacktraceon.."),
|
|
c("1")
|
|
)),
|
|
list(character(0), character(0), character(0), character(0), "1")
|
|
)
|
|
})
|
|
})
|