tests/testthat/test_sixes.R

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

library(dplyr)
library(testthat)

test_that("check sixes", {
  expect_length(sixes("RG Sharma", 2016), 3)
})

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

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