tests/testthat/test_func.R

library(pacote1)

context('testando a funcao func')

teste_unitario <- func(mtcars, sd)

test_that('retorna a estrutura adequada', {

  # class
  expect_is(teste_unitario, 'numeric')

  # names
  expect_equal(names(teste_unitario), names(mtcars))
})
Reckziegel/pacote documentation built on July 1, 2019, 12:18 a.m.