Merge pull request #89 from jkeirstead/tests

Additional tests

DESCRIPTION

@@ -35,5 +35,5 @@ Suggests:
     roxygen2,
     testthat (>= 2.1.0)
 VignetteBuilder: knitr
-RoxygenNote: 7.1.0
+RoxygenNote: 7.1.1
 Encoding: UTF-8

tests/testthat/test-scholar.R

@@ -24,6 +24,27 @@ test_that("get_complete_authors works (vector)", {
   result = get_complete_authors(id, pubs$pubid[1:2])
   expect_equal(length(result), 2)
 })
+
+test_that("get_citation_history works", {
+    skip_on_cran()
+    skip_if_offline()
+    expect_is(h <- get_citation_history("xJaxiEEAAAAJ"), 'data.frame')
+    expect_equal(names(h), c("year", "cites"))
+})
+
+test_that("get_profile works", {
+    skip_on_cran()
+    skip_if_offline()
+    id <- 'xJaxiEEAAAAJ'
+    authorlist <- scholar::get_publications(id)$author
+    author <- scholar::get_profile(id)$name
+    author_position(authorlist, author)
+
+    expect_is(h <- get_citation_history("xJaxiEEAAAAJ"), 'data.frame')
+    expect_equal(names(h), c("year", "cites"))
+})
+
+
 # Here we could add tests that use cached data
 # context("scholar tests - offline")