# Utils Test
context("utils.R")
test_that("utf8_to_html() returns the correct string", {
expect_match(utf8_to_html("éèàÀ"), "%C3%A9%C3%A8%C3%A0%C3%80")
})
test_that("get_field() returns NaN when passed NULL", {
expect_true(is.nan(get_field(NULL)))
})
test_that(".fetch_engine correctly recognizes 0 length input", {
expect_error(get_songs(song_ids=c(), access_token=Sys.getenv("GENIUS_SECRET")), "No Results!")
})
# Note: `.get_payload()` put through its paces
# by the functions in `R/artist.R` and `R/songs.R`.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.