tests/testthat/test-day25.R

test_that("Day 25", {
  input <- 'v...>>.vv>
.vv>>.vv..
>>.>v>...v
>>v>>.>.v.
v>v.vv.v..
>.>>..v...
.vv..>.>v.
v.v..>>v.v
....v..v.>'
  example <- read.matrix(textConnection(input))
  expect_equal(move_cucumbers(example), 58)
})
Selbosh/adventofcode2021 documentation built on Jan. 1, 2022, 7:20 p.m.