tests/testthat/test-day12.R

In tjmahr/adventofcode18: What the Package Does (One Line, Title Case)

context("test-day12")

test_that("simple padding to match test output", {
  t0 <- "...#..#.#..##......###...###..........."

  "#..#.#..##......###...###" %>%
    str_set_plant_substr() %>%
    str_pad_plant() %>%
    str_unset_plant() %>%
    expect_equal(t0)
})

test_that("applying plant rules many times", {
  rules <- read_text_lines("
  ...## => #
  ..#.. => #
  .#... => #
  .#.#. => #
  .#.## => #
  .##.. => #
  .#### => #
  #.#.# => #
  #.### => #
  ##.#. => #
  ##.## => #
  ###.. => #
  ###.# => #
  ####. => #")

  pots <- "#..#.#..##......###...###" %>%
    str_set_plant_substr()
  lookup <- parse_plant_rules(rules)

  expected <- c(
    "...#...#....#.....#..#..#..#...........",
    "...##..##...##....#..#..#..##..........",
    "..#.#...#..#.#....#..#..#...#..........",
    "...#.#..#...#.#...#..#..##..##.........",
    "....#...##...#.#..#..#...#...#.........",
    "....##.#.#....#...#..##..##..##........",
    "...#..###.#...##..#...#...#...#........",
    "...#....##.#.#.#..##..##..##..##.......",
    "...##..#..#####....#...#...#...#.......",
    "..#.#..#...#.##....##..##..##..##......",
    "...#...##...#.#...#.#...#...#...#......",
    "...##.#.#....#.#...#.#..##..##..##.....",
    "..#..###.#....#.#...#....#...#...#.....",
    "..#....##.#....#.#..##...##..##..##....",
    "..##..#..#.#....#....#..#.#...#...#....",
    ".#.#..#...#.#...##...#...#.#..##..##...",
    "..#...##...#.#.#.#...##...#....#...#...",
    "..##.#.#....#####.#.#.#...##...##..##..",
    ".#..###.#..#.#.#######.#.#.#..#.#...#..",
    ".#....##....#####...#######....#.#..##.")

  for (i in 1:20) {
    pots <- pots %>%
      apply_plant_rules(lookup)

    pots %>%
      str_pad_plant() %>%
      str_unset_plant() %>%
      expect_equal(expected[i])
  }
})

test_that("solving main puzzle", {
  rules <- read_text_lines("
  ...## => #
  ..#.. => #
  .#... => #
  .#.#. => #
  .#.## => #
  .##.. => #
  .#### => #
  #.#.# => #
  #.### => #
  ##.#. => #
  ##.## => #
  ###.. => #
  ###.# => #
  ####. => #")

  "#..#.#..##......###...###" %>%
    run_plant_rules(rules, 20) %>%
    which_pots_have_plants() %>%
    sum() %>%
    expect_equal(325)
})