fill out tests for Button

Author: boydm

lib/scenic/component/button.ex

@@ -57,18 +57,30 @@ defmodule Scenic.Component.Button do
           |> text(text,
             fill: theme.text,
             translate: {width / 2, height * 0.7},
-            text_align: :center
+            text_align: :center,
+            id: :title
           )
 
         :left ->
           Graph.build(font: font, font_size: font_size)
           |> rrect({width, height, radius}, fill: theme.background, id: :btn)
-          |> text(text, fill: theme.text, translate: {8, height * 0.7}, text_align: :left)
+          |> text(
+            text,
+            fill: theme.text,
+            translate: {8, height * 0.7},
+            text_align: :left,
+            id: :title
+          )
 
         :right ->
           Graph.build(font: font, font_size: font_size)
           |> rrect({width, height, radius}, fill: theme.background, id: :btn)
-          |> text(text, fill: theme.text, translate: {width - 8, height * 0.7}, text_align: :right)
+          |> text(text,
+            fill: theme.text,
+            translate: {width - 8, height * 0.7},
+            text_align: :right,
+            id: :title
+          )
       end
 
     # special case the dark and light themes to show an outline

test/scenic/component/button_test.exs

@@ -8,8 +8,20 @@ defmodule Scenic.Component.ButtonTest do
   doctest Scenic
 
   # alias Scenic.Component
+  alias Scenic.Graph
+  alias Scenic.Primitive
+  alias Scenic.ViewPort
   alias Scenic.Component.Button
 
+  @state %{
+    graph: Graph.build(),
+    theme: Primitive.Style.Theme.preset(:primary),
+    pressed: false,
+    contained: false,
+    align: :center,
+    id: :test_id
+  }
+
   # ============================================================================
   # info
 
@@ -33,10 +45,81 @@ defmodule Scenic.Component.ButtonTest do
 
   test "init works with simple data" do
     {:ok, state} = Button.init("Button", styles: %{}, id: :button_id)
-    %Scenic.Graph{} = state.graph
+    %Graph{} = state.graph
     assert is_map(state.theme)
     assert state.pressed == false
     assert state.align == :center
     assert state.id == :button_id
   end
-end
+
+  test "init works with various alignments" do
+    {:ok, state} = Button.init("Button", [])
+    %Primitive{styles: %{text_align: :center}} = Graph.get!( state.graph, :title )
+
+    {:ok, state} = Button.init("Button", styles: %{alignment: :left}, id: :button_id)
+    %Primitive{styles: %{text_align: :left}} = Graph.get!( state.graph, :title )
+
+    {:ok, state} = Button.init("Button", styles: %{alignment: :center}, id: :button_id)
+    %Primitive{styles: %{text_align: :center}} = Graph.get!( state.graph, :title )
+
+    {:ok, state} = Button.init("Button", styles: %{alignment: :right}, id: :button_id)
+    %Primitive{styles: %{text_align: :right}} = Graph.get!( state.graph, :title )
+  end
+
+  # ============================================================================
+  # handle_input
+
+  test "handle_input {:cursor_enter, _uid} sets contained" do
+    {:noreply, state} = Button.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} = Button.handle_input( {:cursor_exit, 1}, %{}, %{@state | pressed: true} )
+    refute state.contained
+    # confirm the graph was pushed
+    assert_receive( {:"$gen_cast", {:push_graph, _, _, _}} )
+  end
+
+  test "handle_input {:cursor_button, :press" do
+    context = %ViewPort.Context{viewport: self()}
+    {:noreply, state} = Button.handle_input( {:cursor_button, {:left, :press, nil, nil}}, context, %{@state | pressed: false, contained: true} )
+    assert state.pressed
+
+    # 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
+
+  test "handle_input {:cursor_button, :release" do
+    context = %ViewPort.Context{viewport: self()}
+    {:noreply, state} = Button.handle_input( {:cursor_button, {:left, :release, nil, nil}}, context, %{@state | pressed: true, contained: true} )
+    refute state.pressed
+
+    # 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
+
+
+  test "handle_input {:cursor_button, :release sends a message if contained" do
+    self = self()
+    Process.put(:parent_pid, self)
+    context = %ViewPort.Context{viewport: self()}
+    {:noreply, _} = Button.handle_input( {:cursor_button, {:left, :release, nil, nil}}, context, %{@state | pressed: true, contained: true} )
+
+    # confirm the graph was pushed
+    assert_receive( {:"$gen_cast", {:event, {:click, :test_id}, ^self}} )
+  end
+
+  test "handle_input does nothing on unknown input" do
+    context = %ViewPort.Context{viewport: self()}
+    {:noreply, state} = Button.handle_input( :unknown, context, @state )
+    assert state == @state
+  end
+end