Add test for issue 218

This commit is contained in:
Alex Korban 2020-05-29 12:15:37 +12:00
parent 00d7803b2c
commit b1a276d9ea

View File

@ -0,0 +1,28 @@
module LabelledInputAlignRight exposing (view)
import Testable.Element exposing (..)
import Testable.Element.Input as Input
view =
layout [] <|
column [ width fill ]
[ Input.text
[ width (px 200)
, alignRight
]
{ onChange = always False
, text = ""
, placeholder = Nothing
, label = Input.labelLeft [] (text "label")
}
, Input.text
[ width (px 200)
, alignRight
]
{ onChange = always False
, text = ""
, placeholder = Nothing
, label = Input.labelHidden "label"
}
]