tests/testthat/test_search_songs.R

context("songs.R")

N <- 5

test_that(
  "search_song() output is the specified length", {
    expected <- N
    get <- search_song("Layla", access_token=Sys.getenv("GENIUS_SECRET"), n_per_page=5)
    actual <- nrow(get)
    expect_equal(actual, expected)
})
tylercroberts/rGenius documentation built on May 17, 2019, 8:46 p.m.