Add tests [revdep skip]

Displayr · Jan 20, 2022 · 3e08ab9 · 3e08ab9
1 parent 60d48c4
commit 3e08ab9
Show file tree

Hide file tree

Showing 2 changed files with 17 additions and 0 deletions.
diff --git a/tests/testthat/test-mergingandstackingutilities.R b/tests/testthat/test-mergingandstackingutilities.R
@@ -25,6 +25,12 @@ test_that("allIdentical", {
     expect_equal(allIdentical(x = c(1, 1, 1)), TRUE)
 })
 
+test_that("allValueAttributesIdentical", {
+    val.attr <- structure(1:3, .Names = c("A", "B", "C"))
+    expect_equal(allValueAttributesIdentical(list(val.attr, rev(val.attr))), TRUE)
+    expect_equal(allValueAttributesIdentical(list(val.attr, rev(val.attr)[1:2])), FALSE)
+})
+
 test_that("removeNA", {
     expect_equal(removeNA(x = c(NA, 1, 2, NA, 3)), c(1, 2 ,3))
 })

diff --git a/tests/testthat/test-stacking.R b/tests/testthat/test-stacking.R
@@ -483,6 +483,17 @@ test_that("stackingSpecifiedByVariable", {
                           "ignored as it contains variables with mismatching ",
                           "types or value attributes."))
     expect_equal(stacking.groups, structure(6:8, .Dim = c(1L, 3L)))
+
+    # Value attributes in different order
+    v.val.attr.3 <- v.val.attr
+    v.val.attr.3[[2]] <- rev(v.val.attr.3[[2]])
+    expect_warning(stacking.groups <- stackingSpecifiedByVariable(c("Q2_A-Q2_D", "Q3_*"),
+                                                                  list(variable.names = v.names,
+                                                                       variable.types = v.types,
+                                                                       variable.value.attributes = v.val.attr.3)), NA)
+    expect_equal(stacking.groups,
+                 structure(c(2L, 6L, 3L, 7L, 4L, 8L, 5L, NA),
+                           .Dim = c(2L, 4L)))
 })
 
 test_that("stackingSpecifiedByObservation", {