tests/testthat/test_squared.R

context("test fonction squared")

test_that("vecteur en sortie", {
  x <- c(2, 3, 3, 9, 5)
  res <- squared(x)
  expect_length(res, length(x))
})
PhanitSaing/Phanit documentation built on May 25, 2019, 1:20 p.m.