DAMP > DRY: define a function and use it in all tests.

maelle · Jan 13, 2023 · 9cc0893 · 9cc0893
1 parent 381f244
commit 9cc0893
Show file tree

Hide file tree

Showing 3 changed files with 7 additions and 1 deletion.
diff --git a/tests/testthat/helper-swamp.R b/tests/testthat/helper-swamp.R
@@ -1 +1,3 @@
-test_object <- list(a = 1, b = 2)
+basic_list <- function() {
+  list(a = 1, b = 2)
+}
diff --git a/tests/testthat/test-ok.R b/tests/testthat/test-ok.R
@@ -1,7 +1,9 @@
 test_that("division works", {
+  test_object <- basic_list()
   expect_equal(test_object[["b"]] / 2, 1)
 })
 
 test_that("substraction works", {
+  test_object <- basic_list()
   expect_equal(test_object[["a"]] - 1, 0)
 })
diff --git a/tests/testthat/test-works.R b/tests/testthat/test-works.R
@@ -1,7 +1,9 @@
 test_that("multiplication works", {
+  test_object <- basic_list()
   expect_equal(test_object[["b"]] * 2, 4)
 })
 
 test_that("addition works", {
+  test_object <- basic_list()
   expect_equal(test_object[["a"]] + 2, 3)
 })