False positives in test functions about elm-review-ports HOT 2 OPEN

port module Lib.CookieBar exposing (CookieBar, init, subscriptions, view, update, test)

import Lib.Logger as Logger
...

update : Msg -> CookieBar msg -> ( CookieBar msg, Cmd msg )
update msg model =
    case msg of
        ...

        SubError error ->
            model
                |> PrimaUpdate.withCmds
                    [ Logger.devConsoleErrorForJsonDecodeError
                        { location = "CookieBar subscription port is used wrongly: "
                        , error = error
                        }
                    ]

test : Test
test =
    Test.describe "Lib.CookieBar tests"
        [ updateTest
        ]
        
updateTest : Test
updateTest =
    Test.describe "Test over update function"
        [ Test.test "Tests init state"
            (\() ->
                init (always ())
                    |> isVisible
                    |> Expect.false "Cookie bar should be invisibile at init"
            )
        ] 

updateTest : Test
updateTest =
    Test.describe "Test over update function"
        [ Test.test "Tests init state"
            (\() ->
                init (always ())
                    |> isVisible
                    |> Expect.false "Cookie bar should be invisibile at init"
            )
       , Test.test "Visible flag should be True when cookies acceptance is not present"
            (\() ->
                init (always ())
                    |> update (HasCookiesAcceptance False)
                    |> Tuple.first
                    |> isVisible
                    |> Expect.true "Cookie bar should be visible"
            )
        ]