all_bw(two.let, -Inf, Inf, bounds = "[]")

all_bw(two.let, "a", Inf, bounds = "()")

all_bw(two.let, "a", Inf, bounds = "[)")

all_bw(two.let, "a", Inf, bounds = "(]")

all_bw(two.let, "a", Inf, bounds = "[]")

all_bw(two.let, "\t", Inf, bounds = "(]")

all_bw(two.let, -Inf, "zz", bounds = "()")

`"zz"` at index 702 not in `(-Inf,"zz")`

all_bw(two.let, -Inf, "zz", bounds = "[)")

`"zz"` at index 702 not in `[-Inf,"zz")`

all_bw(two.let, -Inf, "zz", bounds = "(]")

all_bw(two.let, -Inf, "zz", bounds = "[]")

all_bw(two.let.inf, -Inf, Inf, bounds = "()")

# All true b/c Inf values coerced to character

all_bw(two.let.inf, -Inf, Inf, bounds = "[)")

all_bw(two.let.inf, -Inf, Inf, bounds = "(]")

all_bw(two.let.inf, -Inf, Inf, bounds = "[]")

all_bw(two.let.na, "a", "zz", bounds = "()")

all_bw(two.let.na, "a", "zz", bounds = "[)")

all_bw(two.let.na, "a", "zz", bounds = "(]")

all_bw(two.let.na, "a", "zz", bounds = "[]")

all_bw(two.let.na, -Inf, Inf, bounds = "[]")

[1] "`\"NA\"` at index 50 not in `[-Inf,Inf]`"

all_bw(two.let.na, "a", "zz", bounds = "()", na.rm = TRUE)

all_bw(two.let.na, "a", "zz", bounds = "[)", na.rm = TRUE)

all_bw(two.let.na, "a", "zz", bounds = "(]", na.rm = TRUE)

all_bw(two.let.na, "a", "zz", na.rm = TRUE)

all_bw(two.let.na, "b", "zy", na.rm = TRUE)

all_bw(two.let.na, -Inf, "zz", na.rm = TRUE)

all_bw(two.let.na, -Inf, "zy", na.rm = TRUE)

`"zz"` at index 702 not in `[-Inf,"zy"]`

all_bw(two.let.na, -Inf, "zzz", bounds = "[)", na.rm = TRUE)

all_bw(two.let.na, -Inf, "zz", bounds = "[)", na.rm = TRUE)

all_bw(two.let.na, "a", Inf, na.rm = TRUE)

all_bw(two.let.na, "b", Inf, na.rm = TRUE)

all_bw(two.let.na, "\t", Inf, bounds = "(]", na.rm = TRUE)

all_bw(two.let.na, "a", Inf, bounds = "(]", na.rm = TRUE)

for (i in seq_along(utf8)) Encoding(utf8[[i]]) <- "UTF-8"