tests/testthat/test-alm_ids.R

In ropensci/alm: R Client for the Lagotto Altmetrics Platform

# tests for alm fxn in alm
context("alm")

dat <- alm_ids(doi="10.1371/journal.pone.0029797")
dat2 <- alm_ids(doi='10.1371/journal.pone.0029797', info='detail')
dat3 <- alm_ids(doi='10.1371/journal.pone.0035869', total_details=TRUE)
dat4 <- alm_ids(doi='10.1371/journal.pone.0036240', sum_metrics='day')

test_that("alm returns the correct class", {
	expect_that(dat, is_a("list"))
	expect_that(dat$meta, is_a("data.frame"))
	expect_that(dat$data, is_a("data.frame"))
	expect_that(dat2, is_a("list"))
	expect_that(dat2$data$signposts, is_a("data.frame"))
	expect_that(dat3, is_a("list"))
	expect_that(dat3$data, is_a("data.frame"))
	expect_that(dat4, is_a("list"))
})