github.com/pf-qiu/concourse/v6@v6.7.3-0.20201207032516-1f455d73275f/web/elm/tests/FetchResultTests.elm (about)

     1  module FetchResultTests exposing (..)
     2  
     3  import Expect
     4  import FetchResult exposing (FetchResult(..), changedFrom)
     5  import Test exposing (Test, describe, test)
     6  
     7  
     8  all : Test
     9  all =
    10      describe "FetchResult"
    11          [ describe "changedFrom"
    12              [ test "both fetched, same value, no change" <|
    13                  \_ ->
    14                      Fetched 1
    15                          |> changedFrom (Fetched 1)
    16                          |> Expect.equal False
    17              , test "both fetched, diff value, yes change" <|
    18                  \_ ->
    19                      Fetched 2
    20                          |> changedFrom (Fetched 1)
    21                          |> Expect.equal True
    22              , test "both cached, same value, no change" <|
    23                  \_ ->
    24                      Cached 1
    25                          |> changedFrom (Cached 1)
    26                          |> Expect.equal False
    27              , test "both cached, diff value, yes change" <|
    28                  \_ ->
    29                      Cached 2
    30                          |> changedFrom (Cached 1)
    31                          |> Expect.equal True
    32              , test "cached to fetched, same value, no change" <|
    33                  \_ ->
    34                      Fetched 1
    35                          |> changedFrom (Cached 1)
    36                          |> Expect.equal False
    37              , test "cached to fetched, diff value, yes change" <|
    38                  \_ ->
    39                      Fetched 2
    40                          |> changedFrom (Cached 1)
    41                          |> Expect.equal True
    42              , test "fetched to cached, diff value, no change" <|
    43                  \_ ->
    44                      Cached 2
    45                          |> changedFrom (Fetched 1)
    46                          |> Expect.equal False
    47              , test "none to cached, yes change" <|
    48                  \_ ->
    49                      Cached 1
    50                          |> changedFrom None
    51                          |> Expect.equal True
    52              , test "none to fetched, yes change" <|
    53                  \_ ->
    54                      Fetched 1
    55                          |> changedFrom None
    56                          |> Expect.equal True
    57              ]
    58          ]