From 3e08ab9dcc0a57da2e77a355e77aefd0cdb71e5d Mon Sep 17 00:00:00 2001 From: Justin Yap Date: Thu, 20 Jan 2022 13:45:09 +1100 Subject: [PATCH] Add tests [revdep skip] --- tests/testthat/test-mergingandstackingutilities.R | 6 ++++++ tests/testthat/test-stacking.R | 11 +++++++++++ 2 files changed, 17 insertions(+) diff --git a/tests/testthat/test-mergingandstackingutilities.R b/tests/testthat/test-mergingandstackingutilities.R index 11e0c10..73a7682 100644 --- 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 index 4b7aa1d..1b3e306 100644 --- 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", {