From 9390735af31e14e0f7a354e05d919a39db7dc563 Mon Sep 17 00:00:00 2001
From: Andreas Gammelgaard Damsbo <andreas@gdamsbo.dk>
Date: Thu, 28 Nov 2024 14:32:30 +0100
Subject: [PATCH] new tests

---
 tests/testthat/test-as_factor.R    | 56 ++++++++++++++++++++++++++++++
 tests/testthat/test-redcap_wider.R |  3 +-
 2 files changed, 58 insertions(+), 1 deletion(-)
 create mode 100644 tests/testthat/test-as_factor.R

diff --git a/tests/testthat/test-as_factor.R b/tests/testthat/test-as_factor.R
new file mode 100644
index 0000000..93ae383
--- /dev/null
+++ b/tests/testthat/test-as_factor.R
@@ -0,0 +1,56 @@
+# library(testthat)
+test_that("fct2num works", {
+  expect_equal(2 * 2, 4)
+
+  expect_equal(
+    c(1, 4, 3, "A", 7, 8, 1) |>
+      as_factor() |> # named_levels()
+      fct2num(),
+    c(1, 2, 3, 4, 5, 6, 1)
+  )
+
+  expect_equal(
+    structure(c(1, 2, 3, 2, 10, 9),
+      labels = c(Unknown = 9, Refused = 10),
+      class = "haven_labelled"
+    ) |>
+      as_factor() |>
+      fct2num(),
+    c(1, 2, 3, 2, 10, 9)
+  )
+
+  expect_equal(
+    structure(c(1, 2, 3, 2, 10, 9),
+      labels = c(Unknown = 9, Refused = 10),
+      class = "labelled"
+    ) |>
+      as_factor() |>
+      fct2num(),
+    c(1, 2, 3, 2, 10, 9)
+  )
+
+
+  expect_equal(
+    structure(c(1, 2, 3, 2, 10, 9),
+      labels = c(Unknown = 9, Refused = 10)
+    ) |>
+      as_factor.labelled() |>
+      fct2num(),
+    c(1, 2, 3, 2, 10, 9)
+  )
+
+  expect_equal(
+    structure(c(1, 2, 3, 2, 10, 9),
+      labels = c(Unknown = 9, Refused = 10),
+      class = "labelled"
+    ) |>
+      as_factor() |> dput(),
+    structure(c(1L, 2L, 3L, 2L, 5L, 4L), levels = c(
+      "1", "2", "3",
+      "Unknown", "Refused"
+    ), class = "factor", labels = c(
+      Unknown = 9,
+      Refused = 10
+    ))
+  )
+})
diff --git a/tests/testthat/test-redcap_wider.R b/tests/testthat/test-redcap_wider.R
index 8499fb1..07108a7 100644
--- a/tests/testthat/test-redcap_wider.R
+++ b/tests/testthat/test-redcap_wider.R
@@ -1,3 +1,4 @@
+library(testthat)
 test_that("redcap_wider() returns expected output", {
   list <-
     list(
@@ -15,7 +16,7 @@ test_that("redcap_wider() returns expected output", {
 
   expect_equal(
     redcap_wider(list),
-    data.frame(
+    dplyr::tibble(
       record_id = c(1, 2),
       age_baseline = c(25, 26),
       age_followup = c(27, 28),