Files
Patrick Stevens 7b966eaa18 Day 14 (#23)
2022-12-14 19:36:38 +00:00

34 lines
810 B
Forth

namespace AdventOfCode2022.Test
open NUnit.Framework
open FsUnitTyped
open AdventOfCode2022
[<TestFixture>]
module TestDay14 =
let input =
"""498,4 -> 498,6 -> 496,6
503,4 -> 502,4 -> 502,9 -> 494,9
"""
[<Test>]
let ``Part 1, given`` () =
Day14.part1 (StringSplitEnumerator.make '\n' input) |> shouldEqual 24
[<Test>]
let ``Part 1`` () =
let input = Assembly.readResource "Day14.txt"
Day14.part1 (StringSplitEnumerator.make '\n' input) |> shouldEqual 768
[<Test>]
let ``Part 2, given`` () =
Day14.part2 (StringSplitEnumerator.make '\n' input) |> shouldEqual 93
[<Test>]
let ``Part 2`` () =
let input = Assembly.readResource "Day14.txt"
Day14.part2 (StringSplitEnumerator.make '\n' input) |> shouldEqual 26686