tests/testthat/test-all.R

In rworkflow/RcwlCloud: CWL client for Seven Bridges platform APIs

test_that("multiplication works", {
  expect_equal(2 * 2, 4)
})

## a <- auth("")
## f <- get_file("609aa54cc025cb37c0ca8487")
## fs <- list_folder("60a47e34f9494d11baee6028")

## app1 <- get_app("qiang_hu/test-hg38", "strelka2")
## inputList <- list(tbam = list(id = "609aa54cc025cb37c0ca8487"),
##                   nbam = list(id = "609aa4f979628f33fbf804b7"),
##                   ref = list(id = "60a3326b7250b00e33f0bc09"),
##                   region = list(id = "60a4567df9494d11baee5fba"),
##                   exome = FALSE)
## tsk <- new_task("qiang_hu/test-hg38", "strelka2", inputList)
## run_task(tsk)