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

     1  module FlySuccessTests exposing (all)
     2  
     3  import Application.Application as Application
     4  import Common exposing (defineHoverBehaviour, queryView)
     5  import DashboardTests exposing (iconSelector)
     6  import Expect exposing (Expectation)
     7  import FlySuccess.FlySuccess as FlySuccess
     8  import Html.Attributes as Attr
     9  import Http
    10  import Message.Callback exposing (Callback(..))
    11  import Message.Effects as Effects
    12  import Message.Message
    13  import Message.Subscription as Subscription
    14  import Message.TopLevelMessage as Msgs
    15  import Test exposing (..)
    16  import Test.Html.Event as Event
    17  import Test.Html.Query as Query
    18  import Test.Html.Selector
    19      exposing
    20          ( attribute
    21          , containing
    22          , id
    23          , style
    24          , tag
    25          , text
    26          )
    27  import Url
    28  
    29  
    30  all : Test
    31  all =
    32      test "does not send token when 'noop' is passed" <|
    33          \_ ->
    34              { authToken = ""
    35              , flyPort = Just 1234
    36              , noop = True
    37              }
    38                  |> FlySuccess.init
    39                  |> Tuple.second
    40                  |> Common.notContains (Effects.SendTokenToFly "" 1234)