elm-ui-widgets/tests/VerifyExamples/Widget/Dialog0.elm

49 lines
1.9 KiB
Elm
Raw Normal View History

2021-01-27 00:12:35 +03:00
module VerifyExamples.Widget.Dialog0 exposing (..)
-- This file got generated by [elm-verify-examples](https://github.com/stoeffel/elm-verify-examples).
-- Please don't modify this file by hand!
import Test
import Expect
import Widget exposing (..)
import Element
import Widget.Material as Material
type Msg
= Submit
| Close
spec0 : Test.Test
spec0 =
2021-02-05 18:59:34 +03:00
Test.test "#dialog: \n\n Element.layout\n (dialog (Material.alertDialog Material.defaultPalette)\n { title = Just \"Accept\"\n , text = \"Are you sure?\"\n , accept =\n { text = \"Accept\"\n , onPress = Just Submit\n }\n |> Just\n , dismiss =\n { text = \"Cancel\"\n , onPress = Just Close\n }\n |> Just\n }\n |> List.singleton\n |> singleModal\n )\n |> always \"Ignore this line\"\n --> \"Ignore this line\"" <|
2021-01-27 00:12:35 +03:00
\() ->
Expect.equal
(
Element.layout
(dialog (Material.alertDialog Material.defaultPalette)
{ title = Just "Accept"
, text = "Are you sure?"
, accept =
{ text = "Accept"
, onPress = Just Submit
}
|> Just
, dismiss =
{ text = "Cancel"
, onPress = Just Close
}
|> Just
}
2021-02-05 18:59:34 +03:00
|> List.singleton
|> singleModal
2021-01-27 00:12:35 +03:00
)
|> always "Ignore this line"
)
(
"Ignore this line"
)