tests/testthat/test_filing_information.R

In mwaldstein/edgarWebR: SEC Filings Access

context("running filing_information")

with_mock_api({
  test_that("Basics (type 4)", {
    href <- "https://www.sec.gov/Archives/edgar/data/1333712/000156218017002633/0001562180-17-002633-index.htm"
    res <- filing_information(href)
    expect_is(res, "data.frame")
    expect_length(res, 10)
    expect_equal(nrow(res), 1)

    expect_equal(res$type, "4")
    expect_equal(res$description, "Statement of changes in beneficial ownership of securities:")
    expect_equal(res$accession_number, "0001562180-17-002633")
    expect_equal(res$documents, 1)
    expect_equal(res$bytes, 5803)

    expect_is(res$filing_date, "POSIXct")
    expect_equal(res$filing_date, as.POSIXct("2017-08-09"))
    expect_is(res$accepted_date, "POSIXct")
    expect_equal(res$accepted_date, as.POSIXct("2017-08-09 15:24:40"))
    expect_is(res$period_date, "POSIXct")
    expect_equal(res$period_date, as.POSIXct("2017-08-08"))

    expect_true(is.na(res$effective_date))
  })
})