# NOT RUN {
tstFn <- function(x)missing0(x)
# missing
# }
# NOT RUN {
all.equal(tstFn(), TRUE)
# }
# NOT RUN {
# length 0
# }
# NOT RUN {
all.equal(tstFn(logical()), TRUE)
# }
# NOT RUN {
# supplied
# }
# NOT RUN {
all.equal(tstFn(1), FALSE)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab