# NOT RUN {
### Need internet connection
choosebank("emblTP")
mylist <- query("mylist", "t=CDS", virtual = TRUE)
stopifnot(residuecount(glr("mylist")) == 1611439240)
stopifnot(is.na(residuecount(glr("unknowlist")))) # A warning is issued
# }
Run the code above in your browser using DataLab