Day 5 (#6)

AdventOfCode2022.Test/Day5.fs

@@ -0,0 +1,46 @@
+namespace AdventOfCode2022.Test
+
+open System
+open NUnit.Framework
+open FsUnitTyped
+open AdventOfCode2022
+
+[<TestFixture>]
+module TestDay5 =
+
+    let testInput =
+        """    [D]
+[N] [C]
+[Z] [M] [P]
+ 1   2   3
+
+move 1 from 2 to 1
+move 3 from 1 to 3
+move 2 from 2 to 1
+move 1 from 1 to 2
+"""
+
+    [<Test>]
+    let ``Part 1, given`` () =
+        let lines = StringSplitEnumerator.make '\n' testInput
+        Day5.part1 lines |> shouldEqual "CMZ"
+
+    [<Test>]
+    let ``Part 1`` () =
+        let input = Assembly.readResource "Day5.txt"
+
+        let lines = StringSplitEnumerator.make '\n' input
+        Day5.part1 lines |> shouldEqual "BSDMQFLSP"
+
+
+    [<Test>]
+    let ``Part 2, given`` () =
+        let lines = StringSplitEnumerator.make '\n' testInput
+        Day5.part2 lines |> shouldEqual "MCD"
+
+    [<Test>]
+    let ``Part 2`` () =
+        let input = Assembly.readResource "Day5.txt"
+
+        let lines = StringSplitEnumerator.make '\n' input
+        Day5.part2 lines |> shouldEqual "PGSQBFLDP"