tests/testthat/test-dataTransfer.R

In Kohze/fireData: Connecting R to Google Firebase

library("testthat")
library("fireData")

test_that("Test the Firebase upload functionality / normal objects", {
  response = fireData::upload(mtcars,"https://firedata-efa5a.firebaseio.com",directory = "test")
  expect_equal(nchar(response), 25)
})

test_that("Test the Firebase upload functionality / s4 classes", {
  setClass("testClass", slots = list(name = "character"))
  testClassObject = new("testClass", name = "testName")
  response = fireData::upload(testClassObject,"https://firedata-efa5a.firebaseio.com",directory = "test")
  expect_equal(nchar(response), 25)
})

test_that("Test the Firebase download functionality", {
  response = fireData::download("https://firedata-efa5a.firebaseio.com/directory","-KnsrqkNIDOFa993pcI9")
  expect_true(is.data.frame(response))
})

test_that("Test the Firebase download functionality / with secret key", {
  response = fireData::download("https://firedata-efa5a.firebaseio.com/directory","-KnsrqkNIDOFa993pcI9", secretKey = "2bYA6k72wKna90MqPGa6yuMG7jAysoDJZwJqYXsm")
  expect_true(is.data.frame(response))
})

test_that("Test the firebase backup functionality", {
  response = dataBackup(projectURL = "https://firedata-efa5a.firebaseio.com",
                        secretKey = "2bYA6k72wKna90MqPGa6yuMG7jAysoDJZwJqYXsm",
                        "test.json")
  expect_equal(nchar(response), 27)
  file.remove("test.json")
})