context("hasAttributes")
test_that("hasAttributes", {
x = 1:10
attribute.names = c("size", "importance")
expect_false(hasAttributes(x, attribute.names))
attr(x, "size") = length(x)
expect_false(hasAttributes(x, attribute.names))
attr(x, "importance") = "very important"
expect_true(hasAttributes(x, attribute.names))
})
Generated by dwww version 1.15 on Tue Jun 25 08:22:13 CEST 2024.