Merge pull request #78 from boydm/boyd

Add missing tests

Author: boydm

lib/scenic/view_port/input.ex

@@ -192,45 +192,45 @@ defmodule Scenic.ViewPort.Input do
 
   # --------------------------------------------------------
   # cursor_enter is only sent to the root graph_key
-  defp do_handle_captured_input(
-         {:cursor_enter, global_pos} = input,
-         context,
-         %{max_depth: max_depth} = state
-       ) do
-    {uid, id, point} = find_by_captured_point(global_pos, context, max_depth)
-
-    Scene.cast(
-      context.graph_key,
-      {
-        :input,
-        {:cursor_enter, point},
-        %{context | uid: uid, id: id, raw_input: input}
-      }
-    )
+  # defp do_handle_captured_input(
+  #        {:cursor_enter, global_pos} = input,
+  #        context,
+  #        %{max_depth: max_depth} = state
+  #      ) do
+  #   {uid, id, point} = find_by_captured_point(global_pos, context, max_depth)
+
+  #   Scene.cast(
+  #     context.graph_key,
+  #     {
+  #       :input,
+  #       {:cursor_enter, point},
+  #       %{context | uid: uid, id: id, raw_input: input}
+  #     }
+  #   )
 
-    {:noreply, state}
-  end
-
-  # --------------------------------------------------------
-  # cursor_exit is only sent to the root graph_key
-  defp do_handle_captured_input(
-         {:cursor_exit, global_pos} = input,
-         context,
-         %{max_depth: max_depth} = state
-       ) do
-    {uid, id, point} = find_by_captured_point(global_pos, context, max_depth)
+  #   {:noreply, state}
+  # end
 
-    Scene.cast(
-      context.graph_key,
-      {
-        :input,
-        {:cursor_enter, point},
-        %{context | uid: uid, id: id, raw_input: input}
-      }
-    )
+  # # --------------------------------------------------------
+  # # cursor_exit is only sent to the root graph_key
+  # defp do_handle_captured_input(
+  #        {:cursor_exit, global_pos} = input,
+  #        context,
+  #        %{max_depth: max_depth} = state
+  #      ) do
+  #   {uid, id, point} = find_by_captured_point(global_pos, context, max_depth)
+
+  #   Scene.cast(
+  #     context.graph_key,
+  #     {
+  #       :input,
+  #       {:cursor_enter, point},
+  #       %{context | uid: uid, id: id, raw_input: input}
+  #     }
+  #   )
 
-    {:noreply, state}
-  end
+  #   {:noreply, state}
+  # end
 
   # --------------------------------------------------------
   # cursor_enter is only sent to the root graph_key

test/scenic/component/input/slider_test.exs

@@ -79,7 +79,7 @@ defmodule Scenic.Component.Input.SliderTest do
   # ============================================================================
   # handle_input
 
-  test "handle_input {:cursor_button, :press" do
+  test "handle_input {:cursor_button, :press - integer" do
     self = self()
     context = %ViewPort.Context{viewport: self}
     Process.put(:parent_pid, self)
@@ -102,6 +102,110 @@ defmodule Scenic.Component.Input.SliderTest do
     assert_receive({:"$gen_cast", {:event, {:value_changed, :test_id, 34}, ^self}})
   end
 
