tests/testthat/test-eq_location_clean.R

noaa_raw <- eq_noaa_example()

test_that("location string is cleaned properly", {
    expect_snapshot_value(eq_location_clean(noaa_raw[1:5, "Location Name"]),
                          style = "serialize")
})
philippB-on-git/noaa documentation built on Dec. 22, 2021, 7:49 a.m.