Split tests into individual files
Taylor Fausak
GitHub
parent
89a9f47b72
commit
21e86adf6e
|
|
@ -24,7 +24,8 @@ extra-doc-files:
|
|||
README.md
|
||||
doc/implementation/*.md
|
||||
extra-source-files:
|
||||
data/*.blt
|
||||
data/brittany.yaml
|
||||
data/*.hs
|
||||
|
||||
source-repository head
|
||||
type: git
|
||||
|
|
@ -143,7 +144,6 @@ test-suite brittany-test-suite
|
|||
|
||||
build-depends:
|
||||
, hspec ^>= 2.8.3
|
||||
, parsec ^>= 3.1.14
|
||||
hs-source-dirs: source/test-suite
|
||||
main-is: Main.hs
|
||||
type: exitcode-stdio-1.0
|
||||
|
|
|
|||
1757
data/10-tests.blt
1757
data/10-tests.blt
File diff suppressed because it is too large
Load Diff
|
|
@ -1,241 +0,0 @@
|
|||
###############################################################################
|
||||
###############################################################################
|
||||
###############################################################################
|
||||
#group extensions
|
||||
###############################################################################
|
||||
###############################################################################
|
||||
###############################################################################
|
||||
|
||||
###############################################################################
|
||||
## MultiWayIf
|
||||
#test multiwayif 1
|
||||
{-# LANGUAGE MultiWayIf #-}
|
||||
func = if
|
||||
| cond1 -> loooooooooooooooooooooooooooooong expr1
|
||||
| cond2 -> loooooooooooooooooooooooooooooong expr2
|
||||
|
||||
#test multiwayif 2
|
||||
{-# LANGUAGE MultiWayIf #-}
|
||||
func = do
|
||||
foo
|
||||
bar $ if
|
||||
| cond1 -> loooooooooooooooooooooooooooooong expr1
|
||||
| cond2 -> loooooooooooooooooooooooooooooong expr2
|
||||
|
||||
|
||||
###############################################################################
|
||||
## LambdaCase
|
||||
#test lambdacase 1
|
||||
{-# LANGUAGE LambdaCase #-}
|
||||
func = \case
|
||||
FooBar -> x
|
||||
Baz -> y
|
||||
|
||||
|
||||
|
||||
###############################################################################
|
||||
## ImplicitParams
|
||||
#test ImplicitParams 1
|
||||
{-# LANGUAGE ImplicitParams #-}
|
||||
func :: (?asd::Int) -> ()
|
||||
|
||||
#test ImplicitParams 2
|
||||
{-# LANGUAGE ImplicitParams #-}
|
||||
func
|
||||
:: ( ?asd
|
||||
:: lkasdlkjalsdjlakjsdlkjasldkjalskdjlkajsd
|
||||
-> lkasdlkjalsdjlakjsdlkjasldkjalskdjlkajsd
|
||||
)
|
||||
-> ()
|
||||
|
||||
|
||||
###############################################################################
|
||||
## RecursiveDo
|
||||
#test recursivedo 1
|
||||
{-# LANGUAGE RecursiveDo #-}
|
||||
foo = do
|
||||
rec a <- f b
|
||||
b <- g a
|
||||
return (a, b)
|
||||
|
||||
#test recursivedo 2
|
||||
{-# LANGUAGE RecursiveDo #-}
|
||||
foo = do
|
||||
rec -- comment
|
||||
a <- f b
|
||||
b <- g a
|
||||
return (a, b)
|
||||
|
||||
###############################################################################
|
||||
## ExplicitNamespaces + PatternSynonyms
|
||||
#test explicitnamespaces_patternsynonyms export
|
||||
{-# LANGUAGE ExplicitNamespaces #-}
|
||||
{-# LANGUAGE PatternSynonyms #-}
|
||||
module Test (type (++), (++), pattern Foo) where
|
||||
|
||||
#test explicitnamespaces_patternsynonyms import
|
||||
{-# LANGUAGE ExplicitNamespaces #-}
|
||||
{-# LANGUAGE PatternSynonyms #-}
|
||||
import Test ( type (++)
|
||||
, (++)
|
||||
, pattern (:.)
|
||||
, pattern Foo
|
||||
)
|
||||
|
||||
###############################################################################
|
||||
## PatternSynonyms
|
||||
#test bidirectional pattern
|
||||
{-# LANGUAGE PatternSynonyms #-}
|
||||
pattern J x = Just x
|
||||
|
||||
#test unidirection pattern
|
||||
{-# LANGUAGE PatternSynonyms #-}
|
||||
pattern F x <- (x, _)
|
||||
|
||||
#test explicitly bidirectional pattern
|
||||
{-# LANGUAGE PatternSynonyms #-}
|
||||
pattern HeadC x <- x : xs where
|
||||
HeadC x = [x]
|
||||
|
||||
#test Multiple arguments
|
||||
{-# LANGUAGE PatternSynonyms #-}
|
||||
pattern Head2 x y <- x : y : xs where
|
||||
Head2 x y = [x, y]
|
||||
|
||||
#test Infix argument
|
||||
{-# LANGUAGE PatternSynonyms #-}
|
||||
pattern x :> y = [x, y]
|
||||
|
||||
#test Record argument
|
||||
{-# LANGUAGE PatternSynonyms #-}
|
||||
pattern MyData { a, b, c } = [a, b, c]
|
||||
|
||||
#test long pattern match
|
||||
{-# LANGUAGE PatternSynonyms #-}
|
||||
pattern myLongLeftVariableName `MyLongInfixPatternMatcher` myLongRightVariableName =
|
||||
[myLongLeftVariableName, myLongRightVariableName]
|
||||
|
||||
#test long explicitly bidirectional match
|
||||
{-# LANGUAGE PatternSynonyms #-}
|
||||
pattern myLeftVariableName `MyInfixPatternMatcher` myRightVariableName <-
|
||||
[myLongLeftVariableName, myLongRightVariableName] where
|
||||
MyInfixPatternMatcher x y = [x, x, y]
|
||||
|
||||
#test Pattern synonym types
|
||||
{-# LANGUAGE PatternSynonyms #-}
|
||||
pattern J :: a -> Maybe a
|
||||
pattern J x = Just x
|
||||
|
||||
#test pattern synonym bidirectional multiple cases
|
||||
{-# LANGUAGE PatternSynonyms #-}
|
||||
{-# LANGUAGE ViewPatterns #-}
|
||||
pattern Signed x <- (asSigned -> x) where
|
||||
Signed (Neg x) = -x
|
||||
Signed Zero = 0
|
||||
Signed (Pos x) = x
|
||||
|
||||
#test pattern synonym bidirectional multiple cases long
|
||||
{-# LANGUAGE PatternSynonyms #-}
|
||||
{-# LANGUAGE ViewPatterns #-}
|
||||
pattern Signed xxxxxxxxxxxxxxxxxxxxxxxx <-
|
||||
(asSigned -> xxxxxxxxxxxxxxxxxxxxxxxx) where
|
||||
Signed (Neg x) = -x
|
||||
Signed Zero = 0
|
||||
Signed (Pos x) = x
|
||||
|
||||
#test pattern synonym bidirectional multiple cases with comments
|
||||
{-# LANGUAGE PatternSynonyms #-}
|
||||
{-# LANGUAGE ViewPatterns #-}
|
||||
pattern Signed x <- (asSigned -> x) where
|
||||
Signed (Neg x) = -x -- negative comment
|
||||
Signed Zero = 0 -- zero comment
|
||||
Signed (Pos x) = x -- positive comment
|
||||
|
||||
#test Pattern synonym types multiple names
|
||||
{-# LANGUAGE PatternSynonyms #-}
|
||||
pattern J, K :: a -> Maybe a
|
||||
|
||||
#test Pattern synonym type sig wrapped
|
||||
{-# LANGUAGE PatternSynonyms #-}
|
||||
pattern LongMatcher
|
||||
:: longlongtypevar
|
||||
-> longlongtypevar
|
||||
-> longlongtypevar
|
||||
-> Maybe [longlongtypevar]
|
||||
pattern LongMatcher x y z = Just [x, y, z]
|
||||
|
||||
|
||||
###############################################################################
|
||||
## UnboxedTuples + MagicHash
|
||||
#test unboxed-tuple and vanilla names
|
||||
{-# LANGUAGE UnboxedTuples #-}
|
||||
spanKey :: (# Int, Int #) -> (# Int, Int #)
|
||||
spanKey = case foo of
|
||||
(# bar, baz #) -> (# baz, bar #)
|
||||
|
||||
#test unboxed-tuple and hashed name
|
||||
{-# LANGUAGE MagicHash, UnboxedTuples #-}
|
||||
spanKey :: (# Int#, Int# #) -> (# Int#, Int# #)
|
||||
spanKey = case foo of
|
||||
(# bar#, baz# #) -> (# baz# +# bar#, bar# #)
|
||||
|
||||
|
||||
###############################################################################
|
||||
## QuasiQuotes
|
||||
#test quasi-quotes simple 1
|
||||
{-# LANGUAGE QuasiQuotes #-}
|
||||
func = [blub|
|
||||
asd
|
||||
qwe
|
||||
|]
|
||||
|
||||
#test quasi-quotes simple 2
|
||||
{-# LANGUAGE QuasiQuotes #-}
|
||||
func = [blub|
|
||||
asd
|
||||
qwe|]
|
||||
|
||||
#test quasi-quotes ignoring layouting
|
||||
{-# LANGUAGE QuasiQuotes #-}
|
||||
func = do
|
||||
let body = [json|
|
||||
hello
|
||||
|]
|
||||
pure True
|
||||
|
||||
#test quasi-quotes ignoring layouting, strict mode
|
||||
-- brittany { lconfig_allowHangingQuasiQuotes: False }
|
||||
{-# LANGUAGE QuasiQuotes #-}
|
||||
func = do
|
||||
let
|
||||
body =
|
||||
[json|
|
||||
hello
|
||||
|]
|
||||
pure True
|
||||
|
||||
###############################################################################
|
||||
## OverloadedLabels
|
||||
#test bare label
|
||||
{-# LANGUAGE OverloadedLabels #-}
|
||||
foo = #bar
|
||||
|
||||
#test applied and composed label
|
||||
{-# LANGUAGE OverloadedLabels #-}
|
||||
foo = #bar . #baz $ fmap #foo xs
|
||||
|
||||
###############################################################################
|
||||
## ImplicitParams
|
||||
|
||||
#test IP usage
|
||||
{-# LANGUAGE ImplicitParams #-}
|
||||
foo = ?bar
|
||||
|
||||
#test IP binding
|
||||
{-# LANGUAGE ImplicitParams #-}
|
||||
foo = let ?bar = Foo in value
|
||||
|
||||
#test IP type signature
|
||||
{-# LANGUAGE ImplicitParams #-}
|
||||
foo :: (?bar::Bool) => ()
|
||||
foo = ()
|
||||
|
|
@ -1,874 +0,0 @@
|
|||
###############################################################################
|
||||
###############################################################################
|
||||
###############################################################################
|
||||
#group regression
|
||||
###############################################################################
|
||||
###############################################################################
|
||||
###############################################################################
|
||||
|
||||
#test newlines-comment
|
||||
func = do
|
||||
abc <- foo
|
||||
|
||||
--abc
|
||||
return ()
|
||||
|
||||
#test parenthesis-around-unit
|
||||
func = (())
|
||||
|
||||
#test let-defs indentation
|
||||
func = do
|
||||
let foo True = True
|
||||
foo _ = False
|
||||
return ()
|
||||
|
||||
#test record update indentation 1
|
||||
func = do
|
||||
s <- mGet
|
||||
mSet $ s { _lstate_indent = _lstate_indent state }
|
||||
|
||||
#test record update indentation 2
|
||||
func = do
|
||||
s <- mGet
|
||||
mSet $ s { _lstate_indent = _lstate_indent state
|
||||
, _lstate_foo = _lstate_foo state
|
||||
}
|
||||
|
||||
#test record update indentation 3
|
||||
func = do
|
||||
s <- mGet
|
||||
mSet $ s
|
||||
{ _lstate_indent = _lstate_indent lkasdlkjalsdjlakjsdlkjasldkjalskdjlkajsd
|
||||
, _lstate_foo = _lstate_foo lkasdlkjalsdjlakjsdlkjasldkjalskdjlkajsd
|
||||
}
|
||||
|
||||
#test record construction 1
|
||||
func = Foo { _lstate_indent = _lstate_indent state }
|
||||
|
||||
#test record construction 2
|
||||
func = Foo
|
||||
{ _lstate_indent = _lstate_indent lkasdlkjalsdjlakjsdlkjasldkjalskdjlkajsd
|
||||
, _lstate_fooo = _lstate_foo lkasdlkjalsdjlakjsdlkjasldkjalskdjlkajsd
|
||||
}
|
||||
|
||||
#test record construction 3
|
||||
func = do
|
||||
Foo { _lstate_indent = _lstate_indent lkasdlkjalsdjlakjsdlkjasldkjalskdjlkajsd
|
||||
, _lstate_foo = _lstate_foo lkasdlkjalsdjlakjsdlkjasldkjalskdjlkajsd
|
||||
}
|
||||
|
||||
#test post-indent comment
|
||||
func = do
|
||||
-- abc
|
||||
-- def
|
||||
return ()
|
||||
|
||||
#test post-unindent comment
|
||||
func = do
|
||||
do
|
||||
return ()
|
||||
-- abc
|
||||
-- def
|
||||
return ()
|
||||
|
||||
#test CPP empty comment case
|
||||
#pending CPP parsing needs fixing for roundTripEqual
|
||||
{-# LANGUAGE CPP #-}
|
||||
module Test where
|
||||
func = do
|
||||
#if FOO
|
||||
let x = 13
|
||||
#endif
|
||||
stmt x
|
||||
|
||||
## really, the following should be handled by forcing the Alt to multiline
|
||||
## because there are comments. as long as this is not implemented though,
|
||||
## we should ensure the trivial solution works.
|
||||
#test comment inline placement (temporary)
|
||||
func
|
||||
:: Int -- basic indentation amount
|
||||
-> Int -- currently used width in current line (after indent)
|
||||
-- used to accurately calc placing of the current-line
|
||||
-> LayoutDesc
|
||||
-> Int
|
||||
|
||||
#test some indentation thingy
|
||||
func =
|
||||
( lkjadljasldjalskdjaldjalsdjkalsdjlaksdjlasjdlajsaldskj
|
||||
$ abc
|
||||
$ def
|
||||
$ ghi
|
||||
$ jkl
|
||||
)
|
||||
|
||||
#test parenthesized operator
|
||||
buildG bounds0 edges0 = accumArray (flip (:)) [] bounds0 (map reassoc edges0)
|
||||
where reassoc (v, e, w) = (v, (e, w))
|
||||
|
||||
#test record pattern matching stuff
|
||||
downloadRepoPackage = case repo of
|
||||
RepoLocal {..} -> return ()
|
||||
RepoLocal { abc } -> return ()
|
||||
RepoLocal{} -> return ()
|
||||
|
||||
#test do let comment indentation level problem
|
||||
func = do
|
||||
let (primaryPkg, otherPkgs) = selectPrimaryLocalPackage pwd pkgs'
|
||||
(bproblems, x) = resolveBuildTargets primaryPkg otherPkgs utargets''
|
||||
-- default local dir target if there's no given target
|
||||
utargets'' = "foo"
|
||||
return ()
|
||||
|
||||
#test list comprehension comment placement
|
||||
func =
|
||||
[ (thing, take 10 alts) --TODO: select best ones
|
||||
| (thing, _got, alts@(_ : _)) <- nosuchFooThing
|
||||
, gast <- award
|
||||
]
|
||||
|
||||
#test if-then-else comment placement
|
||||
func = if x
|
||||
then if y -- y is important
|
||||
then foo
|
||||
else bar
|
||||
else Nothing
|
||||
|
||||
#test qualified infix pattern
|
||||
wrapPatPrepend pat prepElem = do
|
||||
patDocs <- layoutPat pat
|
||||
case Seq.viewl patDocs of
|
||||
Seq.EmptyL -> return $ Seq.empty
|
||||
x1 Seq.:< xR -> do
|
||||
x1' <- docSeq [prepElem, return x1]
|
||||
return $ x1' Seq.<| xR
|
||||
|
||||
#test type signature multiline forcing issue
|
||||
layoutWriteNewlineBlock
|
||||
:: ( MonadMultiWriter Text.Builder.Builder m
|
||||
, MonadMultiState LayoutState m
|
||||
, MonadMultiWriter (Seq String) m
|
||||
)
|
||||
=> m ()
|
||||
|
||||
#test multiwayif proper indentation
|
||||
{-# LANGUAGE MultiWayIf #-}
|
||||
readMergePersConfig path shouldCreate conf = do
|
||||
exists <- liftIO $ System.Directory.doesFileExist path
|
||||
if
|
||||
| exists -> do
|
||||
contents <- liftIO $ ByteString.readFile path -- no lazy IO, tyvm.
|
||||
fileConf <- case Data.Yaml.decodeEither contents of
|
||||
Left e -> do
|
||||
liftIO
|
||||
$ putStrErrLn
|
||||
$ "error reading in brittany config from "
|
||||
++ path
|
||||
++ ":"
|
||||
liftIO $ putStrErrLn e
|
||||
mzero
|
||||
Right x -> return x
|
||||
return $ fileConf Semigroup.<> conf
|
||||
| shouldCreate -> do
|
||||
liftIO $ ByteString.writeFile path $ Data.Yaml.encode $ cMap
|
||||
(Option . Just . runIdentity)
|
||||
staticDefaultConfig
|
||||
return $ conf
|
||||
| otherwise -> do
|
||||
return conf
|
||||
|
||||
#test nested pattern alignment issue"
|
||||
func = BuildReport
|
||||
where
|
||||
convertInstallOutcome = case result of
|
||||
Left BR.PlanningFailed -> PlanningFailed
|
||||
Left (BR.DependentFailed p) -> DependencyFailed p
|
||||
Left (BR.DownloadFailed _) -> DownloadFailed
|
||||
Left (BR.UnpackFailed _) -> UnpackFailed
|
||||
Left (BR.ConfigureFailed _) -> ConfigureFailed
|
||||
Left (BR.BuildFailed _) -> BuildFailed
|
||||
Left (BR.TestsFailed _) -> TestsFailed
|
||||
Left (BR.InstallFailed _) -> InstallFailed
|
||||
Right (BR.BuildOk _ _ _ ) -> InstallOk
|
||||
|
||||
#test nested pattern alignment issue"
|
||||
func = BuildReport
|
||||
where
|
||||
convertInstallOutcome = case result of
|
||||
Left BR.PlanningFailed -> PlanningFailed
|
||||
Left (BR.DependentFailed p) -> DependencyFailed p
|
||||
Left (BR.DownloadFailed _) -> DownloadFailed
|
||||
Left (BR.UnpackFailed _) -> UnpackFailed
|
||||
Left (BR.ConfigureFailed _) -> ConfigureFailed
|
||||
Left (BR.BuildFailed _) -> BuildFailed
|
||||
Left (BR.TestsFailed _) -> TestsFailed
|
||||
Left (BR.InstallFailed _) -> InstallFailed
|
||||
Right (BR.BuildOk _ _ _ ) -> InstallOk
|
||||
|
||||
#test partially overflowing alignment issue"
|
||||
showPackageDetailedInfo pkginfo =
|
||||
renderStyle (style { lineLength = 80, ribbonsPerLine = 1 })
|
||||
$ char '*'
|
||||
$+$ something
|
||||
[ entry "Synopsis" synopsis hideIfNull reflowParagraphs
|
||||
, entry "Versions available"
|
||||
sourceVersions
|
||||
(altText null "[ Not available from server ]")
|
||||
(dispTopVersions 9 (preferredVersions pkginfo))
|
||||
, entry
|
||||
"Versions installed"
|
||||
installedVersions
|
||||
(altText
|
||||
null
|
||||
(if hasLib pkginfo then "[ Not installed ]" else "[ Unknown ]")
|
||||
)
|
||||
(dispTopVersions 4 (preferredVersions pkginfo))
|
||||
, entry "Homepage" homepage orNotSpecified text
|
||||
, entry "Bug reports" bugReports orNotSpecified text
|
||||
, entry "Description" description hideIfNull reflowParagraphs
|
||||
, entry "Category" category hideIfNull text
|
||||
, entry "License" license alwaysShow disp
|
||||
, entry "Author" author hideIfNull reflowLines
|
||||
, entry "Maintainer" maintainer hideIfNull reflowLines
|
||||
, entry "Source repo" sourceRepo orNotSpecified text
|
||||
, entry "Executables" executables hideIfNull (commaSep text)
|
||||
, entry "Flags" flags hideIfNull (commaSep dispFlag)
|
||||
, entry "Dependencies" dependencies hideIfNull (commaSep dispExtDep)
|
||||
, entry "Documentation" haddockHtml showIfInstalled text
|
||||
, entry "Cached" haveTarball alwaysShow dispYesNo
|
||||
, if not (hasLib pkginfo)
|
||||
then empty
|
||||
else text "Modules:"
|
||||
$+$ nest 4 (vcat (map disp . sort . modules $ pkginfo))
|
||||
]
|
||||
|
||||
#test issue 7a
|
||||
isValidPosition position | validX && validY = Just position
|
||||
| otherwise = Nothing
|
||||
|
||||
#test issue-6-pattern-linebreak-validity
|
||||
## this is ugly, but at least syntactically valid.
|
||||
foo = Reflex.runSpiderHost $ ReflexHost.hostApp $ do
|
||||
(inputEvent :: Reflex.Event Reflex.Spider String, inputFire :: String
|
||||
-> IO Bool ) <-
|
||||
ReflexHost.newExternalEvent
|
||||
liftIO . forkIO . forever $ getLine >>= inputFire
|
||||
ReflexHost.performEvent_ $ fmap (liftIO . putStrLn) inputEvent
|
||||
|
||||
#test issue 16
|
||||
foldrDesc f z = unSwitchQueue $ \q ->
|
||||
switch (Min.foldrDesc (f unTaggedF) z q) (Min.foldrAsc (f unTaggedF) z q)
|
||||
|
||||
#test issue 18
|
||||
autocheckCases =
|
||||
[ ("Never Deadlocks" , representative deadlocksNever)
|
||||
, ("No Exceptions" , representative exceptionsNever)
|
||||
, ("Consistent Result", alwaysSame) -- already representative
|
||||
]
|
||||
|
||||
#test issue 18b
|
||||
autocheckCases =
|
||||
[ ("Never Deadlocks", representative deadlocksNever)
|
||||
, ("No Exceptions" , representative exceptionsNever)
|
||||
, ( "Consistent Result"
|
||||
, alwaysSame -- already representative
|
||||
)
|
||||
]
|
||||
|
||||
#test issue 18c
|
||||
func =
|
||||
[ (abc, (1111, 1111))
|
||||
, (def, (2, 2))
|
||||
, foo -- comment
|
||||
]
|
||||
|
||||
#test issue 26
|
||||
foo a b = g a b -- fooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo
|
||||
where g a b = b + b * a
|
||||
|
||||
#test issue 26b
|
||||
foo a b = g a b where g a b = b + b * a -- fooooooooooooooooooooooooooooooooooo
|
||||
|
||||
#test aggressive alignment 1
|
||||
func = do
|
||||
abc <- expr
|
||||
abcccccccccccccccccc <- expr
|
||||
abcccccccccccccccccccccccccccccccccccccccccc <- expr
|
||||
abccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc <- expr
|
||||
|
||||
#test example alignment 1
|
||||
func (MyLongFoo abc def) = 1
|
||||
func (Bar a d ) = 2
|
||||
func _ = 3
|
||||
|
||||
#test listcomprehension-case-of
|
||||
parserCompactLocation =
|
||||
[ try
|
||||
$ [ ParseRelAbs (Text.Read.read digits) _ _
|
||||
| digits <- many1 digit
|
||||
, rel1 :: Maybe (Either Int (Ratio Int)) <- optionMaybe
|
||||
[ case divPart of
|
||||
Nothing -> Left $ Text.Read.read digits
|
||||
Just ddigits ->
|
||||
Right $ Text.Read.read digits % Text.Read.read ddigits
|
||||
| digits <- many1 digit
|
||||
, divPart <- optionMaybe (string "/" *> many1 digit)
|
||||
]
|
||||
]
|
||||
]
|
||||
|
||||
#test opapp-specialcasing-1
|
||||
func = fooooooooooooooooooooooooooooooooo $ foooooooooooooooooooooooooooooooo
|
||||
foooooooooooooooooooooooooooooooo
|
||||
foooooooooooooooooooooooooooooooo
|
||||
|
||||
#test opapp-specialcasing-2
|
||||
func =
|
||||
fooooooooooooooooooooooooooooooooo
|
||||
+ foooooooooooooooooooooooooooooooo foooooooooooooooooooooooooooooooo
|
||||
foooooooooooooooooooooooooooooooo
|
||||
|
||||
#test opapp-specialcasing-3
|
||||
func = fooooooooooooooooooooooooooooooooo + foooooooooooooooooooooooooooooooo
|
||||
[ foooooooooooooooooooooooooooooooo
|
||||
, foooooooooooooooooooooooooooooooo
|
||||
, foooooooooooooooooooooooooooooooo
|
||||
]
|
||||
|
||||
#test opapp-indenting
|
||||
parserPrim =
|
||||
[ r
|
||||
| r <-
|
||||
[ SGPPrimFloat $ bool id (0 -) minus $ readGnok "parserPrim"
|
||||
(d1 ++ d2 ++ d3 ++ d4)
|
||||
| d2 <- string "."
|
||||
, d3 <- many1 (oneOf "0123456789")
|
||||
, _ <- string "f"
|
||||
]
|
||||
<|> [ SGPPrimFloat $ bool id (0 -) minus $ fromIntegral
|
||||
(readGnok "parserPrim" d1 :: Integer)
|
||||
| _ <- string "f"
|
||||
]
|
||||
<|> [ SGPPrimInt $ bool id (0 -) minus $ fromIntegral
|
||||
(readGnok "parserPrim" d1 :: Integer)
|
||||
| _ <- string "i"
|
||||
]
|
||||
]
|
||||
|
||||
#test another-parspacing-testcase
|
||||
|
||||
samples = (SV.unpackaaaaadat) <&> \f ->
|
||||
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
|
||||
|
||||
#test recordupd-singleline-bug
|
||||
|
||||
runBrittany tabSize text = do
|
||||
let config' = staticDefaultConfig
|
||||
config = config'
|
||||
{ _conf_layout = (_conf_layout config')
|
||||
{ _lconfig_indentAmount = coerce tabSize
|
||||
}
|
||||
, _conf_forward = forwardOptionsSyntaxExtsEnabled
|
||||
}
|
||||
parsePrintModule config text
|
||||
|
||||
#test recordupd-singleline-bug-left
|
||||
|
||||
-- brittany { lconfig_indentPolicy: IndentPolicyLeft }
|
||||
runBrittany tabSize text = do
|
||||
let
|
||||
config' = staticDefaultConfig
|
||||
config = config'
|
||||
{ _conf_layout = (_conf_layout config')
|
||||
{ _lconfig_indentAmount = coerce tabSize
|
||||
}
|
||||
, _conf_forward = forwardOptionsSyntaxExtsEnabled
|
||||
}
|
||||
parsePrintModule config text
|
||||
|
||||
#test issue 37
|
||||
|
||||
foo =
|
||||
( a
|
||||
, -- comment1
|
||||
b
|
||||
-- comment2
|
||||
, c
|
||||
)
|
||||
|
||||
#test issue 38
|
||||
|
||||
{-# LANGUAGE TypeApplications #-}
|
||||
foo = bar @Baz
|
||||
|
||||
#test comment-before-BDCols
|
||||
{-# LANGUAGE TypeApplications #-}
|
||||
layoutPatternBindFinal alignmentToken binderDoc mPatDoc clauseDocs = do
|
||||
docAlt
|
||||
$ -- one-line solution
|
||||
[ docCols
|
||||
(ColBindingLine alignmentToken)
|
||||
[ docSeq (patPartInline ++ [guardPart])
|
||||
, docSeq
|
||||
[ appSep $ return binderDoc
|
||||
, docForceSingleline $ return body
|
||||
, wherePart
|
||||
]
|
||||
]
|
||||
| not hasComments
|
||||
, [(guards, body, _bodyRaw)] <- [clauseDocs]
|
||||
, let guardPart = singleLineGuardsDoc guards
|
||||
, wherePart <- case mWhereDocs of
|
||||
Nothing -> return @[] $ docEmpty
|
||||
Just [w] -> return @[] $ docSeq
|
||||
[ docSeparator
|
||||
, appSep $ docLit $ Text.pack "where"
|
||||
, docSetIndentLevel $ docForceSingleline $ return w
|
||||
]
|
||||
_ -> []
|
||||
]
|
||||
++ -- one-line solution + where in next line(s)
|
||||
[ docLines
|
||||
$ [ docCols
|
||||
(ColBindingLine alignmentToken)
|
||||
[ docSeq (patPartInline ++ [guardPart])
|
||||
, docSeq
|
||||
[appSep $ return binderDoc, docForceParSpacing $ return body]
|
||||
]
|
||||
]
|
||||
++ wherePartMultiLine
|
||||
| [(guards, body, _bodyRaw)] <- [clauseDocs]
|
||||
, let guardPart = singleLineGuardsDoc guards
|
||||
, Data.Maybe.isJust mWhereDocs
|
||||
]
|
||||
++ -- two-line solution + where in next line(s)
|
||||
[ docLines
|
||||
$ [ docForceSingleline
|
||||
$ docSeq (patPartInline ++ [guardPart, return binderDoc])
|
||||
, docEnsureIndent BrIndentRegular $ docForceSingleline $ return
|
||||
body
|
||||
]
|
||||
++ wherePartMultiLine
|
||||
| [(guards, body, _bodyRaw)] <- [clauseDocs]
|
||||
, let guardPart = singleLineGuardsDoc guards
|
||||
]
|
||||
|
||||
#test comment-testcase-17
|
||||
{-# LANGUAGE MultiWayIf #-}
|
||||
func = do
|
||||
let foo = if
|
||||
| Constuctoooooooooooooooooooooooooooooooooooor `elem` artics -- TODO
|
||||
-> max
|
||||
(defLen - 0.2) -- TODO
|
||||
(defLen * 0.8)
|
||||
| otherwise -> max (defLen - 0.05) (defLen * 0.95) -- TODO
|
||||
return True
|
||||
|
||||
#test issue 49
|
||||
|
||||
foo n = case n of
|
||||
1 -> True
|
||||
-1 -> False
|
||||
|
||||
bar n = case n of
|
||||
(-2, -2) -> (-2, -2)
|
||||
|
||||
#test issue 48 b
|
||||
|
||||
{-# LANGUAGE TypeApplications #-}
|
||||
foo =
|
||||
let a = b @1
|
||||
cccc = ()
|
||||
in foo
|
||||
|
||||
#test issue 52 a
|
||||
|
||||
{-# LANGUAGE RecordWildCards #-}
|
||||
v = A { a = 1, .. } where b = 2
|
||||
|
||||
#test issue 52 b
|
||||
|
||||
{-# LANGUAGE RecordWildCards #-}
|
||||
v = A { .. } where b = 2
|
||||
|
||||
#test issue 52 c
|
||||
|
||||
{-# LANGUAGE RecordWildCards #-}
|
||||
v = A { a = 1, b = 2, c = 3 }
|
||||
|
||||
#test issue 63 a
|
||||
test :: Proxy 'Int
|
||||
|
||||
#test issue 63 b
|
||||
test :: Proxy '[ 'True]
|
||||
|
||||
#test issue 63 c
|
||||
test :: Proxy '[Bool]
|
||||
|
||||
#test issue 64
|
||||
{-# LANGUAGE RankNTypes, KindSignatures #-}
|
||||
func
|
||||
:: forall m str
|
||||
. (Str str, Monad m)
|
||||
=> Int
|
||||
-> Proxy (str :: [*])
|
||||
-> m (Tagged str String)
|
||||
|
||||
#test issue 65
|
||||
widgetsDyn =
|
||||
[ [ vBox
|
||||
[ padTop Max outputLinesWidget
|
||||
, padRight Max wid1 <+> flowWidget -- alignment here is strange/buggy
|
||||
, padBottom (Pad 5) help
|
||||
]
|
||||
]
|
||||
| wid1 <- promptDyn
|
||||
, (flowWidget, _) <- flowResultD
|
||||
, outputLinesWidget <- outputLinesWidgetD
|
||||
, help <- suggestionHelpBox
|
||||
, parser <- cmdParserD
|
||||
]
|
||||
|
||||
#test issue 67
|
||||
fmapuv :: U.Unbox a => (a -> b) -> U.Vector a -> V.Vector b
|
||||
fmapuv f xs = G.generate (G.length xs) (f . (xs G.!))
|
||||
|
||||
|
||||
#test parallellistcomp-workaround
|
||||
cs0 = 0 : [ c / Interval n | c <- cs | n <- [1..] ]
|
||||
|
||||
#test issue 70
|
||||
{-# LANGUAGE TemplateHaskell #-}
|
||||
deriveFromJSON (unPrefix "assignPost") ''AssignmentPost
|
||||
|
||||
#test issue 110
|
||||
main = -- a
|
||||
let --b
|
||||
x = 1 -- x
|
||||
y = 2 -- y
|
||||
in do
|
||||
print x
|
||||
print y
|
||||
|
||||
#test issue 111
|
||||
alternatives :: Parser (Maybe Text)
|
||||
alternatives =
|
||||
alternativeOne -- first try this one
|
||||
<|> alterantiveTwo -- then this one
|
||||
<|> alternativeThree -- then this one
|
||||
where
|
||||
alternativeOne = purer "one"
|
||||
alternativeTwo = purer "two"
|
||||
alterantiveThree = purer "three"
|
||||
|
||||
#test issue 116
|
||||
{-# LANGUAGE BangPatterns #-}
|
||||
func = do
|
||||
let !forced = some
|
||||
pure ()
|
||||
|
||||
#test let-in-hanging
|
||||
spanKey p q = case minViewWithKey q of
|
||||
Just ((k, _), q') | p k ->
|
||||
let (kas, q'') = spanKey p q' in ((k, a) : kas, q'')
|
||||
_ -> ([], q)
|
||||
|
||||
#test issue 125
|
||||
a :: () ':- ()
|
||||
|
||||
#test issue 128
|
||||
func = do
|
||||
createDirectoryIfMissing True path
|
||||
openFile fileName AppendMode
|
||||
|
||||
#test hspar-comments
|
||||
|
||||
alternatives :: Parser (Maybe Text)
|
||||
alternatives = -- a
|
||||
( -- b
|
||||
alternativeOne -- c
|
||||
<|> alterantiveTwo -- d
|
||||
<|> alternativeThree -- e
|
||||
) -- f
|
||||
|
||||
#test issue 133
|
||||
{-# LANGUAGE ScopedTypeVariables #-}
|
||||
func
|
||||
:: forall a
|
||||
. ()
|
||||
=> aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
|
||||
-> aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
|
||||
func
|
||||
:: ()
|
||||
=> aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
|
||||
-> aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
|
||||
|
||||
#test alignment-potential-overflow
|
||||
go l [] = Right l
|
||||
go l ((IRType, _a) : eqr) = go l eqr
|
||||
go l ((_, IRType) : eqr) = go l eqr
|
||||
go _ ((IRTypeError ps t1 t2, _) : _) = Left $ makeError ps t1 t2
|
||||
go _ ((_, IRTypeError ps t1 t2) : _) = Left $ makeError ps t1 t2
|
||||
|
||||
#test issue 89 - type-family-instance
|
||||
type instance XPure StageParse = ()
|
||||
type Pair a = (a, a)
|
||||
|
||||
#test issue 144
|
||||
-- brittany { lconfig_indentAmount: 4, lconfig_indentPolicy: IndentPolicyMultiple }
|
||||
dsfnjKeekbwwbosbOfakxqRsiyix cnehokzozwbVaguvu migbnaRwutbz =
|
||||
let
|
||||
eyuAfrarIso'
|
||||
:: (RveoexdxunuAafalm -> Axlau (Axlau (a, OinejrdCplle)))
|
||||
-> Gbodoy
|
||||
-> Axlau (Axlau OinejrdCplle, Gbodoy)
|
||||
eyuAfrarIso' = ulcPaaekBst cnehokzozwbVaguvu
|
||||
amkgoxEhalazJjxunecCuIfaw
|
||||
:: Axlau (Axlau OinejrdCplle, Gbodoy) -> Axlau RqlnrluYqednbCiggxi
|
||||
amkgoxEhalazJjxunecCuIfaw uKqviuBisjtn = do
|
||||
(sEmo, quc) <- uKqviuBisjtn
|
||||
pure (xoheccewfWoeyiagOkfodiq sEmo quc)
|
||||
xoheccewfWoeyiagOkfodiq
|
||||
:: Axlau OinejrdCplle -> Gbodoy -> RqlnrluYqednbCiggxi
|
||||
xoheccewfWoeyiagOkfodiq sEmo quc = case migbnaRwutbz of
|
||||
Afogmf -> xgeqe (OfBkkuih quc) (Ciitog quc) sEmo
|
||||
in QabqyilexuiNizzhsQuxxac migbnaRwutbz (hwaTihhjt lhowvscIiozgqe)
|
||||
|
||||
#test issue 159
|
||||
spec = do
|
||||
it "creates a snapshot at the given level" . withGraph runDB $ do
|
||||
lift $ do
|
||||
studentDiagnosticReadingLevel updatedStudent `shouldBe` Just 10 -- x
|
||||
elaSnapshotReadingLevel snapshot `shouldBe` 12
|
||||
|
||||
#test non-bottom-specialcase-altsearch
|
||||
jaicyhHumzo btrKpeyiFej mava = do
|
||||
m :: VtohxeRgpmgsu <- qloxIfiq mava
|
||||
case m of
|
||||
ZumnaoFujayerIswadabo kkecm chlixxag -> do
|
||||
imomue <- ozisduRaqiseSBAob btrKpeyiFej $ \s ->
|
||||
case MizA.pigevo kkecm (_tc_gulawulu s) of
|
||||
Ebocaba ->
|
||||
( s { _tc_gulawulu = MizA.jxariu kkecm rwuRqxzhjo (_tc_gulawulu s) }
|
||||
, Gtzvonm
|
||||
)
|
||||
Xcde{} -> (s, Pioemav)
|
||||
pure imomue
|
||||
|
||||
#test issue 214
|
||||
-- brittany { lconfig_indentPolicy: IndentPolicyMultiple }
|
||||
foo = bar
|
||||
arg1 -- this is the first argument
|
||||
arg2 -- this is the second argument
|
||||
arg3 -- this is the third argument, now I'll skip one comment
|
||||
arg4
|
||||
arg5 -- this is the fifth argument
|
||||
arg6 -- this is the sixth argument
|
||||
|
||||
#test issue 234
|
||||
|
||||
True `nand` True = False
|
||||
nand _ _ = True
|
||||
|
||||
nor False False = True
|
||||
_ `nor` _ = False
|
||||
|
||||
#test issue 256 prefix operator match
|
||||
|
||||
f ((:) a as) = undefined
|
||||
|
||||
#test issue 228 lambda plus lazy or bang pattern
|
||||
|
||||
{-# LANGUAGE BangPatterns #-}
|
||||
a = \x -> x
|
||||
b = \ ~x -> x
|
||||
c = \ !x -> x
|
||||
d = \(~x) -> x
|
||||
|
||||
#test type signature with forall and constraint
|
||||
{-# LANGUAGE RankNTypes #-}
|
||||
func :: forall b . Show b => b -> String
|
||||
|
||||
#test issue 267
|
||||
|
||||
{-# LANGUAGE TypeFamilies #-}
|
||||
f :: ((~) a b) => a -> b
|
||||
f = id
|
||||
|
||||
#test large record update
|
||||
-- brittany { lconfig_indentPolicy: IndentPolicyLeft }
|
||||
vakjkeSulxudbFokvir = Duotpo
|
||||
{ _ekku_gcrpbze = xgonae (1 :: Int)
|
||||
, _oola_louwu = FoqsiYcuidx
|
||||
{ _xxagu_umea_iaztoj = xgonae False
|
||||
, _tuktg_tizo_kfikacygsqf = xgonae False
|
||||
, _ahzbo_xpow_otq_nzeyufq = xgonae False
|
||||
, _uagpi_lzps_luy_xcjn = xgonae False
|
||||
, _dxono_qjef_aqtafq_bes = xgonae False
|
||||
, _yzuaf_nviy_vuhwxe_ihnbo_uhw = xgonae False
|
||||
, _iwcit_fzjs_yerakt_dicox_mtryitko = xgonae False
|
||||
, _ehjim_ucfe_dewarp_newrt_gso = xgonae False
|
||||
, _ogtxb_ivoj_amqgai_rttui_xuwhetb = xgonae False
|
||||
, _bhycb_iexz_megaug_qunoa_ohaked = xgonae False
|
||||
, _nnmbe_uqgt_ewsuga_vaiis = xgonae False
|
||||
, _otzil_ucvugaiyj_aosoiatunx_asir = xgonae False
|
||||
}
|
||||
, _iwsc_lalojz = XqspaiDainqw
|
||||
{ _uajznac_ugah = xgonae (80 :: Int)
|
||||
, _qayziku_gazibzDejipj = xgonae DewizeCxwgyiKjig
|
||||
, _auhebll_fiqjxyArfxia = xgonae (2 :: Int)
|
||||
, _zubfuhq_dupiwnIoophXameeet = xgonae True
|
||||
, _oavnuqg_opkreyOufuIkifiin = xgonae True
|
||||
, _ufojfwy_fhuzcePeqwfu = xgonae (50 :: Int)
|
||||
, _mlosikq_zajdxxSeRoelpf = xgonae (50 :: Int)
|
||||
, _heemavf_fjgOfoaikh = xgonae (FyoVfvdygaZuzuvbeWarwuq 3)
|
||||
, _ohxmeoq_ogtbfoPtqezVseu = xgonae (EdjotoLcbapUdiuMmytwoig 0.7)
|
||||
, _omupuiu_ituamexjuLccwu = xgonae (30 :: Int)
|
||||
, _xoseksf_atvwwdwaoHanofMyUvujjopoz = xgonae True
|
||||
, _umuuuat_nuamezwWeqfUqzrnaxwp = xgonae False
|
||||
, _uuriguz_wixhutbuKecigaFiwosret = xgonae True
|
||||
, _betohxp_scixaLsvcesErtwItxrnaJmuz = xgonae False
|
||||
, _lchxgee_olaetGcqzuqxVujenCzexub = xgonae True
|
||||
, _egeibao_imamkuigqikhZdcbpidokVcixiqew = xgonae False
|
||||
}
|
||||
, _nloo_cfmrgZcisiugk = YuwodSavxwnicBekuel
|
||||
{ _oebew_rrtpvthUzlizjAqIwesly = xgonae False
|
||||
, _blkff_Acxoid = xgonae False
|
||||
, _datei_YewolAowoqOpunvpgu = xgonae BeekgUzojaPnixxaruJehyPmnnfu
|
||||
, _ejfrj_eheb_justvh_pumcp_ismya = xgonae False
|
||||
}
|
||||
, _kena_uzeddovosoki = NyoRvshullezUpauud
|
||||
{ _mtfuwi_TUVEmoi = xgonae RZXKoytUtogx
|
||||
, _larqam_adaxPehaylZafeqgpc = xgonae False
|
||||
}
|
||||
, _spob_qipaarx = KaxavsmOtoyeaq { _rusrirw_okx = Tajemkix [] }
|
||||
, _vmah_uivucnfka_ikaquebxay_gzcm = xgonae False
|
||||
, _qaqb_eykzuyuwi = xgonae False
|
||||
-- test comment
|
||||
}
|
||||
|
||||
#test large record wildcard comment
|
||||
|
||||
-- brittany { lconfig_indentPolicy: IndentPolicyLeft }
|
||||
vakjkeSulxudbFokvir = Duotpo
|
||||
{ _ekku_gcrpbze = xgonae (1 :: Int)
|
||||
, _spob_qipaarx = KaxavsmOtoyeaq { _rusrirw_okx = Tajemkix [] }
|
||||
, _vmah_uivucnfka_ikaquebxay_gzcm = xgonae False
|
||||
, _qaqb_eykzuyuwi = xgonae False
|
||||
-- test comment
|
||||
, -- N.B.
|
||||
.. -- x
|
||||
}
|
||||
|
||||
#test issue 263
|
||||
|
||||
func = abc + def
|
||||
-- a
|
||||
-- b
|
||||
|
||||
-- comment
|
||||
|
||||
where
|
||||
abc = 13
|
||||
def = 1
|
||||
|
||||
#test AddBaseY/EnsureIndent float in effect
|
||||
|
||||
zItazySunefp twgq nlyo lwojjoBiecao =
|
||||
let mhIarjyai =
|
||||
ukwAausnfcn
|
||||
$ XojlsTOSR.vuwOvuvdAZUOJaa
|
||||
$ XojlsTOSR.vkesForanLiufjeDI
|
||||
$ XojlsTOSR.vkesForanLiufjeDI
|
||||
$ XojlsTOSR.popjAyijoWarueeP
|
||||
$ XojlsTOSR.jpwuPmafuDqlbkt nlyo
|
||||
$ XojlsTOSR.jpwuPmafuDqlbkt xxneswWhxwng
|
||||
$ XojlsTOSR.jpwuPmafuDqlbkt oloCuxeDdow
|
||||
$ XojlsTOSR.jpwuPmafuDqlbkt (uwurrvoNnukzefuDjeh lwojjoBiecao nlyo)
|
||||
$ etOslnoz lwojjoBiecao
|
||||
in kucotg $ (bbbr, Yoxe.Dwzbuzi.zrLokoTnuy piv)
|
||||
|
||||
#test module initial comment
|
||||
-- test
|
||||
module MyModule where
|
||||
|
||||
#test issue 231
|
||||
|
||||
foo =
|
||||
[ ("xxx", "xx")
|
||||
, --
|
||||
("xx" , "xx")
|
||||
--
|
||||
, ("xx" , "xxxxx")
|
||||
, ("xx" , "xx")
|
||||
]
|
||||
|
||||
#test issue 231 not
|
||||
|
||||
foo =
|
||||
[ ("xx", "xx")
|
||||
, ( "xx" --
|
||||
, "xx"
|
||||
)
|
||||
, ("xx", "xxxxx")
|
||||
, ("xx", "xx")
|
||||
]
|
||||
|
||||
#test issue 281
|
||||
|
||||
module Main
|
||||
( DataTypeI
|
||||
, DataTypeII(DataConstructor)
|
||||
-- * Haddock heading
|
||||
, name
|
||||
) where
|
||||
|
||||
#test type level list
|
||||
|
||||
xeoeqibIaib
|
||||
:: ( KqujhIsaus m
|
||||
, XivuvIpoboi Droqifim m
|
||||
, IgorvOtowtf m
|
||||
, RyagaYaqac m
|
||||
, QouruDU m
|
||||
)
|
||||
=> MaptAdfuxgu
|
||||
-> Zcnxg NsxayqmvIjsezea -- ^ if Lvqucoo, opsip jl reyoyhk lfil qaculxgd
|
||||
-> QNOZqwuzg
|
||||
-> Eoattuq
|
||||
'[ XkatytdWdquraosu -- test comment
|
||||
, KyezKijim -- another test comment
|
||||
, DjmioeePuoeg
|
||||
, NinrxoiOwezc
|
||||
, QATAlrijacpk
|
||||
, TrutvotwIwifiqOjdtu
|
||||
, CoMmuatjwr
|
||||
, BoZckzqyodseZole
|
||||
, VagfwoXaeChfqe
|
||||
]
|
||||
m
|
||||
()
|
||||
|
||||
#test recordupd-overflow-bad-multiline-spacing
|
||||
|
||||
createRedirectedProcess processConfig = do
|
||||
let redirectedProc = (_processConfig_inner processConfig)
|
||||
{ std_in = CreatePipe
|
||||
, std_out = CreatePipe
|
||||
, std_err = CreatePipe
|
||||
}
|
||||
foo
|
||||
|
||||
#test issue 282
|
||||
|
||||
instance HasDependencies SomeDataModel where
|
||||
-- N.B. Here is a bunch of explanatory context about the relationship
|
||||
-- between these data models or whatever.
|
||||
type Dependencies SomeDataModel
|
||||
= (SomeOtherDataModelId, SomeOtherOtherDataModelId)
|
||||
|
||||
#test stupid-do-operator-combination
|
||||
|
||||
func =
|
||||
do
|
||||
y
|
||||
>>= x
|
||||
|
|
@ -1,35 +0,0 @@
|
|||
###############################################################################
|
||||
###############################################################################
|
||||
###############################################################################
|
||||
#group pending
|
||||
###############################################################################
|
||||
###############################################################################
|
||||
###############################################################################
|
||||
|
||||
|
||||
|
||||
## this testcase is not about idempotency, but about _how_ the output differs
|
||||
## from the input; i cannot really express this yet with the current
|
||||
## test-suite.
|
||||
## #test ayaz
|
||||
##
|
||||
## myManageHook =
|
||||
## composeOne [isFullscreen -?> doFullFloat, isDialog -?> doFloat, transience]
|
||||
## <+> composeAll
|
||||
## [ className =? "Pidgin" --> doFloat
|
||||
## , className =? "XCalc" --> doFloat
|
||||
## -- plan9port's acme
|
||||
## , className =? "acme" --> doFloat
|
||||
## -- Acme with Vi bindings editor
|
||||
## , title =? "ED" --> doFloat
|
||||
## , title =? "wlc-x11" --> doFloat
|
||||
## , className =? "Skype" --> doFloat
|
||||
## , className =? "ffplay" --> doFloat
|
||||
## , className =? "mpv" --> doFloat
|
||||
## , className =? "Plugin-container" --> doFloat -- Firefox flash, etc.
|
||||
## -- Firefox works well tiled, but it has dialog windows we want to float.
|
||||
## , appName =? "Browser" --> doFloat
|
||||
## ]
|
||||
## where
|
||||
## role = stringProperty "WM_WINDOW_ROLE"
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
|
|
@ -1,42 +0,0 @@
|
|||
###############################################################################
|
||||
###############################################################################
|
||||
###############################################################################
|
||||
#group indent-policy-multiple
|
||||
###############################################################################
|
||||
###############################################################################
|
||||
###############################################################################
|
||||
|
||||
#test long
|
||||
-- brittany { lconfig_indentAmount: 4, lconfig_indentPolicy: IndentPolicyMultiple }
|
||||
func =
|
||||
mweroiuxlskdfjlksjdflkjsdfljksldkjflkjsdflkj
|
||||
+ mweroiuxlskdfjlksjdflkjsdfljksldkjflkjsdflkj
|
||||
|
||||
#test let indAmount=4
|
||||
-- brittany { lconfig_indentAmount: 4, lconfig_indentPolicy: IndentPolicyMultiple }
|
||||
foo = do
|
||||
let aaaaaaaaaaaaaaaaaaaaaaaaaaaaaa =
|
||||
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaa + aaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
|
||||
foo
|
||||
|
||||
#test let indAmount=8
|
||||
-- brittany { lconfig_indentAmount: 8, lconfig_indentPolicy: IndentPolicyMultiple }
|
||||
foo = do
|
||||
let aaaaaaaaaaaaaaaaaaaaaaaaaaaaaa =
|
||||
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaa + aaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
|
||||
foo
|
||||
foo = do
|
||||
let aaaaaaaaaaaaaaaaaaaaaaaaaaaaaa =
|
||||
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
|
||||
+ aaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
|
||||
+ aaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
|
||||
foo
|
||||
|
||||
#test nested do-block
|
||||
-- brittany { lconfig_indentAmount: 4, lconfig_indentPolicy: IndentPolicyMultiple }
|
||||
foo = asdyf8asdf
|
||||
"ajsdfas"
|
||||
[ asjdf asyhf $ do
|
||||
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
|
||||
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
|
||||
]
|
||||
|
|
@ -0,0 +1 @@
|
|||
func :: a -> a
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
func
|
||||
:: lkasdlkjalsdjlakjsdlkjasldkjalskdjlkajsd
|
||||
-> (lakjsdlkjasldkj -> lakjsdlkjasldkj)
|
||||
|
|
@ -0,0 +1 @@
|
|||
func = klajsdas klajsdas klajsdas
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
func = lakjsdlajsdljasdlkjasldjasldjasldjalsdjlaskjd
|
||||
lakjsdlajsdljasdlkjasldjasldjasldjalsdjlaskjd
|
||||
lakjsdlajsdljasdlkjasldjasldjasldjalsdjlaskjd
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
func = lakjsdlajsdljasdlkjasldjasldjasldjalsdjlaskjd lakjsdlajsdljas
|
||||
lakjsdlajsdljas
|
||||
lakjsdlajsdljas
|
||||
|
|
@ -0,0 +1 @@
|
|||
func = (1 +)
|
||||
|
|
@ -0,0 +1 @@
|
|||
func = (+ 1)
|
||||
|
|
@ -0,0 +1 @@
|
|||
func = (1 `abc`)
|
||||
|
|
@ -0,0 +1 @@
|
|||
func = (`abc` 1)
|
||||
|
|
@ -0,0 +1 @@
|
|||
func = (abc, def)
|
||||
|
|
@ -0,0 +1 @@
|
|||
func = (abc, )
|
||||
|
|
@ -0,0 +1 @@
|
|||
func = (, abc)
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
func
|
||||
:: (lkasdlkjalsdjlakjsdlkjasldkjalskdjlkajsd -> lakjsdlkjasldkj)
|
||||
-> lakjsdlkjasldkj
|
||||
|
|
@ -0,0 +1,6 @@
|
|||
myTupleSection =
|
||||
( verylaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaargefirstelement
|
||||
,
|
||||
, verylaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaargethirdelement
|
||||
,
|
||||
)
|
||||
|
|
@ -0,0 +1,4 @@
|
|||
func =
|
||||
( lakjsdlajsdljasdlkjasldjasldjasldjalsdjlaskjd
|
||||
, lakjsdlajsdljasdlkjasldjasldjasldjalsdjlaskjd
|
||||
)
|
||||
|
|
@ -0,0 +1,6 @@
|
|||
foo = if True
|
||||
then
|
||||
-- iiiiii
|
||||
"a "
|
||||
else
|
||||
"b "
|
||||
|
|
@ -0,0 +1,5 @@
|
|||
func = if cond
|
||||
then pure 42
|
||||
else do
|
||||
-- test
|
||||
abc
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
func = case x of
|
||||
False -> False
|
||||
True -> True
|
||||
|
|
@ -0,0 +1,7 @@
|
|||
func =
|
||||
case
|
||||
lakjsdlajsdljasdlkjasldjasldjasldjalsdjlaskjd
|
||||
lakjsdlajsdljasdlkjasldjasldjasldjalsdjlaskjd
|
||||
of
|
||||
False -> False
|
||||
True -> True
|
||||
|
|
@ -0,0 +1,7 @@
|
|||
func = do
|
||||
case
|
||||
lakjsdlajsdljasdlkjasldjasldjasldjalsdjlaskjd
|
||||
lakjsdlajsdljasdlkjasldjasldjasldjalsdjlaskjd
|
||||
of
|
||||
False -> False
|
||||
True -> True
|
||||
|
|
@ -0,0 +1 @@
|
|||
func = case x of {}
|
||||
|
|
@ -0,0 +1,5 @@
|
|||
func =
|
||||
case
|
||||
lakjsdlajsdljasdlkjasldjasldjasldjalsdjlaskjd
|
||||
lakjsdlajsdljasdlkjasldjasldjasldjalsdjlaskjd
|
||||
of {}
|
||||
|
|
@ -0,0 +1,5 @@
|
|||
func = do
|
||||
case
|
||||
lakjsdlajsdljasdlkjasldjasldjasldjalsdjlaskjd
|
||||
lakjsdlajsdljasdlkjasldjasldjasldjalsdjlaskjd
|
||||
of {}
|
||||
|
|
@ -0,0 +1,5 @@
|
|||
func
|
||||
:: ( lkasdlkjalsdjlakjsdlkjasldkjalskdjlkajsd
|
||||
-> lkasdlkjalsdjlakjsdlkjasldkjalskdjlkajsd
|
||||
)
|
||||
-> lakjsdlkjasldkj
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
func = do
|
||||
stmt
|
||||
stmt
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
func = do
|
||||
x <- stmt
|
||||
stmt x
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
func = do
|
||||
let x = 13
|
||||
stmt x
|
||||
|
|
@ -0,0 +1,7 @@
|
|||
func =
|
||||
foooooo
|
||||
$ [ case
|
||||
foooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo
|
||||
of
|
||||
_ -> True
|
||||
]
|
||||
|
|
@ -0,0 +1,4 @@
|
|||
testMethod foo bar baz qux =
|
||||
let x = undefined foo bar baz qux qux baz bar :: String
|
||||
-- some comment explaining the in expression
|
||||
in undefined foo x :: String
|
||||
|
|
@ -0,0 +1,4 @@
|
|||
testMethod foo bar baz qux =
|
||||
let x = undefined :: String
|
||||
-- some comment explaining the in expression
|
||||
in undefined :: String
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
testMethod foo bar baz qux =
|
||||
-- some comment explaining the in expression
|
||||
let x = undefined :: String in undefined :: String
|
||||
|
|
@ -0,0 +1,6 @@
|
|||
foo foo bar baz qux =
|
||||
let a = 1
|
||||
b = 2
|
||||
c = 3
|
||||
-- some comment explaining the in expression
|
||||
in undefined :: String
|
||||
|
|
@ -0,0 +1,6 @@
|
|||
func =
|
||||
foo
|
||||
$ [ aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
|
||||
, bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb
|
||||
]
|
||||
++ [ccccccccccccccccccccccccccccccccccccccccccccccccccccccccc]
|
||||
|
|
@ -0,0 +1 @@
|
|||
module Main where
|
||||
|
|
@ -0,0 +1,5 @@
|
|||
func
|
||||
:: ( ( lkasdlkjalsdjlakjsdlkjasldkjalskdjlkajsd
|
||||
-> lkasdlkjalsdjlakjsdlkjasldkjalskdjlkajsd
|
||||
)
|
||||
)
|
||||
|
|
@ -0,0 +1 @@
|
|||
module Main () where
|
||||
|
|
@ -0,0 +1 @@
|
|||
module Main (main) where
|
||||
|
|
@ -0,0 +1 @@
|
|||
module Main (main, test1, test2) where
|
||||
|
|
@ -0,0 +1,12 @@
|
|||
module Main
|
||||
( main
|
||||
, test1
|
||||
, test2
|
||||
, test3
|
||||
, test4
|
||||
, test5
|
||||
, test6
|
||||
, test7
|
||||
, test8
|
||||
, test9
|
||||
) where
|
||||
|
|
@ -0,0 +1,12 @@
|
|||
module Main
|
||||
( main
|
||||
-- main
|
||||
, test1
|
||||
, test2
|
||||
-- Test 3
|
||||
, test3
|
||||
, test4
|
||||
-- Test 5
|
||||
, test5
|
||||
-- Test 6
|
||||
) where
|
||||
|
|
@ -0,0 +1 @@
|
|||
module Main (Test(..)) where
|
||||
|
|
@ -0,0 +1 @@
|
|||
module Main (module Main) where
|
||||
|
|
@ -0,0 +1 @@
|
|||
module Main (Test(Test, a, b)) where
|
||||
|
|
@ -0,0 +1,6 @@
|
|||
-- comment1
|
||||
module Main
|
||||
( Test(Test, a, b)
|
||||
, foo -- comment2
|
||||
) -- comment3
|
||||
where
|
||||
|
|
@ -0,0 +1 @@
|
|||
module Main (Test()) where
|
||||
|
|
@ -0,0 +1 @@
|
|||
func :: asd -> Either a b
|
||||
|
|
@ -0,0 +1 @@
|
|||
-- Intentionally left empty
|
||||
|
|
@ -0,0 +1 @@
|
|||
import Data.List
|
||||
|
|
@ -0,0 +1 @@
|
|||
import Data.List as L
|
||||
|
|
@ -0,0 +1 @@
|
|||
import qualified Data.List
|
||||
|
|
@ -0,0 +1 @@
|
|||
import qualified Data.List as L
|
||||
|
|
@ -0,0 +1 @@
|
|||
import safe Data.List as L
|
||||
|
|
@ -0,0 +1 @@
|
|||
import {-# SOURCE #-} Data.List ( )
|
||||
|
|
@ -0,0 +1 @@
|
|||
import safe qualified Data.List
|
||||
|
|
@ -0,0 +1 @@
|
|||
import {-# SOURCE #-} safe qualified Data.List
|
||||
|
|
@ -0,0 +1 @@
|
|||
import qualified "base" Data.List
|
||||
|
|
@ -0,0 +1,5 @@
|
|||
func
|
||||
:: asd
|
||||
-> Either
|
||||
lkasdlkjalsdjlakjsdlkjasldkjalskdjlkajsd
|
||||
lkasdlkjalsdjlakjsdlkjasldkjalskdjlkajsd
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
import {-# SOURCE #-} safe qualified "base" Data.List as L
|
||||
import {-# SOURCE #-} safe qualified "base" Data.List ( )
|
||||
import {-# SOURCE #-} safe qualified Data.List hiding ( )
|
||||
|
|
@ -0,0 +1 @@
|
|||
import qualified Data.List ( )
|
||||
|
|
@ -0,0 +1 @@
|
|||
import Data.List ( nub )
|
||||
|
|
@ -0,0 +1,4 @@
|
|||
import Data.List ( foldl'
|
||||
, indexElem
|
||||
, nub
|
||||
)
|
||||
|
|
@ -0,0 +1,14 @@
|
|||
import Test ( Long
|
||||
, anymore
|
||||
, fit
|
||||
, items
|
||||
, line
|
||||
, list
|
||||
, not
|
||||
, onA
|
||||
, quite
|
||||
, single
|
||||
, that
|
||||
, will
|
||||
, with
|
||||
)
|
||||
|
|
@ -0,0 +1,11 @@
|
|||
import Test ( (+)
|
||||
, (:!)(..)
|
||||
, (:*)((:.), T7, t7)
|
||||
, (:.)
|
||||
, T
|
||||
, T2()
|
||||
, T3(..)
|
||||
, T4(T4)
|
||||
, T5(T5, t5)
|
||||
, T6((<|>))
|
||||
)
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
import Test hiding ( )
|
||||
import Test as T
|
||||
hiding ( )
|
||||
|
|
@ -0,0 +1,13 @@
|
|||
import Prelude as X
|
||||
hiding ( head
|
||||
, init
|
||||
, last
|
||||
, maximum
|
||||
, minimum
|
||||
, pred
|
||||
, read
|
||||
, readFile
|
||||
, succ
|
||||
, tail
|
||||
, undefined
|
||||
)
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
import TestJustAbitToLongModuleNameLikeThisOneIs
|
||||
( )
|
||||
import TestJustShortEnoughModuleNameLikeThisOne ( )
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
import TestJustAbitToLongModuleNameLikeThisOneI
|
||||
as T
|
||||
import TestJustShortEnoughModuleNameLikeThisOn as T
|
||||
|
|
@ -0,0 +1,6 @@
|
|||
func
|
||||
:: asd
|
||||
-> Trither
|
||||
lkasdlkjalsdjlakjsdlkjasldkjalskdjlkajsd
|
||||
lkasdlkjalsdjlakjsdlkjasldkjalskdjlkajsd
|
||||
lkasdlkjalsdjlakjsdlkjasldkjalskdjlkajsd
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
import TestJustAbitToLongModuleNameLikeTh
|
||||
hiding ( )
|
||||
import TestJustShortEnoughModuleNameLike hiding ( )
|
||||
|
|
@ -0,0 +1,10 @@
|
|||
import MoreThanSufficientlyLongModuleNameWithSome
|
||||
( compact
|
||||
, fit
|
||||
, inA
|
||||
, items
|
||||
, layout
|
||||
, not
|
||||
, that
|
||||
, will
|
||||
)
|
||||
|
|
@ -0,0 +1,11 @@
|
|||
import TestJustAbitToLongModuleNameLikeTh
|
||||
hiding ( abc
|
||||
, def
|
||||
, ghci
|
||||
, jklm
|
||||
)
|
||||
import TestJustShortEnoughModuleNameLike hiding ( abc
|
||||
, def
|
||||
, ghci
|
||||
, jklm
|
||||
)
|
||||
|
|
@ -0,0 +1,9 @@
|
|||
import {-# SOURCE #-} safe qualified "qualifier" A hiding ( )
|
||||
import {-# SOURCE #-} safe qualified "qualifiers" A
|
||||
hiding ( )
|
||||
import {-# SOURCE #-} safe qualified "qualifiers" AlsoAf as T
|
||||
import {-# SOURCE #-} safe qualified "qualifiers" AlsoAff ( )
|
||||
import {-# SOURCE #-} safe qualified "qualifiers" AlsoAff
|
||||
as T
|
||||
import {-# SOURCE #-} safe qualified "qualifiers" AlsoAffe
|
||||
( )
|
||||
|
|
@ -0,0 +1,7 @@
|
|||
-- Test
|
||||
import Data.List ( nub ) -- Test
|
||||
{- Test -}
|
||||
import qualified Data.List as L
|
||||
( foldl' ) {- Test -}
|
||||
-- Test
|
||||
import Test ( test )
|
||||
|
|
@ -0,0 +1,4 @@
|
|||
import Test ( abc
|
||||
, def
|
||||
-- comment
|
||||
)
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
import Test ( abc
|
||||
-- comment
|
||||
)
|
||||
|
|
@ -0,0 +1,8 @@
|
|||
import Test ( abc
|
||||
-- comment
|
||||
, def
|
||||
, ghi
|
||||
{- comment -}
|
||||
, jkl
|
||||
-- comment
|
||||
)
|
||||
|
|
@ -0,0 +1,2 @@
|
|||
import Test ( -- comment
|
||||
)
|
||||
|
|
@ -0,0 +1,8 @@
|
|||
import Test ( longbindingNameThatoverflowsColum
|
||||
)
|
||||
import Test ( Long
|
||||
( List
|
||||
, Of
|
||||
, Things
|
||||
)
|
||||
)
|
||||
|
|
@ -0,0 +1,6 @@
|
|||
func
|
||||
:: Trither
|
||||
lkasdlkjalsdjlakjsdlkjasldkjalskdjlkajsd
|
||||
lkasdlkjalsdjlakjsdlkjasldkjalskdjlkajsd
|
||||
lkasdlkjalsdjlakjsdlkjasldkjalskdjlkajsd
|
||||
-> asd
|
||||
|
|
@ -0,0 +1,18 @@
|
|||
import Test ( Thing
|
||||
( -- Comments
|
||||
)
|
||||
)
|
||||
import Test ( Thing
|
||||
( Item
|
||||
-- and Comment
|
||||
)
|
||||
)
|
||||
import Test ( Thing
|
||||
( With
|
||||
-- Comments
|
||||
, and
|
||||
-- also
|
||||
, items
|
||||
-- !
|
||||
)
|
||||
)
|
||||
|
|
@ -0,0 +1,2 @@
|
|||
import VeryLongModuleNameThatCouldEvenCauseAnEmptyBindingListToExpandIntoMultipleLine
|
||||
( )
|
||||
|
|
@ -0,0 +1,26 @@
|
|||
{-# LANGUAGE BangPatterns #-}
|
||||
{-
|
||||
- Test module
|
||||
-}
|
||||
module Test
|
||||
( test1
|
||||
-- ^ test
|
||||
, test2
|
||||
-- | test
|
||||
, test3
|
||||
, test4
|
||||
, test5
|
||||
, test6
|
||||
, test7
|
||||
, test8
|
||||
, test9
|
||||
, test10
|
||||
-- Test 10
|
||||
) where
|
||||
-- Test
|
||||
import Data.List ( nub ) -- Test
|
||||
{- Test -}
|
||||
import qualified Data.List as L
|
||||
( foldl' ) {- Test -}
|
||||
-- Test
|
||||
import Test ( test )
|
||||
|
|
@ -0,0 +1,2 @@
|
|||
import Aaa
|
||||
import Baa
|
||||
|
|
@ -0,0 +1,5 @@
|
|||
import Zaa
|
||||
import Zab
|
||||
|
||||
import Aaa
|
||||
import Baa
|
||||
|
|
@ -0,0 +1,2 @@
|
|||
import Boo
|
||||
import qualified Zoo
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
import Boo ( a )
|
||||
|
||||
import Boo ( b )
|
||||
|
|
@ -0,0 +1,2 @@
|
|||
import A.B.C
|
||||
import A.B.D
|
||||
|
|
@ -0,0 +1 @@
|
|||
type MySynonym = String
|
||||
|
|
@ -0,0 +1 @@
|
|||
type MySynonym a = [a]
|
||||
|
|
@ -0,0 +1,5 @@
|
|||
func
|
||||
:: Trither
|
||||
lkasdlkjalsdjlakjsdlkjasldkjalskdjlkajsd
|
||||
lkasdlkjalsdjlakjsdlkjasldkjalskdjlkajsd
|
||||
(lkasdlkjalsdjlakjsdlkjasldkjalskdjlkajsd -> asd)
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
-- | Important comment thrown in
|
||||
type MySynonym b a
|
||||
= MySynonym a b -> MySynonym a b -> MyParamType a b -> MyParamType a b
|
||||
|
|
@ -0,0 +1,7 @@
|
|||
type MySynonym3 b a
|
||||
= MySynonym a b
|
||||
-> MySynonym a b
|
||||
-- ^ RandomComment
|
||||
-> MyParamType a b
|
||||
-> MyParamType a b
|
||||
-> MySynonym2 b a
|
||||
|
|
@ -0,0 +1,7 @@
|
|||
{-# LANGUAGE StarIsType #-}
|
||||
type MySynonym (a :: * -> *)
|
||||
= MySynonym a b
|
||||
-> MySynonym a b
|
||||
-> MyParamType a b
|
||||
-> MyParamType a b
|
||||
-> MySynonym2 b a
|
||||
Some files were not shown because too many files have changed in this diff Show More
Loading…
Reference in New Issue