Merge pull request #33 from nutriverse/dev

create test for calculate_team_tem; fix #26
nutriverse · Dec 18, 2024 · f018889 · f018889
2 parents 3ac92af + 2db06cb
commit f018889
Show file tree

Hide file tree

Showing 2 changed files with 20 additions and 15 deletions.
diff --git a/R/04_calculate_team_tem.R b/R/04_calculate_team_tem.R
@@ -23,26 +23,17 @@ calculate_team_tem <- function(n, k, m) {
 
   if (!methods::is(m, "data.frame")) {
     stop(
-      paste(
-        strwrap("Measurements should be supplied as a data frame.
-                Please check and try again.",
-                width = 80),
-        "\n",
-        collapse = "\n"
-      )
+      "Measurements should be supplied as a data frame. ",
+      "Please check and try again.",
+      call. = TRUE
     )
   }
 
   if(ncol(m) != k | nrow(m) != n) {
     stop(
-      paste(
-        strwrap("Measurements data frame should have rows equal to number of
-                subjects and columns equal to number of observers.
-                Please check and try again.",
-                width = 80),
-        "\n",
-        collapse = "\n"
-      )
+      "Measurements data frame should have rows equal to number of subjects ",
+      "and columns equal to number of observers. Please check and try again.",
+      call. = TRUE
     )
   }
 

diff --git a/tests/testthat/test-04_calculate_team_tem.R b/tests/testthat/test-04_calculate_team_tem.R
@@ -1,3 +1,17 @@
 # Tests for calculate_team_tem -------------------------------------------------
 
+team_tem <- calculate_team_tem(
+  n = 10, k = 4, m = stature[ , c("m1", "m2", "m3", "m4")]
+)
 
+test_that("calculate_team_tem works as expected", {
+  expect_type(team_tem, "double")
+})
+
+expect_error(calculate_team_tem(n = 10, k = 4, m = stature$m1))
+
+expect_error(
+  calculate_team_tem(
+    n = 10, k = 4, m = stature[1:9, c("m1", "m2", "m3")]
+  )
+)