Add sequence tests for check/uncheck on array named checkboxes

Since we just introduced more logic for unchecked boxes, I wanted to a
few more tests that verify that the check->uncheck and uncheck->check
sequences correctly track cumulative state.

Author: germsvel

test/phoenix_test/live_test.exs

@@ -674,6 +674,31 @@ defmodule PhoenixTest.LiveTest do
       |> assert_has("#form-data", text: "three")
     end
 
+    test "can re-check an array named checkbox after unchecking it on change", %{conn: conn} do
+      conn
+      |> visit("/live/index")
+      |> within("#array-checkbox-form", fn session ->
+        session
+        |> uncheck("One")
+        |> check("One")
+      end)
+      |> assert_has("#form-data", text: "one")
+      |> assert_has("#form-data", text: "two")
+    end
+
+    test "can re-check an array named checkbox after unchecking it on submit", %{conn: conn} do
+      conn
+      |> visit("/live/index")
+      |> within("#array-checkbox-form", fn session ->
+        session
+        |> uncheck("One")
+        |> check("One")
+        |> submit()
+      end)
+      |> assert_has("#form-data", text: "one")
+      |> assert_has("#form-data", text: "two")
+    end
+
     test "check triggers phx-change on the input if it is defined", %{conn: conn} do
       conn
       |> visit("/live/index")
@@ -817,6 +842,33 @@ defmodule PhoenixTest.LiveTest do
       |> assert_has("#form-data", text: "two")
     end
 
+    test "can uncheck an array named checkbox after checking it on change", %{conn: conn} do
+      conn
+      |> visit("/live/index")
+      |> within("#array-checkbox-form", fn session ->
+        session
+        |> check("Three")
+        |> uncheck("Three")
+      end)
+      |> refute_has("#form-data", text: "three")
+      |> assert_has("#form-data", text: "one")
+      |> assert_has("#form-data", text: "two")
+    end
+
+    test "can uncheck an array named checkbox after checking it on submit", %{conn: conn} do
+      conn
+      |> visit("/live/index")
+      |> within("#array-checkbox-form", fn session ->
+        session
+        |> check("Three")
+        |> uncheck("Three")
+        |> submit()
+      end)
+      |> refute_has("#form-data", text: "three")
+      |> assert_has("#form-data", text: "one")
+      |> assert_has("#form-data", text: "two")
+    end
+
     test "raises error if checkbox doesn't have phx-click or belong to form", %{conn: conn} do
       session = visit(conn, "/live/index")
 

test/phoenix_test/static_test.exs

@@ -558,6 +558,19 @@ defmodule PhoenixTest.StaticTest do
       |> assert_has("#form-data", text: "three")
     end
 
+    test "can re-check an array named checkbox after unchecking it", %{conn: conn} do
+      conn
+      |> visit("/page/index")
+      |> within("#array-checkbox-form", fn session ->
+        session
+        |> uncheck("One")
+        |> check("One")
+      end)
+      |> submit()
+      |> assert_has("#form-data", text: "one")
+      |> assert_has("#form-data", text: "two")
+    end
+
     test "handle checkbox name with '?'", %{conn: conn} do
       conn
       |> visit("/page/index")
@@ -640,6 +653,20 @@ defmodule PhoenixTest.StaticTest do
       |> refute_has("#form-data", text: "one")
       |> assert_has("#form-data", text: "two")
     end
+
+    test "can uncheck an array named checkbox after checking it", %{conn: conn} do
+      conn
+      |> visit("/page/index")
+      |> within("#array-checkbox-form", fn session ->
+        session
+        |> check("Three")
+        |> uncheck("Three")
+      end)
+      |> submit()
+      |> refute_has("#form-data", text: "three")
+      |> assert_has("#form-data", text: "one")
+      |> assert_has("#form-data", text: "two")
+    end
   end
 
   describe "choose/3" do