tests/testthat/test-buildConditions.R

context("buildCondition")


test_that("== operator", {
  out <- buildCondition("city", "==", "Seville" )
  expect_equal(out, "\"city\":\"Seville\"")
})

test_that("!= operator", {
  out <- buildCondition("city", "!=", "Seville" )
  expect_equal(out, "\"city\":{\"$not\":{\"$eq\":\"Seville\"}}")
})
SevillaR/HivepodR documentation built on May 9, 2019, 1:23 p.m.