inherits <- function(x, y) stop("pwned!!!")

# Stress test installation of `inherits`; right now the inherits command is
# evaluated in the base environment, which seems to work since the arguments
# are already evaluated, but it suggests `inherits` can look up S4 definitions
# irrespective of where they are defined...

`Bar.1` should inherit from S4 class "Foo" from pkg:vetr (is "Bar" from pkg:vetr)

[1] "`Bar.1` should inherit from S4 class \"Foo\" from pkg:vetr (is \"Bar\" from pkg:vetr)"

# Basically ensure that stuff still recurses even if they are lists/calls
# but have another class

# "mis-match at index [[1]]: should be integer instead of character"

`var.2[[1]]` should be type "numeric" (is "character")

[1] "`var.2[[1]]` should be type \"numeric\" (is \"character\")"