Nothing
##
## Author: Chris Bielow
##
test_that("validateFromFile = function(filepath, verbose = TRUE)", {
fp = system.file("testdata/test.mzQC", package="rmzqc")
fp
expect_true(validateFromFile(fp))
})
test_that("validateFromString = function(JSON_string, verbose = TRUE)", {
mzQC_strings = readLines(system.file("testdata/test.mzQC", package="rmzqc"))
res = validateFromString(mzQC_strings)
expect_true(res)
## truncated content
expect_error(validateFromString(substr(mzQC_strings, 1, 100)))
})
test_that("validateFromObj = function(mzqc_root, verbose = TRUE)", {
root = readMZQC(system.file("testdata/test.mzQC", package="rmzqc"))
res = validateFromObj(root)
expect_true(res)
## make it invalid (this even triggers during conversion to JSON, not even reaching the validator)
r2 = root
r2$runQualities[[1]]$metadata$inputFiles[[1]]$location = "/invalid/uri"
expect_error(validateFromObj(r2))
## make it invalid (this even triggers during conversion to JSON, not even reaching the validator)
root$runQualities = list()
root$setQualities = list()
expect_error(validateFromObj(root))
## not an mzQC root object
expect_error(validateFromObj(MzQCanalysisSoftware$new()))
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.