## test QueryResult object
##
## Author: J. Christopher Bare <chris.bare@sagebase.org>
###############################################################################
unitTestQueryResult_LimitAndOffset <- function() {
qr <- synapseClient:::QueryResult$new('select * from dataset limit 123 offset 456', blockSize=78)
checkEquals(qr$limit, 123)
checkEquals(qr$offset, 456)
checkEquals(qr$blockSize, 78)
checkEquals(qr$queryStatement, 'select * from dataset')
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.