diff --git a/tests/testthat/test-export.R b/tests/testthat/test-export.R index 1a48d1b4..7bb04d02 100644 --- a/tests/testthat/test-export.R +++ b/tests/testthat/test-export.R @@ -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() diff --git a/tests/testthat/test-navbarWidget.R b/tests/testthat/test-navbarWidget.R index dc3cb342..4e956799 100644 --- a/tests/testthat/test-navbarWidget.R +++ b/tests/testthat/test-navbarWidget.R @@ -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")