+  test "handle_input {:cursor_button, :press - float" do
+    self = self()
+    context = %ViewPort.Context{viewport: self}
+    Process.put(:parent_pid, self)
+
+    orig_value = 2.0
+    extents = {0.0, 100.0}
+    state = %{@state | value: orig_value, extents: extents}
+
+    {:noreply, state} =
+      Slider.handle_input({:cursor_button, {:left, :press, nil, {103, 0}}}, context, %{
+        state
+        | tracking: false
+      })
+
+    assert state.tracking
+    assert state.value != orig_value
+
+    # confirm the input was captured
+    assert_receive({:"$gen_cast", {:capture_input, ^context, [:cursor_button, :cursor_pos]}})
+    # confirm the graph was pushed
+    assert_receive({:"$gen_cast", {:push_graph, _, _, _}})
+
+    # confirm the value change was sent
+    assert_receive({:"$gen_cast", {:event, {:value_changed, :test_id, pos}, ^self}})
+    assert pos > 34
+    assert pos < 35
+  end
+
+  test "handle_input {:cursor_button, :press - list" do
+    self = self()
+    context = %ViewPort.Context{viewport: self}
+    Process.put(:parent_pid, self)
+
+    orig_value = :yellow
+    extents = [:red, :yellow, :purple, :blue, :orange]
+    state = %{@state | value: orig_value, extents: extents}
+
+    {:noreply, state} =
+      Slider.handle_input({:cursor_button, {:left, :press, nil, {203, 0}}}, context, %{
+        state
+        | tracking: false
+      })
+
+    assert state.tracking
+    assert state.value != orig_value
+
+    # confirm the input was captured
+    assert_receive({:"$gen_cast", {:capture_input, ^context, [:cursor_button, :cursor_pos]}})
+    # confirm the graph was pushed
+    assert_receive({:"$gen_cast", {:push_graph, _, _, _}})
+
+    # confirm the value change was sent
+    assert_receive({:"$gen_cast", {:event, {:value_changed, :test_id, :blue}, ^self}})
+
+    # below min
+    {:noreply, _} =
+      Slider.handle_input({:cursor_button, {:left, :press, nil, {-203, 0}}}, context, %{
+        state
+        | tracking: false
+      })
+
+    assert_receive({:"$gen_cast", {:event, {:value_changed, :test_id, :red}, ^self}})
+
+    # above max
+    {:noreply, _} =
+      Slider.handle_input({:cursor_button, {:left, :press, nil, {1203, 0}}}, context, %{
+        state
+        | tracking: false
+      })
+
+    assert_receive({:"$gen_cast", {:event, {:value_changed, :test_id, :orange}, ^self}})
+  end
+
+  test "handle_input {:cursor_button, :press, far left" do
+    self = self()
+    context = %ViewPort.Context{viewport: self}
+    Process.put(:parent_pid, self)
+
+    {:noreply, state} =
+      Slider.handle_input({:cursor_button, {:left, :press, nil, {-103, 0}}}, context, %{
+        @state
+        | tracking: false
+      })
+
+    assert state.tracking
+    assert state.value == 0
+  end
+
+  test "handle_input {:cursor_button, :press, far right" do
+    self = self()
+    context = %ViewPort.Context{viewport: self}
+    Process.put(:parent_pid, self)
+
+    {:noreply, state} =
+      Slider.handle_input({:cursor_button, {:left, :press, nil, {1003, 0}}}, context, %{
+        @state
+        | tracking: false
+      })
+
+    assert state.tracking
+    assert state.value == 100
+  end
+
   test "handle_input {:cursor_button, :release" do
     self = self()
     context = %ViewPort.Context{viewport: self}

test/scenic/view_port/input_test.exs

@@ -731,4 +731,25 @@ defmodule Scenic.ViewPort.InputTest do
     assert_received({:"$gen_cast", {:input, {:cursor_exit, 1}, _}})
     refute_received({:"$gen_cast", {:input, {:cursor_enter, _}, _}})
   end
+
+  # ============================================================================
+  # continue input
+
+  test "continue_input codepoint", %{graph_key: graph_key, master_graph_key: master_graph_key} do
+    {:noreply, _} =
+      Input.handle_cast(
+        {:continue_input, {:codepoint, :codepoint_input}},
+        %{
+          master_graph_key: master_graph_key,
+          root_graph_key: graph_key,
+          input_captures: %{}
+        }
+      )
+
+    assert_received({:"$gen_cast", {:input, {:codepoint, :codepoint_input}, context}})
+    assert context.graph_key == graph_key
+    assert context.id == nil
+    assert context.uid == nil
+    assert context.viewport == self()
+  end
 end