R Under development (unstable) (2025-10-21 r88963 ucrt) -- "Unsuffered Consequences" Copyright (C) 2025 The R Foundation for Statistical Computing Platform: x86_64-w64-mingw32/x64 R is free software and comes with ABSOLUTELY NO WARRANTY. You are welcome to redistribute it under certain conditions. Type 'license()' or 'licence()' for distribution details. R is a collaborative project with many contributors. Type 'contributors()' for more information and 'citation()' on how to cite R or R packages in publications. Type 'demo()' for some demos, 'help()' for on-line help, or 'help.start()' for an HTML browser interface to help. Type 'q()' to quit R. > # This file is part of the standard setup for testthat. > # It is recommended that you do not modify it. > # > # Where should you do additional test configuration? > # Learn more about the roles of various files in: > # * https://r-pkgs.org/testing-design.html#sec-tests-files-overview > # * https://testthat.r-lib.org/articles/special-files.html > > library(testthat) > library(contextFind) > > test_check("contextFind") Found 1 match for "test_function" ============================== Match 1 of 1 test1.R (line 3) Last Modified: 2025-10-22 21:25:49 ------------------------------ Line 3: test_function <- function() { Found 1 match for "x <- 1" ============================== Match 1 of 1 test1.R (line 4) Last Modified: 2025-10-22 21:25:49 ------------------------------ Line 2: # Line 2 Line 3: test_function <- function() { Line 4: x <- 1 Line 5: y <- 2 Line 6: return(x + y) Found 1 match for "# Line 1" ============================== Match 1 of 1 test1.R (line 1) Last Modified: 2025-10-22 21:25:49 ------------------------------ Line 1: # Line 1 Line 2: # Line 2 Line 3: test_function <- function() { Found 1 match for "# Line 8" ============================== Match 1 of 1 test1.R (line 8) Last Modified: 2025-10-22 21:25:49 ------------------------------ Line 6: return(x + y) Line 7: } Line 8: # Line 8 Found 5 matches for "test" ============================== Match 5 of 5 nested.R (line 2) Last Modified: 2025-10-22 21:25:49 ------------------------------ Line 2: test_nested <- 'nested' ============================== Match 4 of 5 test.Rmd (line 6) Last Modified: 2025-10-22 21:25:49 ------------------------------ Line 6: test_chunk <- TRUE ============================== Match 3 of 5 test1.R (line 3) Last Modified: 2025-10-22 21:25:49 ------------------------------ Line 3: test_function <- function() { ============================== Match 2 of 5 test2.R (line 2) Last Modified: 2025-10-22 21:25:49 ------------------------------ Line 2: test_value <- 42 ============================== Match 1 of 5 test2.R (line 3) Last Modified: 2025-10-22 21:25:49 ------------------------------ Line 3: return(test_value) No matches found. Found 1 match for "test_nested" ============================== Match 1 of 1 nested.R (line 2) Last Modified: 2025-10-22 21:25:49 ------------------------------ Line 2: test_nested <- 'nested' No matches found. Found 5 matches for "test" ============================== Match 5 of 5 nested.R (line 2) Last Modified: 2025-10-22 21:25:49 ------------------------------ Line 2: test_nested <- 'nested' ============================== Match 4 of 5 test.Rmd (line 6) Last Modified: 2025-10-22 21:25:49 ------------------------------ Line 6: test_chunk <- TRUE ============================== Match 3 of 5 test1.R (line 3) Last Modified: 2025-10-22 21:25:49 ------------------------------ Line 3: test_function <- function() { ============================== Match 2 of 5 test2.R (line 2) Last Modified: 2025-10-22 21:25:49 ------------------------------ Line 2: test_value <- 42 ============================== Match 1 of 5 test2.R (line 3) Last Modified: 2025-10-22 21:25:49 ------------------------------ Line 3: return(test_value) Found 1 match for "test_function" ============================== Match 1 of 1 test1.R (line 3) Last Modified: 2025-10-22 21:25:50 ------------------------------ Line 2: # Line 2 Line 3: test_function <- function() { Line 4: x <- 1 Found 5 matches for "test" ============================== Match 5 of 5 nested.R (line 2) Last Modified: 2025-10-22 21:25:50 ------------------------------ Line 1: sub_function <- function() { Line 2: test_nested <- 'nested' Line 3: } ============================== Match 4 of 5 test.Rmd (line 6) Last Modified: 2025-10-22 21:25:50 ------------------------------ Line 4: Line 5: ```{r} Line 6: test_chunk <- TRUE Line 7: ``` ============================== Match 3 of 5 test1.R (line 3) Last Modified: 2025-10-22 21:25:50 ------------------------------ Line 1: # Line 1 Line 2: # Line 2 Line 3: test_function <- function() { Line 4: x <- 1 Line 5: y <- 2 ============================== Match 2 of 5 test2.R (line 2) Last Modified: 2025-10-22 21:25:50 ------------------------------ Line 1: another_function <- function() { Line 2: test_value <- 42 Line 3: return(test_value) Line 4: } ============================== Match 1 of 5 test2.R (line 3) Last Modified: 2025-10-22 21:25:50 ------------------------------ Line 1: another_function <- function() { Line 2: test_value <- 42 Line 3: return(test_value) Line 4: } Found 1 match for "x <- 1" ============================== Match 1 of 1 test1.R (line 4) Last Modified: 2025-10-22 21:25:50 ------------------------------ Line 4: x <- 1 Found 1 match for "test_function" ============================== Match 1 of 1 test1.R (line 3) Last Modified: 2025-10-22 21:25:50 ------------------------------ Line 3: test_function <- function() { No matches found. Found 7 matches for "test" ============================== Match 7 of 7 nested.R (line 2) Last Modified: 2025-10-22 21:25:50 ------------------------------ Line 2: test_nested <- 'nested' ============================== Match 6 of 7 test.Rmd (line 6) Last Modified: 2025-10-22 21:25:50 ------------------------------ Line 6: test_chunk <- TRUE ============================== Match 5 of 7 test1.R (line 3) Last Modified: 2025-10-22 21:25:50 ------------------------------ Line 3: test_function <- function() { ============================== Match 4 of 7 test2.R (line 2) Last Modified: 2025-10-22 21:25:50 ------------------------------ Line 2: test_value <- 42 ============================== Match 3 of 7 test2.R (line 3) Last Modified: 2025-10-22 21:25:50 ------------------------------ Line 3: return(test_value) ============================== Match 2 of 7 old.R (line 1) Last Modified: 2025-10-22 21:25:50 ------------------------------ Line 1: old_test <- 1 ============================== Match 1 of 7 new.R (line 1) Last Modified: 2025-10-22 21:25:50 ------------------------------ Line 1: new_test <- 1 Found 1 match for ".*test.*" ============================== Match 1 of 1 special.R (line 1) Last Modified: 2025-10-22 21:25:50 ------------------------------ Line 1: pattern <- '.*test.*' [ FAIL 0 | WARN 0 | SKIP 0 | PASS 43 ] > > proc.time() user system elapsed 0.78 0.15 1.14