Tidying unit test files for pilot3utils.

RConsortium · Feb 14, 2024 · a77407a · a77407a
1 parent 1b91b22
commit a77407a
Show file tree

Hide file tree

Showing 5 changed files with 19 additions and 33 deletions.
diff --git a/R/example.r b/R/example.r
@@ -21,4 +21,5 @@ testthat_example <- function(filename) {
     package = "testthat",
     mustWork = TRUE
   )
-}
+}
+
diff --git a/tests/testthat/test-adam_functions.r b/tests/testthat/test-adam_functions.r
@@ -47,8 +47,3 @@ test_that("round_sas works", {
   expect_length(round_sas(10.56, digits = 0), 1)
 
 })
-
-
-
-
-
diff --git a/tests/testthat/test-eff_models.r b/tests/testthat/test-eff_models.r
@@ -2,4 +2,3 @@ test_that("Pilot3 can use the testthat 3e", {
   local_edition(3)
   expect_true(TRUE)
 })
-
diff --git a/tests/testthat/test-fmt.r b/tests/testthat/test-fmt.r
@@ -3,13 +3,12 @@ test_that("Pilot3 can use the testthat 3e", {
   expect_true(TRUE)
 })
 
-
 test_that("fmt_num works", {
-  expect_equal(fmt_num(1.25, digits = 1), '  1.2')
-  expect_equal(fmt_num(1.25, digits = 2), '  1.25')
-  expect_equal(fmt_num(4.25, digits = 3), '  4.250')
-  expect_equal(fmt_num(1.25, digits = 0), '   1')
-  expect_length(fmt_num(1.25,digits = 4), 1)
+  expect_equal(fmt_num(1.25, digits = 1), "  1.2")
+  expect_equal(fmt_num(1.25, digits = 2), "  1.25")
+  expect_equal(fmt_num(4.25, digits = 3), "  4.250")
+  expect_equal(fmt_num(1.25, digits = 0), "   1")
+  expect_length(fmt_num(1.25, digits = 4), 1)
 })
 
 
@@ -20,9 +19,7 @@ test_that("fmt_est works", {
   expect_length(fmt_est(1.25, 0.5), 1)
 })
 
-
 test_that("fmt_pval works", {
-
   expect_equal(fmt_pval(0.446, digits = 2), "  0.45")
   expect_equal(fmt_pval(0.445, digits = 3), "  0.445")
   expect_equal(fmt_pval(0.52, digits = 3), "  0.520")
@@ -31,9 +28,7 @@ test_that("fmt_pval works", {
 
 })
 
-
 test_that("fmt_ci works", {
-
   expect_equal(fmt_ci(1, -0.25, 1.32), " 1.00 (-0.25, 1.32)")
   expect_equal(fmt_ci(1.5, -0.04, 1.09), " 1.50 (-0.04, 1.09)")
   expect_equal(fmt_ci(-2.5, -0.09, 2.07), "-2.50 (-0.09, 2.07)")

diff --git a/tests/testthat/test-helpers.r b/tests/testthat/test-helpers.r
@@ -4,25 +4,21 @@ test_that("Pilot3 can use the testthat 3e", {
 })
 
 test_that("pad_row works", {
-
-    .data <- tibble::tribble(
-      ~STUDYID, ~USUBJID, ~PARAMCD, ~PARAM, ~AVISIT,
-      "TEST01", "01-701-1015", "DIABP", "Diastolic Blood Pressure (mmHg)", "BASELINE",
-      "TEST01", "01-701-1015", "DIABP", "Diastolic Blood Pressure (mmHg)", "WEEK 2",
-      "TEST01", "01-701-1015", "SYSBP", "Systolic Blood Pressure (mmHg)", "BASELINE",
-      "TEST01", "01-701-1015", "SYSBP", "Systolic Blood Pressure (mmHg)", "WEEK 2",
-      "TEST01", "01-701-1028", "DIABP", "Diastolic Blood Pressure (mmHg)", "BASELINE",
-      "TEST01", "01-701-1028", "SYSBP", "Systolic Blood Pressure (mmHg)", "BASELINE"
-
+  .data <- tibble::tribble(
+    ~STUDYID, ~USUBJID, ~PARAMCD, ~PARAM, ~AVISIT,
+    "TEST01", "01-701-1015", "DIABP", "Diastolic Blood Pressure (mmHg)", "BASELINE",
+    "TEST01", "01-701-1015", "DIABP", "Diastolic Blood Pressure (mmHg)", "WEEK 2",
+    "TEST01", "01-701-1015", "SYSBP", "Systolic Blood Pressure (mmHg)", "BASELINE",
+    "TEST01", "01-701-1015", "SYSBP", "Systolic Blood Pressure (mmHg)", "WEEK 2",
+    "TEST01", "01-701-1028", "DIABP", "Diastolic Blood Pressure (mmHg)", "BASELINE",
+    "TEST01", "01-701-1028", "SYSBP", "Systolic Blood Pressure (mmHg)", "BASELINE"
 )
   expect_equal(nrow(pad_row(.data)),  7)
-  expect_equal(nrow(pad_row(.data,n = 3)),  9)
-  expect_equal(nrow(pad_row(.data,n = 5)),  11)
+  expect_equal(nrow(pad_row(.data, n = 3)),  9)
+  expect_equal(nrow(pad_row(.data, n = 5)),  11)
   expect_length(nrow(pad_row(.data)), 1)
-
 })
 
-
 test_that("num_fmt works", {
   expect_equal(num_fmt(NA, digits = 0, size = 10, int_len = 3),  "")
   expect_equal(num_fmt(5, digits = 0, size = 10, int_len = 3),  "  5       ")
@@ -37,8 +33,8 @@ test_that("str_pad works", {
 })
 
 test_that("nrow works", {
-  expect_equal(nrow(matrix(1:12,3,4)),  3)
-  expect_length(nrow(matrix(1:12,3,4)), 1)
+  expect_equal(nrow(matrix(1:12, 3, 4)),  3)
+  expect_length(nrow(matrix(1:12, 3, 4)), 1)
 })
 
 test_that("round works", {
-Original file line number
+Diff line change
@@ Expand Up / @@ -21,4 +21,5 @@ testthat_example <- function(filename) { @@
         package = "testthat",
         mustWork = TRUE
       )
-    }
+    }
Original file line number	Diff line number	Diff line change
Expand Up		@@ -47,8 +47,3 @@ test_that("round_sas works", {
		expect_length(round_sas(10.56, digits = 0), 1)

Check warning on line 48 in tests/testthat/test-adam_functions.r View workflow job for this annotation GitHub Actions / lint `file=tests/testthat/test-adam_functions.r,line=48,col=1,[trailing_whitespace_linter] Trailing whitespace is superfluous.`
		})
Original file line number	Diff line number	Diff line change
Expand Up		@@ -2,4 +2,3 @@ test_that("Pilot3 can use the testthat 3e", {
		local_edition(3)
		expect_true(TRUE)
		})