In jeksterslabds/jeksterslabRlib: Utility Functions to Organize my Personal Library

library(testthat)
library(jeksterslabRlib)
context("Test lib_isbn2googlebookid")

Set test parameters

# isbn_single <- "978-0-387-09616-2"
isbn_single <- "978-0-387-79054-1"
# googlebooksid_single <- "9Aq5k0hZLykC"
googlebooksid_single <- "zZFCAAAAQBAJ"

Single ISBN

| Variable | Description | Value | |:-----------------------|:----------------|:-------------------------| | isbn_single | ISBN | r isbn_single | | googlebooksid_single | Google Books ID | r googlebooksid_single |

Run test

isbn_single_output <- lib_isbn2googlebooksid(isbn = isbn_single, par = FALSE)
googlebooksid_single_output <- isbn_single_output[1, "google"]

Results

Single ISBN

| Item | Parameter | Result | |:----------------|:-------------------------|:--------------------------------| | Google Books ID | r googlebooksid_single | r googlebooksid_single_output |

test_that("the output of lib_isbn2googlebooksid is accurate", {
  expect_equivalent(
    googlebooksid_single,
    googlebooksid_single_output
  )
})

jeksterslabds/jeksterslabRlib documentation built on Jan. 19, 2021, 11:04 a.m.