diff options
author | Jasper Van der Jeugt <m@jaspervdj.be> | 2012-10-27 15:43:05 +0200 |
---|---|---|
committer | Jasper Van der Jeugt <m@jaspervdj.be> | 2012-10-27 15:43:52 +0200 |
commit | d894684b002e0c47ea6dcb559506fb9972b27cd4 (patch) | |
tree | 545a7a0061a0f0e7bb0418f978c1c3204fc3b3aa /tests | |
parent | 9fe4f7f70a9a3aea1af1b326373869e8279263e2 (diff) | |
download | stylish-haskell-d894684b002e0c47ea6dcb559506fb9972b27cd4.tar.gz |
Add failing test case for #19
Diffstat (limited to 'tests')
-rw-r--r-- | tests/Language/Haskell/Stylish/Step/Imports/Tests.hs | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/tests/Language/Haskell/Stylish/Step/Imports/Tests.hs b/tests/Language/Haskell/Stylish/Step/Imports/Tests.hs index aed9419..78083f9 100644 --- a/tests/Language/Haskell/Stylish/Step/Imports/Tests.hs +++ b/tests/Language/Haskell/Stylish/Step/Imports/Tests.hs @@ -22,6 +22,7 @@ tests = testGroup "Language.Haskell.Stylish.Step.Imports.Tests" , testCase "case 02" case02 , testCase "case 03" case03 , testCase "case 04" case04 + , testCase "case 05" case05 ] @@ -112,3 +113,11 @@ case04 = expected @=? testStep (step 80 Global) input' , " object, parseEither, typeMismatch, (.!=)," , " (.:), (.:?), (.=))" ] + + +-------------------------------------------------------------------------------- +case05 :: Assertion +case05 = input' @=? testStep (step 80 Group) input' + where + input' = "import Distribution.PackageDescription.Configuration " ++ + "(finalizePackageDescription)\n" |