tests/testthat/test-library_search_nist_api.R

test_that(".ParseSrcreslt(), compare with snapshot", {
  hitlists <- .ParseSrcreslt(test_path("data/parse_srcreslt/SRCRESLT.TXT"))
  load(test_path("data/parse_srcreslt/srcreslt.rda"))
  # The file contains: 'snapshot'
  for (i in seq_along(hitlists)) {
    expect_equal(hitlists[[i]], snapshot[[i]])
  }
})

Try the mssearchr package in your browser

Any scripts or data that you put into this service are public.

mssearchr documentation built on April 3, 2025, 8:28 p.m.