[1] "`obj.obj.f` should have attribute \"a\""

obj.tpl.g <- structure(integer(), a = integer())

obj.obj.g <- structure(matrix(1:3), z = integer(), class = "foo")

[1] "`obj.obj.g` should have attribute \"a\""

obj.obj.h <- structure(1:3, a = integer())

`obj.obj.h` should be "matrix" (is "integer")

[1] "`obj.obj.h` should be \"matrix\" (is \"integer\")"

alike(obj.tpl.h, obj.obj.h, settings = vetr_settings(attr.mode = 2))

[1] "`obj.obj.h` should have attribute \"dim\""

obj.tpl.i <- structure(character(), a = integer(), class = "boo")

`obj.obj.i` should be class "boo" (is "integer")

[1] "`obj.obj.i` should be class \"boo\" (is \"integer\")"

alike(obj.tpl.k, obj.obj.k, settings = vetr_settings(attr.mode = 2))

`obj.obj.k` should not have attribute "dim"

[1] "`obj.obj.k` should not have attribute \"dim\""