tests/testthat/test-day23.R

In Selbosh/adventofcode2021: Advent of Code 2021 Solutions in R

test_that("Day 23", {
  input <- '#############
#...........#
###B#C#B#D###
  #A#D#C#A#  \n  #########  '
  example <- read_amphipod(textConnection(input))
  expect_equal(min_amphipod_energy(example), 12521)
})