tests/testthat/test-day20.R

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

test_that("Day 20", {
  input <- '..#.#..#####.#.#.#.###.##.....###.##.#..###.####..#####..#....#..#..##..###..######.###...####..#..#####..##..#.#####...##.#.#..#.##..#.#......#.###.######.###.####...#.##.##..#..#..#####.....#.#....###..#.##......#.....#..#..#..##..#...##.######.####.####.#.#...#.......#..#.#.#...####.##.#......#..#...##.#.##..#...##.#.##..###.#......#.#.......#.#.#.####.###.##...#.....####.#..#..#.##.#....##..#.####....##...##..#...#......#.#.......#.......##..####..#...#.#.#...##..#.#..###..#####........#..####......#..#

#..#.
#....
##..#
..#..
..###'
  example <- read_pixels(textConnection(input))
  expect_length(example$algorithm, 512)
  enhanced <- enhance_image(example$image, example$algorithm, 2)
  expect_equal(sum(enhanced), 35)

  enhanced50 <- enhance_image(example$image, example$algorithm, 50)
  expect_equal(sum(enhanced50), 3351)
})