fill in missing tests

Author: boydm

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,78 @@ 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}

test/scenic/view_port/input_test.exs

@@ -731,4 +731,26 @@ defmodule Scenic.ViewPort.InputTest do
     assert_received({:"$gen_cast", {:input, {:cursor_exit, 1}, _}})
     refute_received({:"$gen_cast", {:input, {:cursor_enter, _}, _}})
   end
-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