tests/testthat/test-bowling_basics.R

In howzatR: Useful Functions for Cricket Analysis

# bowl_econ ----------------------------------------------------

test_that("bowl_econ works for overs", {
  expect_equal(bowl_econ(balls_bowled = 60, runs_conceded = 45), 4.5)
  expect_equal(bowl_econ(overs_to_balls(overs = 7.1), runs_conceded = 26, type = "overs") %>%
    round(digits = 2), 3.63)
})

test_that("bowl_econ works for sets or per hundred", {
  expect_equal(bowl_econ(balls_bowled = 30, runs_conceded = 35, type = "sets") %>%
    round(digits = 2), 5.83)
  expect_equal(bowl_econ(balls_bowled = 22, runs_conceded = 19, type = "per_100") %>%
    round(digits = 2), 86.36)
})

test_that("bowl_econ fails if type 'overs', 'sets', 'per_100' supplied",{

  expect_error(bowl_econ(balls_bowled = 22, runs_conceded = 19, type = "per_200"),
               regexp = "Type can either be overs or sets. Please Amend!")

})


# bowl_avg ----------------------------------------------------

test_that("bowl_avg works", {
  expect_equal(bowl_avg(runs_conceded = 50, wickets_taken = 6) %>%
    round(digits = 2), 8.33)
  expect_equal(bowl_avg(runs_conceded = 341, wickets_taken = 13) %>%
    round(digits = 2), 26.23)
})


# bowl_avg -----------------------------------------------------

test_that("bowl_avg works", {
  expect_equal(bowl_sr(balls_bowled = 3830, wickets_taken = 112) %>%
    round(digits = 1), 34.2)
  expect_equal(bowl_sr(balls_bowled = overs_to_balls(overs = 1651.2), wickets_taken = 243) %>%
    round(digits = 1), 40.8)
})