filling out component tests

Author: boydm

lib/scenic/component/input/dropdown.ex

@@ -11,7 +11,7 @@ defmodule Scenic.Component.Input.Dropdown do
   alias Scenic.Primitive.Style.Theme
   import Scenic.Primitives
 
-  # import IEx
+  import IEx
 
   @default_width 160
   @default_height 30
@@ -43,12 +43,12 @@ defmodule Scenic.Component.Input.Dropdown do
 
   # --------------------------------------------------------
   def verify({items, initial} = data) when is_list(items) do
-    Enum.all?(items, &verify_item(&1)) &&
-      Enum.find_value(items, false, fn {_, id} -> id == initial end)
-      |> case do
-        true -> {:ok, data}
-        _ -> :invalid_data
-      end
+    (Enum.all?(items, &verify_item(&1)) &&
+       Enum.find_value(items, false, fn {_, id} -> id == initial end))
+    |> case do
+      true -> {:ok, data}
+      _ -> :invalid_data
+    end
   end
 
   def verify(_), do: :invalid_data
@@ -269,7 +269,7 @@ defmodule Scenic.Component.Input.Dropdown do
       # push to the viewport
       |> push_graph()
 
-    {:continue, %{state | down: false, graph: graph}}
+    {:noreply, %{state | down: false, graph: graph}}
   end
 
   # --------------------------------------------------------

lib/scenic/component/input/radio_button.ex

@@ -67,12 +67,12 @@ defmodule Scenic.Component.Input.RadioButton do
     {:ok, state}
   end
 
-  # --------------------------------------------------------
-  def handle_cast({:set_value, new_value}, state) do
-    state = Map.put(state, :checked, new_value)
-    graph = update_graph(state)
-    {:noreply, %{state | graph: graph}}
-  end
+  # # --------------------------------------------------------
+  # def handle_cast({:set_value, new_value}, state) do
+  #   state = Map.put(state, :checked, new_value)
+  #   graph = update_graph(state)
+  #   {:noreply, %{state | graph: graph}}
+  # end
 
   # --------------------------------------------------------
   def handle_cast({:set_to_msg, set_id}, %{id: id} = state) do

lib/scenic/component/input/radio_group.ex

@@ -90,10 +90,10 @@ defmodule Scenic.Component.Input.RadioGroup do
     {:ok, state}
   end
 
-  # --------------------------------------------------------
-  def handle_cast({:set_value, new_value}, state) do
-    {:noreply, %{state | value: new_value}}
-  end
+  # # --------------------------------------------------------
+  # def handle_cast({:set_value, new_value}, state) do
+  #   {:noreply, %{state | value: new_value}}
+  # end
 
   # ============================================================================
 

lib/scenic/component/input/text_field.ex

@@ -85,7 +85,7 @@ defmodule Scenic.Component.Input.TextField do
 
     # theme is passed in as an inherited style
     theme =
-      (styles[:theme] || Theme.preset_caret(:dark))
+      (styles[:theme] || Theme.preset(:dark))
       |> Theme.normalize()
 
     # get the text_field specific styles

test/scenic/component/input/checkbox_test.exs

@@ -124,7 +124,7 @@ defmodule Scenic.Component.Input.CheckboxTest do
           contained: true
       })
 
-    # confirm the graph was pushed
+    # confirm the event was sent
     assert_receive({:"$gen_cast", {:event, {:value_changed, :test_id, true}, ^self}})
   end
 

test/scenic/component/input/dropdown_test.exs

