Skip to content

Commit

Permalink
lint some
Browse files Browse the repository at this point in the history
  • Loading branch information
areedv committed Nov 29, 2021
1 parent 1e9af4e commit 8d67ace
Show file tree
Hide file tree
Showing 2 changed files with 1 addition and 18 deletions.
17 changes: 0 additions & 17 deletions tests/testthat/test-export.R
Original file line number Diff line number Diff line change
Expand Up @@ -90,23 +90,6 @@ test_that("module server provides sensible output", {
})
})

# test_that("export module server can provide file for downloading", {
# checkDb()
# shiny::testServer(exportUCServer, args = list(registryName = regName), {
# expect_equal(class(output$exportPidUI), "list")
# session$setInputs(exportPid = "areedv")
# expect_equal("character", class(pubkey()))
# session$setInputs(exportKey = pubkey())
# session$setInputs(exportCompress = TRUE)
# session$setInputs(exportEncrypt = 1)
# Sys.sleep(5)
# session$setInputs(exportDownload = 1)
# session$flushReact()
#
# print(input$exportDownload)
# })
# })

test_that("download is prevented when module is not eligible", {
skip("Reqires API authentication")
checkDb()
Expand Down
2 changes: 1 addition & 1 deletion tests/testthat/test-navbarWidget.R
Original file line number Diff line number Diff line change
Expand Up @@ -20,7 +20,7 @@ test_that("navbar widget input returns a shiny tag list", {
test_that("module navbar widget server returns output", {
shiny::testServer(navbarWidgetServer, args = list(
orgName = registryName,
caller ="rapbase"
caller = "rapbase"
), {
expect_equal(output$name, "Tore Tester")
expect_equal(class(output$affiliation), "character")
Expand Down

0 comments on commit 8d67ace

Please sign in to comment.