✅ add test for EpiPox and EpiRSV login

Wytamma · Apr 28, 2023 · f526f67 · f526f67
1 parent b6b8443
commit f526f67
Showing 1 changed file with 15 additions and 0 deletions.
diff --git a/tests/testthat/test-login.R b/tests/testthat/test-login.R
@@ -12,3 +12,18 @@ test_that("invalid login fails", {
   expect_error(login(username = username, password = password),
                "Username or password wrong!")
 })
+
+test_that("EpiPox login works", {
+  username = Sys.getenv("GISAIDR_USERNAME")
+  password = Sys.getenv("GISAIDR_PASSWORD")
+  credentials <- login(username = username, password = password, database="EpiPox")
+  expect_true(is.list(credentials))
+})
+
+
+test_that("EpiRSV login works", {
+  username = Sys.getenv("GISAIDR_USERNAME")
+  password = Sys.getenv("GISAIDR_PASSWORD")
+  credentials <- login(username = username, password = password, database="EpiRSV")
+  expect_true(is.list(credentials))
+})