tests/testthat/test_bowler_score.R

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

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

test_that("check bowler score", {
  expect_equal(bowler_score(45), "Tim Southee")
  expect_length(bowler_score(40), 4)
})

test_that("check for invalid input types", {
  expect_error(bowler_score("Rahul Sharma"), regexp = "must be a numeric vector")
})

test_that("check for when data not found", {
  expect_error(
    bowler_score(-10),
    regexp = "greater than 0"
  )
  expect_error(
    bowler_score(2000125),
    regexp = "input a lower number"
  )
})