tests/testthat/test-catNomComplet.R

test_that("Concatener nom et prenom dependant du pays",{
  x <- "Touque"
  y <- "Peregrin"
  pays <- "France"
  pays2 <- "USA"
  expect_match(catNomComplet(pays,x,y),"TOUQUE Peregrin")
  expect_match(catNomComplet(pays2,x,y),"Touque Peregrin")
})
mckenna-k/FinalProject documentation built on Jan. 1, 2021, 9:23 a.m.