tests/testthat/test-funcoes.R

test_that("encontrar_pior_ano_time funciona", {

  expect_equal(encontrar_pior_ano_time("Flamengo"),
               dplyr::tibble(temporada=2010,
                      time="Flamengo",
                      n_vitorias=9))

  expect_type(encontrar_pior_ano_time("Flamengo"),"list")
})
s4muelsilv4/meupacote1 documentation built on Dec. 22, 2021, 9:11 p.m.