tests/testthat/test_scopus.R

In jessicatytam/specieshindex: How (scientifically) popular is a given species?

#string construction
test_that("string construction", {  
  expect_type(specieshindex:::create_query_string_T_scopus("Bettongia"),
              "character")
  expect_type(specieshindex:::create_query_string_T_scopus("Bettongia",
                                                           synonyms = "Woylie"),
              "character")
  expect_type(specieshindex:::create_query_string_T_scopus("Bettongia",
                                                           additionalkeywords = "cons"),
              "character")
  expect_type(specieshindex:::create_query_string_T_scopus("Bettongia",
                                                           additionalkeywords = "cons",
                                                           synonyms = "Woylie"),
              "character")
  expect_type(specieshindex:::create_query_string_TAK_scopus("Bettongia"),
              "character")
  expect_type(specieshindex:::create_query_string_TAK_scopus("Bettongia",
                                                             synonyms = "Woylie"),
              "character")
  expect_type(specieshindex:::create_query_string_TAK_scopus("Bettongia",
                                                             additionalkeywords = "cons"),
              "character")
  expect_type(specieshindex:::create_query_string_TAK_scopus("Bettongia",
                                                             additionalkeywords = "cons",
                                                             synonyms = "Woylie"),
              "character")
  expect_type(create_query_string_T_scopus("genus","species",c("syn1","syn2")),"character")
  expect_type(create_query_string_TAK_scopus("genus","species",c("syn1","syn2")),"character")
})

#Count()
with_mock_api({
  test_that("scopus count requests", {
    expect_GET(specieshindex:::Count_scopus(search = "t",
                                            genus = "Bettongia"),
               "http://api.elsevier.com/content/search/scopus")
    expect_GET(specieshindex:::Count_scopus(search = "tak",
                                            genus = "Bettongia"),
               "http://api.elsevier.com/content/search/scopus")
    # expect_type(specieshindex:::Count_scopus(search = "t",
    #                                          genus = "Bettongia"),
    #             "numeric")
  })
})

with_mock_api({
  test_that("scopus count errors", {
    # expect_error(specieshindex:::Count_scopus(genus = "Bettongia"))
    # expect_error(specieshindex:::Count_scopus(search = " ",
    #                                           genus = "Bettongia"),
    #              'Set search = "t" for title-only searches, or "tak" for searches in the title, abstract, or keywords.')
  })
})


#Fetch()
with_mock_api({
  test_that("fetch scopus works", {
    expect_GET(specieshindex:::FetchT_scopus(genus = "Bettongia"),
               "http://api.elsevier.com/content/search/scopus?query=TITLE%28%22Bettongia%20%22%29&httpAccept=application%2Fxml")
    expect_GET(specieshindex:::FetchT_scopus(genus = "Bettongia",
                                             language = 1),
               "http://api.elsevier.com/content/search/scopus?query=TITLE%28%22Bettongia%20%22%29&httpAccept=application%2Fxml")
    expect_GET(specieshindex:::FetchTAK_scopus(genus = "Bettongia"),
               "http://api.elsevier.com/content/search/scopus?query=TITLE-ABS-KEY%28%22Bettongia%20%22%29&httpAccept=application%2Fxml")
    expect_GET(specieshindex:::FetchTAK_scopus(genus = "Bettongia",
                                               language = 1),
               "http://api.elsevier.com/content/search/scopus?query=TITLE-ABS-KEY%28%22Bettongia%20%22%29&httpAccept=application%2Fxml")
  })
})

with_mock_api({
  #test_that("scopus query working", {
  #  Elsevier_API<-"not_a_real_key"
   # expect_GET(specieshindex:::scopus_request_t(request = '" AND PUBYEAR > 2019"', api_key = Elsevier_API),
    #           "https://api.elsevier.com/content/search/scopus?query=TITLE%28%28%22%20%22%20OR%20%22%22%29%20AND%2")
    #expect_GET(specieshindex:::scopus_request_tak(request = '" AND PUBYEAR > 2019"', api_key = Elsevier_API),
    #           "https://api.elsevier.com/content/search/scopus?query=TITLE-ABS-KEY%28%28%22%20%22%20OR%20%22%22%29%20AND%20%29%22%20AND%20PUBYEAR%20%3E%202019%22&APIKey=442b9048417ef20cf680a0ae26ee4d86&count=200&start=0&view=STANDARD")
  #})
})



#TITLE ONLY
t_scopus <- httr::GET("http://api.elsevier.com/content/search/scopus-ccc9dc")
data(Woylie)

with_mock_api({ #pass
  test_that("t_count_scopus_requests_happen", {
    expect_s3_class(t_scopus, "response")
    expect_true(class(t_scopus$status_code)=="integer")
  })
})

#test_that("CountSpT_scopus_works", { #Error: XML content does not seem to be XML: 'ot exist."}}'
  #response_data <- XML::xmlParse(t_scopus) #parse the data to extract values
  #resultCount <- as.numeric(XML::xpathSApply(t_scopus,"//opensearch:totalResults", XML::xmlValue))
  #expect_equal(CountSpT("scopus", "Bettongia", "penicillata"), resultCount)
  #expect_identical(CountSpT("scopus", "Bettongia", "penicillata"), CountSpT_scopus("Bettongia", "penicillata"))
#})

#fromJSON((rawToChar(t_scopus$content)))

with_mock_api({
  test_that("FetchT_scopus_works", {
    expect_s3_class(Woylie, "data.frame")
    # expect_equal(specieshindex:::FetchT_scopus("Bettongia", "penicillata"), Woylie) #nope
    # expect_identical(FetchSpT("scopus", "Bettongia", "penicillata"), FetchSpT_scopus("Bettongia", "penicillata")) #nope
  })
})

test_that("FetchT_scopus_works", {
  expect_s3_class(Woylie, "data.frame")
  # expect_equal(FetchSpT("scopus", "Bettongia", "penicillata"), Woylie) #nope
  # expect_identical(FetchSpT("scopus", "Bettongia", "penicillata"), FetchSpT_scopus("Bettongia", "penicillata")) #nope
})


#TITLE + ABSTRACT + KEYWORDS
tak_scopus <- httr::GET("http://api.elsevier.com/content/search/scopus-97ddc6")

with_mock_api({ #pass
  test_that("tak_count_scopus_requests_happen", {
    expect_s3_class(tak_scopus, "response")
    expect_true(class(tak_scopus$status_code)=="integer")
  })
})

# test_that("CountSpT_scopus_works", {
#   # response_data <- XML::xmlParse(tak_scopus) #parse the data to extract values
#   # resultCount <- as.numeric(XML::xpathSApply(response_data,"//opensearch:totalResults", XML::xmlValue))
#   resultCount <- jsonlite::fromJSON(rawToChar(tak_scopus$content))
#   expect_equal(CountSpTAK("scopus", "Bettongia", "penicillata"), resultCount)
#   expect_identical(CountSpTAK("scopus", "Bettongia", "penicillata"), CountSpTAK_scopus("Bettongia", "penicillata"))
# })