tests/testthat/test-praise_crear_refran.R

In ComunidadBioInfo/praiseMX: What the Package Does (One Line, Title Case)

context("test-praise_crear_refran")

test_that("praise_crear_refran regresa un character", {
    expect_type(praise_crear_refran(refranes = refranes_negativos),"character")
    expect_type(praise_crear_refran(refranes = refranes_positivos),"character")
  
})

test_that("praise_crear_refran regresa un vector de longitud 1", {
  expect_length(praise_crear_refran(refranes = refranes_negativos),1)

})