[188037693]: fix tests

Crunch-io · Aug 6, 2024 · 2283999 · 2283999
1 parent 4dc7ea0
commit 2283999
Show file tree

Hide file tree

Showing 2 changed files with 14 additions and 7 deletions.
diff --git a/R/as-data-frame.R b/R/as-data-frame.R
@@ -161,8 +161,8 @@ csvColInfo <- function(ds, verbose = TRUE) {
         if (any(msg_rows)) {
             alias_info <- paste0(out$orig_alias[msg_rows], " -> ", out$cond_qualified_alias[msg_rows])
             message(
-                "Some column names are qualified because there were duplicate aliases ",
-                "in dataset: ", paste0(alias_info, collapse = ", ")
+                "Some column names are qualified because there were duplicate aliases",
+                "in dataset:\n", paste0(alias_info, collapse = ", ")
             )
         }
     }

diff --git a/tests/testthat/test-as-data-frame.R b/tests/testthat/test-as-data-frame.R
@@ -391,13 +391,20 @@ with_test_authentication({
         mrds <- mrdf.setup(newDataset(mrdf, name = "test-mrdfmr"), selections = "1.0")
         mrds$MR2 <- deriveArray(
             list(
-                VarDef(ds$MR$mr_1, name = "dup mr_1", alias = "mr_1"),
-                VarDef(ds$MR$mr_2, name = "dup v4", alias = "v4")
+                VarDef(mrds$MR$mr_1, name = "dup mr_1", alias = "mr_1"),
+                VarDef(mrds$MR$mr_2, name = "dup v4", alias = "v4")
             ),
-            name = "MR 2"
+            name = "MR 2", numeric = FALSE
         )
-        mrds_df <- as.data.frame(mrds, force = TRUE)
-        expect_equal(ncol(mrds_df), 4)
+        expect_message(
+            mrds_df <- as.data.frame(mrds, force = TRUE),
+            paste0(
+                "Some column names are qualified because there were duplicate aliases ",
+                "in dataset:\nmr_1 -> MR[mr_1], mr_1 -> MR2[mr_1], v4 -> MR2[v4]"
+            )
+        )
+
+        expect_equal(ncol(mrds_df), 6)
         expect_equal(names(mrds_df), c("MR[mr_1]", "mr_2", "mr_3", "v4", "MR2[mr_1]", "MR2[v4]"))
         expect_equal(mrds_df[["MR[mr_1]"]], as.vector(mrds$MR$mr_1))
         expect_equal(mrds_df$mr_2, as.vector(mrds$MR$mr_2))