From 2186d69d2ad7efc042662c70c624a85d6a22e7cd Mon Sep 17 00:00:00 2001
From: Brian Hicks <brian@brianthicks.com>
Date: Fri, 21 Feb 2020 06:07:07 -0600
Subject: [PATCH] check rotate and windows

---
 tests/GridTests.elm | 36 +++++++++++++++++++++++++++++++++---
 1 file changed, 33 insertions(+), 3 deletions(-)

diff --git a/tests/GridTests.elm b/tests/GridTests.elm
index 6c4b8d0..3e477ef 100644
--- a/tests/GridTests.elm
+++ b/tests/GridTests.elm
@@ -71,9 +71,6 @@ compatibilityTest =
         [ fuzz2 (Fuzz.intRange 0 2) (Fuzz.intRange 0 2) "initialize" <|
             \rows columns ->
                 let
-                    initter =
-                        \{ row, column } -> ( row, column )
-
                     expected =
                         SlowGrid.toArrays (SlowGrid.initialize { rows = rows, columns = columns } identity)
 
@@ -81,6 +78,39 @@ compatibilityTest =
                         Grid.toArrays (Grid.initialize { rows = rows, columns = columns } identity)
                 in
                 Expect.equal expected actual
+        , fuzz2 (Fuzz.intRange 0 2) (Fuzz.intRange 0 2) "rotate" <|
+            \rows columns ->
+                let
+                    expected =
+                        SlowGrid.initialize { rows = rows, columns = columns } identity
+                            |> SlowGrid.rotate
+                            |> SlowGrid.toArrays
+
+                    actual =
+                        Grid.initialize { rows = rows, columns = columns } identity
+                            |> Grid.rotate
+                            |> Grid.toArrays
+                in
+                Expect.equal expected actual
+        , fuzz2 (Fuzz.intRange 0 4) (Fuzz.intRange 0 4) "windows" <|
+            \rows columns ->
+                let
+                    windowSize =
+                        { width = columns // 2, height = rows // 2 }
+
+                    expected =
+                        SlowGrid.initialize { rows = rows, columns = columns } identity
+                            |> SlowGrid.windows windowSize
+                            |> SlowGrid.map SlowGrid.toArrays
+                            |> SlowGrid.toArrays
+
+                    actual =
+                        Grid.initialize { rows = rows, columns = columns } identity
+                            |> Grid.windows windowSize
+                            |> Grid.map Grid.toArrays
+                            |> Grid.toArrays
+                in
+                Expect.equal expected actual
         ]