inst/tinytest/test-all.equal.R

In xts: eXtensible Time Series

# ensure xts objects with index attributes attached are equal to
# xts objects with index attributes on the index only
info_msg <- "test.attr_on_object_equal_to_attr_on_index"
attrOnObj <-
  structure(1:3, index = structure(1:3, tzone = "UTC", tclass = "Date"),
            class = c("xts", "zoo"), dim = c(3L, 1L),
            .indexCLASS = "Date", .indexTZ = "UTC",
            tclass = "Date", tzone = "UTC",
            dimnames = list(NULL, "x"))
attrOnIndex <-
  structure(1:3, index = structure(1:3, tzone = "UTC", tclass = "Date"),
            class = c("xts", "zoo"), dim = c(3L, 1L),
            dimnames = list(NULL, "x"))
expect_equal(target = attrOnIndex,
             current = attrOnObj,
             info = info_msg)