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

     1  module CliTests exposing (all)
     2  
     3  import Concourse.Cli exposing (..)
     4  import Expect
     5  import Test exposing (..)
     6  
     7  
     8  all : Test
     9  all =
    10      describe "cli display functions"
    11          [ test "downloadUrl uses the correct architecture and platform name for each os" <|
    12              \_ ->
    13                  List.map downloadUrl clis
    14                      |> Expect.equal
    15                          [ "/api/v1/cli?arch=amd64&platform=darwin"
    16                          , "/api/v1/cli?arch=amd64&platform=windows"
    17                          , "/api/v1/cli?arch=amd64&platform=linux"
    18                          ]
    19          , test "cli label returns the text for each os" <|
    20              \_ ->
    21                  List.map label clis
    22                      |> Expect.equal
    23                          [ "Download OS X CLI"
    24                          , "Download Windows CLI"
    25                          , "Download Linux CLI"
    26                          ]
    27          ]