tests/testthat/comprobar.R

context("comprobar la extension del archivo a cargar")

test_that("Probando a comprobar()", {
  expect_that(comprobar(".csv", "VIH.csv"), equals(TRUE))
  expect_that(comprobar(".csv", "VIH.pdf"), equals(FALSE))
  
})
skca91/HIVmlm documentation built on May 24, 2019, 2:53 p.m.