# Runs the tests without attempting to fully compose the result message

vetr:::eval_check(quote(logical(2L)), quote(xyz), c(TRUE, FALSE, 
    TRUE))

vetr:::eval_check(quote(logical(2L) || NULL), quote(xyz), 1:2)

vetr:::eval_check(quote(logical(2L) || NULL), quote(xyz), NULL)

vetr:::eval_check(quote(logical(2L) || NULL), quote(xyz), c(TRUE, 
    TRUE))

vetr:::eval_check(quote(matrix(integer(), nrow = 3) || NULL), 
    quote(xyz), matrix(1:21, ncol = 7))

vetr:::eval_check(quote(matrix(integer(), nrow = 3) || NULL), 
    quote(xyz), 1:21)

vetr:::eval_check(quote(matrix(integer(), nrow = 3) || vector("list", 
    2L)), quote(xyz), list("hello"))

vetr:::eval_check(quote(matrix(integer(), nrow = 3) || vector("list", 
    2L)), quote(xyz), list("hello", "goodbye"))

vetr:::eval_check(quote(matrix(integer(), nrow = 3) || list(character(1L), 
    1L)), quote(xyz), list("hello", "goodbye"))

vetr:::eval_check(quote(logical(2L) && .(all(xyz))), quote(xyz), 
    xyz)

vet/vetr usage error: found symbol `xyz` in vetting token for object with the same symbol.  Please use `.` to reference the object being checked by the vetting token (e.g. use `vet(. > 0, x)` instead of `vet(x > 0, x)`)

Error in vetr:::eval_check(quote(logical(2L) && .(all(xyz))), quote(xyz),  : 
  vet/vetr usage error: found symbol `xyz` in vetting token for object with the same symbol.  Please use `.` to reference the object being checked by the vetting token (e.g. use `vet(. > 0, x)` instead of `vet(x > 0, x)`)

vetr:::eval_check(quote(logical(2L) && .(all(.))), quote(xyz), 
    xyz)

vetr:::eval_check(quote(logical(2L) && .(!any(is.na(.)))), quote(xyz), 
    xyz)

[[1]]
[1] "`!any(is.na(xyz))` is not TRUE (FALSE)"

vetr:::eval_check(quote(character(5L) && .(all(. %in% letters[1:3]))), 
    quote(abc1), abc1)

`all(abc1 %in% letters[1:3])` is not TRUE (FALSE)

[[1]]
[1] "`all(abc1 %in% letters[1:3])` is not TRUE (FALSE)"

vetr:::eval_check(quote(character(5L) && .(all(. %in% letters[1:3]))), 
    quote(abc2), abc2)

vetr:::eval_check(quote((matrix(numeric(), ncol = 3) || matrix(integer(), 
    nrow = 10) || character(10L)) && .(length(.) < 100)), quote(mat1), 
    mat1)