tests/testthat/test_fours.R

In Swaha294/ipl: Data and functions for analysing IPL matches played in 2008-2020

library(dplyr)
library(testthat)

test_that("check fours", {
  expect_length(fours("SK Raina", 2012), 3)
})

test_that("check for invalid input types", {
  expect_error(
    fours(00),
    regexp = "be a character"
  )
})

test_that("check for when data not found", {
  expect_error(
    fours("Suresh"),
    regexp = "Invalid player name"
  )
})