Add a test that better reflects #130

r-lib · Sep 17, 2024 · 3f77c0b · 3f77c0b
1 parent dab2351
commit 3f77c0b
Show file tree

Hide file tree

Showing 3 changed files with 11 additions and 0 deletions.
diff --git a/src/pause.gcda b/src/pause.gcda
diff --git a/src/profvis-init.gcda b/src/profvis-init.gcda
diff --git a/tests/testthat/test-profvis.R b/tests/testthat/test-profvis.R
@@ -14,6 +14,17 @@ test_that("Irrelevant stack is trimmed from profiles (#123)", {
   expect_equal(profile_mode(out), "pause f")
 })
 
+test_that("Irrelevant stack is trimmed from profiles from inlined code", {
+  skip_on_cran()
+  skip_on_covr()
+
+  out <- profvis(for (i in 1:1e4) rnorm(100), simplify = TRUE)
+  expect_equal(profile_mode(out), "rnorm")
+
+  out <- profvis(for (i in 1:1e4) rnorm(100), simplify = FALSE)
+  expect_equal(profile_mode(out), "rnorm")
+})
+
 test_that("defaults to elapsed timing", {
   skip_on_cran()
   skip_on_covr()