commit 125482fe878635f691e893ac40983cf9729a3c5f · hauleth.dev/esl_hn

lib/esl_hn_web/api/json.ex

···

       9
       9
        
       

     

       10
       10
        
         defp one(%EslHn.Hn.Story{} = story) do

     

       11
       11
        
           %{

     

       12
       12
       +
             id: story.id,

     

       12
       13
        
             title: story.title,

     

       13
       14
        
             url: story.url,

     

       14
       15
        
             score: story.score

+62

test/esl_hn_web/api/json_test.exs

···

       1
       1
       +
       defmodule EslHnWeb.API.JSONTest do

     

       2
       2
       +
         use ExUnit.Case, async: true

     

       3
       3
       +
         use ExUnitProperties

     

       4
       4
       +
       

     

       5
       5
       +
         alias EslHn.Hn.Story

     

       6
       6
       +
       

     

       7
       7
       +
         @subject EslHnWeb.API.JSON

     

       8
       8
       +
       

     

       9
       9
       +
         doctest @subject

     

       10
       10
       +
       

     

       11
       11
       +
         defp story do

     

       12
       12
       +
           gen all(

     

       13
       13
       +
                 title <- string(:utf8, min_length: 1),

     

       14
       14
       +
                 score <- positive_integer()

     

       15
       15
       +
               ) do

     

       16
       16
       +
             %Story{

     

       17
       17
       +
               id: System.unique_integer([:positive]),

     

       18
       18
       +
               title: title,

     

       19
       19
       +
               score: score,

     

       20
       20
       +
               url: "https://example.com/#{URI.encode(title)}"

     

       21
       21
       +
             }

     

       22
       22
       +
           end

     

       23
       23
       +
         end

     

       24
       24
       +
       

     

       25
       25
       +
         describe "index/1" do

     

       26
       26
       +
           test "for empty list renders empty list" do

     

       27
       27
       +
             assert [] == @subject.index(%{items: []})

     

       28
       28
       +
           end

     

       29
       29
       +
       

     

       30
       30
       +
           property "length of encoded data is equal to items count" do

     

       31
       31
       +
             check all(stories <- list_of(story())) do

     

       32
       32
       +
               count = length(stories)

     

       33
       33
       +
       

     

       34
       34
       +
               assert count == length(@subject.index(%{items: stories}))

     

       35
       35
       +
             end

     

       36
       36
       +
           end

     

       37
       37
       +
       

     

       38
       38
       +
           property "all IDs are present in result" do

     

       39
       39
       +
             check all(stories <- list_of(story())) do

     

       40
       40
       +
               ids =

     

       41
       41
       +
                 stories

     

       42
       42
       +
                 |> Enum.map(& &1.id)

     

       43
       43
       +
                 |> Enum.sort()

     

       44
       44
       +
       

     

       45
       45
       +
               result =

     

       46
       46
       +
                 @subject.index(%{items: stories})

     

       47
       47
       +
                 |> Enum.map(& &1.id)

     

       48
       48
       +
                 |> Enum.sort()

     

       49
       49
       +
       

     

       50
       50
       +
               assert ids == result

     

       51
       51
       +
             end

     

       52
       52
       +
           end

     

       53
       53
       +
         end

     

       54
       54
       +
       

     

       55
       55
       +
         describe "show/1" do

     

       56
       56
       +
           property "encoded title is the same as input title" do

     

       57
       57
       +
             check all story <- story() do

     

       58
       58
       +
               assert story.title == @subject.show(%{item: story}).title

     

       59
       59
       +
             end

     

       60
       60
       +
           end

     

       61
       61
       +
         end

     

       62
       62
       +
       end