| 160 | 160 | write_if_missing("md5", driver_rds_config_file(path, "hash_algorithm")) |
|
| 161 | 161 | } |
|
| 162 | 162 | ## Then write out the version number: |
|
| 163 | - | write_if_missing(as.character(packageVersion("storr")), |
|
| 163 | + | write_if_missing(as.character(utils::packageVersion("storr")), |
|
| 164 | 164 | driver_rds_config_file(path, "version")) |
|
| 165 | 165 | ||
| 166 | 166 | if (!is.null(mangle_key)) { |
| 77 | 77 | ||
| 78 | 78 | env$.driver_create <- create |
|
| 79 | 79 | ||
| 80 | - | if (packageVersion("testthat") < "2.99") { |
|
| 80 | + | ## This exists only until testthat version 3.0.x is released, when |
|
| 81 | + | ## we'll just depend on the most recent copy. |
|
| 82 | + | ## nocov start |
|
| 83 | + | if (utils::packageVersion("testthat") < "2.99") { |
|
| 81 | 84 | res <- lapply(files, testthat::test_file, env = env, |
|
| 82 | 85 | reporter = reporter, start_end_reporter = FALSE) |
|
| 83 | 86 |
| 85 | 88 | res <- lapply(files, testthat::test_file, env = env, |
|
| 86 | 89 | reporter = reporter) |
|
| 87 | 90 | } |
|
| 91 | + | ## nocov end |
|
| 88 | 92 | ||
| 89 | 93 | df <- do.call("rbind", lapply(res, as.data.frame)) |
|
| 90 | 94 |
| Files | Coverage |
|---|---|
| R | 100.00% |
| src/storr.c | 100.00% |
| Project Totals (16 files) | 100.00% |
richfitz
