tests/testthat/test-station.R

In jmastats: Download Weather Data from Japan Meteorological Agency Website

test_that("block no", {
  expect_identical(
    check_block_no(block_no = "47991"),
    "47991"
  )
  expect_warning(
    expect_identical(
      check_block_no(block_no = 0371),
      "0371"
  ))
  expect_error(
    check_block_no(999999)
  )
  expect_error(
    check_block_no(47992)
  )
  expect_error(
    check_block_no("47992")
  )
})