@@ -0,0 +1,245 @@
+#
+#  Created by Boyd Multerer on September 18, 2018
+#  Copyright © 2018 Kry10 Industries. All rights reserved.
+#
+
+defmodule Scenic.Component.Input.DropdownTest do
+  use ExUnit.Case, async: true
+  doctest Scenic
+
+  # alias Scenic.Component
+  alias Scenic.Graph
+  alias Scenic.Primitive
+  alias Scenic.ViewPort
+  alias Scenic.Component.Input.Dropdown
+
+  @items [{"a", 1}, {"b", 2}]
+  @initial_item 2
+  @data {@items, @initial_item}
+
+  @state %{
+    graph: Graph.build(),
+    selected_id: @initial_item,
+    theme: Primitive.Style.Theme.preset(:primary),
+    id: :test_id,
+    down: false,
+    hover_id: nil,
+    items: @items,
+    drop_time: 0,
+    rotate_caret: 0
+  }
+
+  @button_id :__dropbox_btn__
+
+  # ============================================================================
+  # info
+
+  test "info works" do
+    assert is_bitstring(Dropdown.info(:bad_data))
+    assert Dropdown.info(:bad_data) =~ ":bad_data"
+  end
+
+  # ============================================================================
+  # verify
+
+  test "verify passes valid data" do
+    assert Dropdown.verify(@data) == {:ok, @data}
+  end
+
+  test "verify fails invalid data" do
+    assert Dropdown.verify(:banana) == :invalid_data
+
+    # invalid item in list
+    data = {[{:a, 1}, {"b", 2}], 2}
+    assert Dropdown.verify(data) == :invalid_data
+
+    # selected is not in list
+    data = {[{"a", 1}, {"b", 2}], 3}
+    assert Dropdown.verify(data) == :invalid_data
+  end
+
+  # ============================================================================
+  # init
+
+  test "init works with simple data" do
+    {:ok, state} = Dropdown.init(@data, styles: %{}, id: :test_id)
+    %Graph{} = state.graph
+    assert state.selected_id == @initial_item
+    assert is_map(state.theme)
+    assert state.down == false
+    assert state.hover_id == nil
+    assert state.items == @items
+    assert state.id == :test_id
+  end
+
+  # ============================================================================
+  # handle_input - up
+
+  test "handle_input {:cursor_enter, _uid} - up" do
+    {:noreply, state} =
+      Dropdown.handle_input({:cursor_enter, 1}, %{id: 123}, %{@state | down: false})
+
+    assert state.hover_id == 123
+  end
+
+  test "handle_input {:cursor_exit, _uid} - up" do
+    {:noreply, state} =
+      Dropdown.handle_input({:cursor_exit, 1}, %{id: 123}, %{@state | down: false})
+
+    assert state.hover_id == nil
+  end
+
+  test "handle_input {:cursor_button, :press - up" do
+    context = %ViewPort.Context{viewport: self(), id: @button_id}
+
+    {:noreply, state} =
+      Dropdown.handle_input({:cursor_button, {:left, :press, nil, nil}}, context, %{
+        @state
+        | down: false
+      })
+    assert state.down == true
+    assert (is_integer( state.drop_time ) && state.drop_time > 0)
+
+    # 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, _, _, _}})
+  end
+
+  # ============================================================================
+  # handle_input - down
+
+  test "handle_input {:cursor_enter, _uid} - down" do
+    context = %ViewPort.Context{viewport: self(), id: 1}
+
+    {:noreply, state} =
+      Dropdown.handle_input({:cursor_enter, 1}, context, %{@state | down: true})
+
+    assert state.hover_id == 1
+
+    # confirm the graph was pushed
+    assert_receive({:"$gen_cast", {:push_graph, _, _, _}})
+  end
+
+  test "handle_input {:cursor_exit, _uid} - down" do
+    context = %ViewPort.Context{viewport: self(), id: 1}
+
+    {:noreply, state} =
+      Dropdown.handle_input({:cursor_exit, 1}, context, %{@state | down: true})
+
+    assert state.hover_id == nil
+
+    # confirm the graph was pushed
+    assert_receive({:"$gen_cast", {:push_graph, _, _, _}})
+  end
+
+  # mouse down outside menu
+  test "handle_input {:cursor_button, :press nil - down" do
+    context = %ViewPort.Context{viewport: self(), id: nil}
+
+    {:noreply, state} =
+      Dropdown.handle_input({:cursor_button, {:left, :press, nil, nil}}, context, %{
+        @state
+        | down: true
+      })
+    assert state.down == false
+
+    # confirm the input was released
+    assert_receive({:"$gen_cast", {:release_input, [:cursor_button, :cursor_pos]}})
+
+    # confirm the graph was pushed
+    assert_receive({:"$gen_cast", {:push_graph, _, _, _}})
+  end
+
+  # mouse down inside button - slow
+  test "handle_input {:cursor_button, :press button - down - slow - should close" do
+    context = %ViewPort.Context{viewport: self(), id: @button_id}
+
+    {:noreply, state} =
+      Dropdown.handle_input({:cursor_button, {:left, :release, nil, nil}}, context, %{
+        @state
+        | down: true
+      })
+    assert state.down == false
+
+    # confirm the input was released
+    assert_receive({:"$gen_cast", {:release_input, [:cursor_button, :cursor_pos]}})
+
+    # confirm the graph was pushed
+    assert_receive({:"$gen_cast", {:push_graph, _, _, _}})
+  end
+
+  # mouse down inside button - fast
+  test "handle_input {:cursor_button, :press button - down - fast - should stay down" do
+    context = %ViewPort.Context{viewport: self(), id: @button_id}
+
+    {:noreply, state} =
+      Dropdown.handle_input({:cursor_button, {:left, :release, nil, nil}}, context, %{
+        @state
+        | down: true,
+        drop_time: :os.system_time(:milli_seconds)
+      })
+    assert state.down == true
+
+    # confirm the input was not released
+    refute_receive({:"$gen_cast", {:release_input, [:cursor_button, :cursor_pos]}})
+
+    # confirm the graph was not pushed
+    refute_receive({:"$gen_cast", {:push_graph, _, _, _}})
+  end
+
+  # mouse released outside dropdown space
+  test "handle_input {:cursor_button, :release button - outside menu" do
+    context = %ViewPort.Context{viewport: self(), id: nil}
+
+    {:noreply, state} =
+      Dropdown.handle_input({:cursor_button, {:left, :release, nil, nil}}, context, %{
+        @state
+        | down: true,
+        drop_time: :os.system_time(:milli_seconds)
+      })
+    assert state.down == false
+    assert state.selected_id == @initial_item
+
+    # confirm the input was released
+    assert_receive({:"$gen_cast", {:release_input, [:cursor_button, :cursor_pos]}})
+
+    # confirm the value change was not sent
+    refute_receive({:"$gen_cast", {:event, {:value_changed, _, _}, _}})
+
+    # confirm the graph was pushed
+    assert_receive({:"$gen_cast", {:push_graph, _, _, _}})
+  end
+
+  # mouse released inside dropdown space
+  test "handle_input {:cursor_button, :release button - inside menu" do
+    self = self()
+    Process.put(:parent_pid, self)
+    context = %ViewPort.Context{viewport: self, id: 1}
+
+    {:noreply, state} =
+      Dropdown.handle_input({:cursor_button, {:left, :release, nil, nil}}, context, %{
+        @state
+        | down: true
+      })
+    assert state.down == false
+    assert state.selected_id == 1
+
+    # confirm the input was released
+    assert_receive({:"$gen_cast", {:release_input, [:cursor_button, :cursor_pos]}})
+
+    # confirm the value change was not sent
+    assert_receive({:"$gen_cast", {:event, {:value_changed, :test_id, 1}, ^self}})
+
+    # confirm the graph was pushed
+    assert_receive({:"$gen_cast", {:push_graph, _, _, _}})
+  end
+
+  test "handle_input does nothing on unknown input" do
+    context = %ViewPort.Context{viewport: self()}
+    {:noreply, state} = Dropdown.handle_input(:unknown, context, @state)
+    assert state == @state
+  end
+
+end

test/scenic/component/input/radio_button_test.exs

@@ -67,14 +67,18 @@ defmodule Scenic.Component.Input.RadioButtonTest do
   # handle_input
 
   test "handle_input {:cursor_enter, _uid} sets contained" do
-    {:noreply, state} = RadioButton.handle_input({:cursor_enter, 1}, %{}, %{@state | pressed: true})
+    {:noreply, state} =
+      RadioButton.handle_input({:cursor_enter, 1}, %{}, %{@state | pressed: true})
+
     assert state.contained
     # confirm the graph was pushed
     assert_receive({:"$gen_cast", {:push_graph, _, _, _}})
   end
 
   test "handle_input {:cursor_exit, _uid} clears contained" do
-    {:noreply, state} = RadioButton.handle_input({:cursor_exit, 1}, %{}, %{@state | pressed: true})
+    {:noreply, state} =
+      RadioButton.handle_input({:cursor_exit, 1}, %{}, %{@state | pressed: true})
+
     refute state.contained
     # confirm the graph was pushed
     assert_receive({:"$gen_cast", {:push_graph, _, _, _}})