tests/testthat/test-get_annotation.R

In geniusr: Tools for Working with the 'Genius' API

test_that("get_annotation returns the right output formats", {

  skip_on_cran()
  skip_if_offline()
  output <- get_annotation(annotation_id = 16511101)
  expect_is(output, "genius_annotation")
})

test_that("get_referent returns the right output formats", {

  skip_on_cran()
  skip_if_offline()
  output <- get_referent(song_id = 3039923)
  expect_is(output, "genius_referent")
})