tests/testthat/test-evaluate.R

In ropenscilabs/microdemic: 'Microsoft Academic' API Client

context("ma_evaluate")

test_that("ma_evaluate works as expected", {
  skip_on_cran()

  vcr::use_cassette("ma_evaluate", {
    aa <- ma_evaluate(query = "Y='19'...")

    expect_is(aa, "tbl_df")
    expect_type(aa$logprob, "double")
    expect_type(aa$Id, "double")
    expect_type(aa$Ti, "character")
  }, preserve_exact_body_bytes = TRUE)
})

test_that("ma_evaluate catches errors", {
  skip_on_cran()

  vcr::use_cassette("ma_evaluate_erroring", {
    expect_error(ma_evaluate(query = "Y=..."), "Invalid integer value")
  }, preserve_exact_body_bytes = TRUE)

  vcr::use_cassette("ma_evaluate_erroring_eg2", {
    expect_error(
      ma_evaluate("And[(AW='papers',Composite(AA.AuN=='jaime vargasgonzalez'))"),
      "expected character"
    )
  }, preserve_exact_body_bytes = TRUE)
})