tests/testthat/test-day-04.R

In bodkan/adventofcode2021: Collection of solutions to Advent of Code 2021

test_file <- create_test_file("7,4,9,5,11,17,23,2,0,14,21,24,10,16,13,6,15,25,12,22,18,20,8,19,3,26,1

22 13 17 11  0
 8  2 23  4 24
21  9 14 16  7
 6 10  3 18  5
 1 12 20 15 19

 3 15  0  2 22
 9 18 13 17  5
19  8  7 25 23
20 11 10 24  4
14 21 16 12  6

14 21 17 24  4
10 16 15  9 19
18  8 23 26 20
22 11 13  6  5
 2  0 12  3  7")

test_input <- read_bingo(test_file)

test_that(test_name(day = 4, part = 1), {
  result <- solve_bingo(test_input$draws, test_input$bingos, find = "first")
  expect_true(result == 4512)
})

test_that(test_name(day = 4, part = 2), {
  result <- solve_bingo(test_input$draws, test_input$bingos, find = "last")
  expect_true(result == 1924)
})