tests/testthat/test_overs.R

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

library(tibble)
library(dplyr)
library(testthat)

test_that("check overs", {
  expect_equal(154.4, overs("Rahul Sharma"))
  expect_equal(163.3, overs("Siddarth Kaul"))
})

test_that("check for invalid input types", {
  expect_error(overs(400), regexp = "must be a character")
  expect_error(overs(41), regexp = "must be a character")
})

test_that("check for when data not found", {
  expect_error(
    overs("Sharma"),
    regexp = "input another name"
  )
  expect_error(
    overs("Rahul"),
    regexp = "input another name"
  )
})