Slide 1

Slide 1 text

MANTENDO SANIDADE TESTANDO ESTADO @_andrewhr

Slide 2

Slide 2 text

No content

Slide 3

Slide 3 text

No content

Slide 4

Slide 4 text

No content

Slide 5

Slide 5 text

No content

Slide 6

Slide 6 text

No content

Slide 7

Slide 7 text

No content

Slide 8

Slide 8 text

No content

Slide 9

Slide 9 text

No content

Slide 10

Slide 10 text

Telephony Engine

Slide 11

Slide 11 text

No content

Slide 12

Slide 12 text

Call Control

Slide 13

Slide 13 text

Call Control App Comandos Webhooks

Slide 14

Slide 14 text

Call Control App

Slide 15

Slide 15 text

Call Control App POST /dial

Slide 16

Slide 16 text

Call Control App POST /dial {"event": "call_initiated"}

Slide 17

Slide 17 text

Call Control App POST /dial {"event": "call_initiated"} {"event”: "call_answered"}

Slide 18

Slide 18 text

No content

Slide 19

Slide 19 text

PROPERTY-BASED TEST

Slide 20

Slide 20 text

PropEr

Slide 21

Slide 21 text

PBT 101

Slide 22

Slide 22 text

EXEMPLO

Slide 23

Slide 23 text

test "sorts a list" do assert Enum.sort([3, 1, 2]) == [1, 2, 3] end

Slide 24

Slide 24 text

test "sorts a list" do assert Enum.sort([3, 1, 2]) == [1, 2, 3] end

Slide 25

Slide 25 text

test "sorts a list" do assert Enum.sort([3, 1, 2]) == [1, 2, 3] end

Slide 26

Slide 26 text

test "sorts an empty list" do assert Enum.sort([]) == [] end

Slide 27

Slide 27 text

test "sorts an empty list" test "sorts a list with a single item" test "sorts a list multiple equal items" test "sorts a list huge numbers" test "sorts a list negative numbers" test "sorts a big list with lots of items"

Slide 28

Slide 28 text

PROPRIEDADE

Slide 29

Slide 29 text

property "sorts a list" do forall x <- list(integer()) do Enum.sort(x) |> Enum.chunk_every(2, 1, :discard) |> Enum.all?(fn [a, b] -> a <= b end) end end

Slide 30

Slide 30 text

property "sorts a list" do forall x <- list(integer()) do Enum.sort(x) |> Enum.chunk_every(2, 1, :discard) |> Enum.all?(fn [a, b] -> a <= b end) end end

Slide 31

Slide 31 text

property "sorts a list" do forall x <- list(integer()) do Enum.sort(x) |> Enum.chunk_every(2, 1, :discard) |> Enum.all?(fn [a, b] -> a <= b end) end end

Slide 32

Slide 32 text

GERADORES

Slide 33

Slide 33 text

property "sorts a list" do forall x <- list(integer()) do Enum.sort(x) |> Enum.chunk_every(2, 1, :discard) |> Enum.all?(fn [a, b] -> a <= b end) end end

Slide 34

Slide 34 text

list(integer())

Slide 35

Slide 35 text

map(number(), binary())

Slide 36

Slide 36 text

phone_number()

Slide 37

Slide 37 text

dial_command()

Slide 38

Slide 38 text

SHRINKING

Slide 39

Slide 39 text

property "sorts a list" do forall unsorted <- list(integer()) do unsorted |> Enum.chunk_every(2, 1, :discard) |> Enum.all?(fn [a, b] -> a <= b end) end end

Slide 40

Slide 40 text

Failed: After 11 test(s). [1,2,15,6] Shrinking ....(4 time(s)) [1,0]

Slide 41

Slide 41 text

[1,2,15,6]

Slide 42

Slide 42 text

[1,0]

Slide 43

Slide 43 text

STATEFUL

Slide 44

Slide 44 text

forall cmds <- commands(TestModel) do {history, state, result} = run_commands(TestModel, cmds) (result == :ok) |> aggregate(command_names(cmds)) |> when_fail(& report(cmds, state, result, history)) end

Slide 45

Slide 45 text

forall cmds <- commands(TestModel) do {history, state, result} = run_commands(TestModel, cmds) (result == :ok) |> aggregate(command_names(cmds)) |> when_fail(& report(cmds, state, result, history)) end

Slide 46

Slide 46 text

MODELO

Slide 47

Slide 47 text

DOMAIN-DRIVEN?

Slide 48

Slide 48 text

init_state/0 command/1 next_state/3 precondition/2

Slide 49

Slide 49 text

V1

Slide 50

Slide 50 text

V1 dial/1

Slide 51

Slide 51 text

V1 dial/1

Slide 52

Slide 52 text

V1 dial/1 answer/1 V2

Slide 53

Slide 53 text

V1 dial/1 answer/1 V2 V3 dial/1

Slide 54

Slide 54 text

V1 dial/1 answer/1 V2 V3 hangup/1 dial/1

Slide 55

Slide 55 text

def initial_state() do %{available: ["+551234567890", "+551234567894", "+551234567892"]} end

Slide 56

Slide 56 text

def command(%{available: numbers}) do return({:call, TestShim, :dial, [elements(numbers)]}) end

Slide 57

Slide 57 text

def command(%{ongoing: ids}) do [ {:call, TestShim, :answer, [elements(ids)]}, {:call, TestShim, :hangup, [elements(ids)]} ] |> oneof() end

Slide 58

Slide 58 text

def precondition(state, {:call, _, :dial, [number]}) do available?(state, number) end

Slide 59

Slide 59 text

def next_state(state, call_id, {:call, _, :dial, [number]}) do state |> acquire_call(call_id, number) |> set_call_state(call_id, :ringing) end

Slide 60

Slide 60 text

forall cmds <- commands(TestModel) do {history, state, result} = run_commands(TestModel, cmds) (result == :ok) |> aggregate(command_names(cmds)) |> when_fail(& report(cmds, state, result, history)) end

Slide 61

Slide 61 text

ESTADO

Slide 62

Slide 62 text

init_state/0 command/1 next_state/3 precondition/2 postcondition/3 :call FAIL

Slide 63

Slide 63 text

{:call, TestShim, :dial, [elements(numbers)]}

Slide 64

Slide 64 text

defmodule TestShim do def dial(number) do
 # magic goes here end end

Slide 65

Slide 65 text

defmodule TestShim do def dial(number) do
 dial = Repo.insert!(Dial.changeset(number)) dial.call_id end end

Slide 66

Slide 66 text

defmodule TestShim do def dial(number) do
 CallControl.dial(number) end end

Slide 67

Slide 67 text

defmodule TestShim do def dial(number) do # build client and payload
 case Tesla.post(client, "/dial", payload) do # process response and return call_id end end end

Slide 68

Slide 68 text

def postcondition(_state, {:call, _, :dial, [_]}, call_id) when is_binary(call_id) do true end

Slide 69

Slide 69 text

ASYNC

Slide 70

Slide 70 text

Call Control App Comandos Webhooks

Slide 71

Slide 71 text

Call Control App GenServer.call/2 GenServer.reply/2

Slide 72

Slide 72 text

defmodule TestShim do use GenServer def dial(number) do
 GenServer.call( __MODULE __, {:dial, number}) end end

Slide 73

Slide 73 text

def handle_call({:command, :dial, number}, from, state) do {:ok, call_id} = CallControl.dial(number) # update state {:noreply, state} end

Slide 74

Slide 74 text

def handle_cast({:webhook, webhook, call_id, resp}, state) do # descobre `ref` a partir dos parâmetros if ref, do: GenServer.reply(ref, resp) {:noreply, state} end

Slide 75

Slide 75 text

MUTABILIDADE

Slide 76

Slide 76 text

forall cmds <- commands(TestModel) do TestShim.setup_parties() {history, state, result} = run_commands(TestModel, cmds) (result == :ok) |> aggregate(command_names(cmds)) |> when_fail(& report(cmds, state, result, history)) end

Slide 77

Slide 77 text

forall cmds <- commands(TestModel) do TestShim.setup_parties() {history, state, result} = run_commands(TestModel, cmds) (result == :ok) |> aggregate(command_names(cmds)) |> when_fail(& report(cmds, state, result, history)) end

Slide 78

Slide 78 text

dial/1 answer/1 hangup/1 V1 V3

Slide 79

Slide 79 text

dial/1 answer/1 hangup/1 V1 V3

Slide 80

Slide 80 text

dial/1 answer/1 V3

Slide 81

Slide 81 text

def initial_state() do %{available: ["+551234567890", "+551234567894", "+551234567892"]} end

Slide 82

Slide 82 text

def initial_state() do %{init: ["+551234567890", "+551234567894", "+551234567892"]} end

Slide 83

Slide 83 text

def command(%{init: numbers}) do return({:call, TestShim, :setup_parties, []}) end

Slide 84

Slide 84 text

def next_state(state, _, {:call, _, :setup_parties, []}) do %{available: state[:init], ongoing: %{}, busy: %{}} end

Slide 85

Slide 85 text

CASOS PROBLEMA

Slide 86

Slide 86 text

def command(%{busy: numbers}) do return({:call, TestShim, :dial_busy, [elements(numbers)]}) end

Slide 87

Slide 87 text

def postcondition(_state, {:call, _, :dial_busy, [_]}, {:error, :call_rejected}) do true end

Slide 88

Slide 88 text

OK: Passed 100 test(s). 34% {'Elixir.CallControl.TestShim',dial,1} 21% {'Elixir.CallControl.TestShim',hangup,1} 19% {'Elixir.CallControl.TestShim',dial_busy,1} 13% {'Elixir.CallControl.TestShim',answer,1} 10% {'Elixir.CallControl.TestShim',setup_parties,0}

Slide 89

Slide 89 text

MUITOS TESTES!

Slide 90

Slide 90 text

DEMORA…

Slide 91

Slide 91 text

POWER-TOOL

Slide 92

Slide 92 text

ROI

Slide 93

Slide 93 text

Obrigado! @_andrewhr