File tree Expand file tree Collapse file tree 2 files changed +36
-37
lines changed Expand file tree Collapse file tree 2 files changed +36
-37
lines changed Original file line number Diff line number Diff line change @@ -202,3 +202,39 @@ if (!on_cran()) {
202202 }
203203 })
204204}
205+
206+ test_that(" Autoupdate is not conducted when renv present in incompatible setup" , {
207+ skip_on_cran()
208+
209+ # mock old pre-commit and renv versions
210+ local_mocked_bindings(version_precommit = function (... ) " 2.13.0" )
211+
212+ local_test_setup(
213+ git = TRUE , use_precommit = TRUE , install_hooks = FALSE , open = FALSE
214+ )
215+ initial <- rev_read() %> %
216+ rev_as_pkg_version()
217+ # simulate adding {renv}
218+ writeLines(" " , " renv.lock" )
219+
220+ # should downgrade rev
221+ expect_error(
222+ ensure_renv_precommit_compat(
223+ package_version_renv = package_version(" 0.13.0" ), root = getwd()
224+ ),
225+ " Please update"
226+ )
227+ downgraded <- rev_read() %> %
228+ rev_as_pkg_version()
229+ expect_true(downgraded == initial )
230+
231+ # simulate removing {renv} should be updated
232+ fs :: file_delete(" renv.lock" )
233+ expect_warning(
234+ ensure_renv_precommit_compat(
235+ package_version(" 0.13.0" ),
236+ root = getwd()
237+ ),
238+ NA
239+ )
240+ })
Original file line number Diff line number Diff line change @@ -82,40 +82,3 @@ test_that("Pre-commit CI setup works", {
8282 )
8383 expect_error(use_ci(root = getwd(), open = FALSE ), " o `.pre-commit-config.yaml`" )
8484})
85-
86-
87- test_that(" Autoupdate is not conducted when renv present in incompatible setup" , {
88- skip_on_cran()
89-
90- # mock old pre-commit and renv versions
91- mockery :: stub(ensure_renv_precommit_compat , " version_precommit" , " 2.13.0" )
92-
93- local_test_setup(
94- git = TRUE , use_precommit = TRUE , install_hooks = FALSE , open = FALSE
95- )
96- initial <- rev_read() %> %
97- rev_as_pkg_version()
98- # simulate adding {renv}
99- writeLines(" " , " renv.lock" )
100-
101- # should downgrade rev
102- expect_error(
103- ensure_renv_precommit_compat(
104- package_version_renv = package_version(" 0.13.0" ), root = getwd()
105- ),
106- " Please update"
107- )
108- downgraded <- rev_read() %> %
109- rev_as_pkg_version()
110- expect_true(downgraded == initial )
111-
112- # simulate removing {renv} should be updated
113- fs :: file_delete(" renv.lock" )
114- expect_warning(
115- ensure_renv_precommit_compat(
116- package_version(" 0.13.0" ),
117- root = getwd()
118- ),
119- NA
120- )
121- })
You can’t perform that action at this time.
0 commit comments