diff --git a/Test/View/CSSFrameworkSpec.hs b/Test/View/CSSFrameworkSpec.hs index 945defe00..e0c2903fb 100644 --- a/Test/View/CSSFrameworkSpec.hs +++ b/Test/View/CSSFrameworkSpec.hs @@ -198,23 +198,23 @@ tests = do it "should render" do let select = baseSelect - styledFormField cssFramework cssFramework select `shouldRenderTo` "
" + styledFormField cssFramework cssFramework select `shouldRenderTo` "
" it "should render with disabled" do let select = baseSelect { disabled = True } - styledFormField cssFramework cssFramework select `shouldRenderTo` "
" + styledFormField cssFramework cssFramework select `shouldRenderTo` "
" it "should render with selected" do let select = baseSelect { fieldValue = "b" } - styledFormField cssFramework cssFramework select `shouldRenderTo` "
" + styledFormField cssFramework cssFramework select `shouldRenderTo` "
" it "should render with custom placeholder" do let select = baseSelect { placeholder = "Pick something" } - styledFormField cssFramework cssFramework select `shouldRenderTo` "
" + styledFormField cssFramework cssFramework select `shouldRenderTo` "
" it "should render with additional attributes" do let select = baseSelect { additionalAttributes = [ ("data-x", "true") ] } - styledFormField cssFramework cssFramework select `shouldRenderTo` "
" + styledFormField cssFramework cssFramework select `shouldRenderTo` "
" describe "radio" do let baseRadio = FormField