tests/testthat/test-MongoDB.R

In l-gorman/rhomis-R-package: Essential Processes for RHoMIS Data

library(testthat)
library(tibble)
library(mongolite)

testthat::test_that("can convert from data fram to json", {
    sample_data_frame <- tibble::as_tibble(list("original_spelling"=c("benana","maz","wetermalon","cokonut"),
    "standardised_spelling"=c("benana",NA,"wetermalon","cokonut")))
    actual_result <- data_frame_to_json(sample_data_frame)
    expected_result <- '[{"original_spelling":"benana","standardised_spelling":"benana"},{"original_spelling":"maz","standardised_spelling":null},{"original_spelling":"wetermalon","standardised_spelling":"wetermalon"},{"original_spelling":"cokonut","standardised_spelling":"cokonut"}]'

    expect_equal(actual_result, expected_result)
    })


testthat::test_that("Can connect to a mongodb",{

    # Testing that an error is not thrown
    if (.Platform$OS.type!="windows"){
    testthat::expect_error(connect_to_db(collection="test_collection",
                                         database="test",
                                         url="mongodb://localhost"), NA)
    }

})