case10 :: Assertion
case10 = expected @=? testStep (step 80 Utrecht False False) input
  where
    input = unlines
        [ "{-# LANGUAGE OverloadedStrings, TemplateHaskell, RecordWildCards #-}"
        , ""
        , "main = undefined"
        ]

    expected = unlines
        [ "{-# LANGUAGE"
        , "    OverloadedStrings"
        , "  , RecordWildCards"
        , "  , TemplateHaskell"
        , "  #-}"
        , ""
        , "main = undefined"
        ]


--------------------------------------------------------------------------------
case10 :: Assertion
case10 = expected @=? testStep (step 80 Utrecht False False) input
  where
    input = unlines
        [ "{-# LANGUAGE OverloadedStrings, TemplateHaskell, RecordWildCards #-}"
        , ""
        , "main = undefined"
        ]

    expected = unlines
        [ "{-# LANGUAGE"
        , "    OverloadedStrings"
        , "  , RecordWildCards"
        , "  , TemplateHaskell"
        , "  #-}"
        , ""
        , "main = undefined"
        ]


--------------------------------------------------------------------------------
case10 = expected @=? testStep (step 80 Utrecht False False) input
  where
    input = unlines
        [ "{-# LANGUAGE OverloadedStrings, TemplateHaskell, RecordWildCards #-}"
        , ""
        , "main = undefined"
        ]

    expected = unlines
        [ "{-# LANGUAGE"
        , "    OverloadedStrings"
        , "  , RecordWildCards"
        , "  , TemplateHaskell"
        , "  #-}"
        , ""
        , "main = undefined"
        ]


--------------------------------------------------------------------------------