vet(INT.1 || NULL || character(3L), letters)

- `letters` should be `NULL`, or type "integer-like" (is "character")

[1] "At least one of these should pass:"                                         
[2] "  - `length(letters)` should be 3 (is 26)"                                  
[3] "  - `letters` should be `NULL`, or type \"integer-like\" (is \"character\")"

vet((matrix(integer(), 0) && nrow(.) == ncol(.)) || NULL, matrix(1:16, 
    nrow = 4))

vet((matrix(integer(), 0) && nrow(.) == ncol(.)) || NULL, matrix(1:16, 
    nrow = 2))

At least one of these should pass:
- `matrix(1:16, nrow = 2)` should be `NULL` (is "integer")
- `nrow(matrix(1:16, nrow = 2)) == ncol(matrix(1:16, nrow = 2))` is not TRUE (FALSE)

[1] "At least one of these should pass:"                                                    
[2] "  - `matrix(1:16, nrow = 2)` should be `NULL` (is \"integer\")"                        
[3] "  - `nrow(matrix(1:16, nrow = 2)) == ncol(matrix(1:16, nrow = 2))` is not TRUE (FALSE)"

vet((matrix(integer(), 0) && nrow(.) == ncol(.)) || NULL, matrix(runif(16), 
    nrow = 4))

`matrix(runif(16), nrow = 4)` should be `NULL`, or type "integer-like" (is "double")

[1] "`matrix(runif(16), nrow = 4)` should be `NULL`, or type \"integer-like\" (is \"double\")"

# custom expression partially defined in parent env

local({
    exp.a <- quote(all(. < 0))
    vet(exp.a, -(1:3))
})

# some testing of nesting, this could conflict with prior exp.a
# if not done properly

# Duplicate expressions should get collapsed in error message

- `1:3` should be type "character" (is "integer")

[1] "At least one of these should pass:"                     
[2] "  - `1:3` should be type \"character\" (is \"integer\")"
[3] "  - `length(1:3)` should be 1 (is 3)"

vet(INT.1 || NULL || LGL, "hello", format = "text")

`"hello"` should be `NULL`, type "integer-like", or type "logical" (is "character")

[1] "`\"hello\"` should be `NULL`, type \"integer-like\", or type \"logical\" (is \"character\")"

vet(INT.1 || NULL || LGL, "hello", format = "raw")