tests/testthat/test_statements_get_statement.R

test_that("result of function", {
  expect_equal(class(statements_get_statement(
    "http://www.sejm.gov.pl/Sejm7.nsf/wypowiedz.xsp?posiedzenie=15&dzien=1&wyp=008")),
    "character")
})

test_that("length of vector", {
  expect_equal(length(statements_get_statement(
    "http://www.sejm.gov.pl/Sejm8.nsf/wypowiedz.xsp?posiedzenie=2&dzien=1&wyp=021")), 1)
})

Try the sejmRP package in your browser

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

sejmRP documentation built on May 2, 2019, 5:16 a.m.