tests/testthat/test-day-01.R

In shamindras/adventofcode2017:

context("test-day-01.R")

test_that("Unit Tests Day 01", {
    testthat::expect_equal(adventofcode2017::calc_sum("1122"), 3)
    testthat::expect_equal(adventofcode2017::calc_sum("1111"), 4)
    testthat::expect_equal(adventofcode2017::calc_sum("1234"), 0)
    testthat::expect_equal(adventofcode2017::calc_sum("91212129"), 9)
})