hexagoxel
/
brittany
1
0
Fork 0
Code Issues 117 Pull Requests 5 Packages Projects Releases 5 Wiki Activity

Fix existing tests for new import layouter behaviour

pull/325/head
Lennart Spitzner 2020-04-07 15:01:08 +02:00 committed by Joe Hermaszewski
parent eb7a4811fd
commit 93ea6542cc
3 changed files with 53 additions and 54 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

71
src-literatetests/10-tests.blt
View File

@ -1088,38 +1088,38 @@ import qualified Data.List ( )
import Data.List ( nub ) import Data.List ( nub )
#test several-elements #test several-elements
import Data.List ( nub import Data.List ( foldl'
, foldl'
, indexElem , indexElem
, nub
) )
#test a-ridiculous-amount-of-elements #test a-ridiculous-amount-of-elements
import Test ( Long import Test ( Long
, list , anymore
, with , fit
, items , items
, line
, list
, not
, onA
, quite
, single
, that , that
, will , will
, not , with
, quite
, fit
, onA
, single
, line
, anymore
) )
#test with-things #test with-things
import Test ( T import Test ( (+)
, (:!)(..)
, (:*)((:.), T7, t7)
, (:.)
, T
, T2() , T2()
, T3(..) , T3(..)
, T4(T4) , T4(T4)
, T5(T5, t5) , T5(T5, t5)
, T6((<|>)) , T6((<|>))
, (+)
, (:.)
, (:.)(..)
, (:.)(T7, (:.), t7)
) )
#test hiding #test hiding
@ -1143,56 +1143,55 @@ import Prelude as X
) )
#test long-module-name-simple #test long-module-name-simple
import TestJustShortEnoughModuleNameLikeThisOne ( )
import TestJustAbitToLongModuleNameLikeThisOneIs import TestJustAbitToLongModuleNameLikeThisOneIs
( ) ( )
import TestJustShortEnoughModuleNameLikeThisOne ( )
#test long-module-name-as #test long-module-name-as
import TestJustShortEnoughModuleNameLikeThisOn as T
import TestJustAbitToLongModuleNameLikeThisOneI import TestJustAbitToLongModuleNameLikeThisOneI
as T as T
import TestJustShortEnoughModuleNameLikeThisOn as T
#test long-module-name-hiding #test long-module-name-hiding
import TestJustShortEnoughModuleNameLike hiding ( )
import TestJustAbitToLongModuleNameLikeTh import TestJustAbitToLongModuleNameLikeTh
hiding ( ) hiding ( )
import TestJustShortEnoughModuleNameLike hiding ( )
#test long-module-name-simple-items #test long-module-name-simple-items
import MoreThanSufficientlyLongModuleNameWithSome import MoreThanSufficientlyLongModuleNameWithSome
( items ( compact
, that
, will
, not
, fit , fit
, inA , inA
, compact , items
, layout , layout
, not
, that
, will
) )
#test long-module-name-hiding-items #test long-module-name-hiding-items
import TestJustShortEnoughModuleNameLike hiding ( abc
, def
, ghci
, jklm
)
import TestJustAbitToLongModuleNameLikeTh import TestJustAbitToLongModuleNameLikeTh
hiding ( abc hiding ( abc
, def , def
, ghci , ghci
, jklm , jklm
) )
import TestJustShortEnoughModuleNameLike hiding ( abc
, def
, ghci
, jklm
)
#test long-module-name-other #test long-module-name-other
import {-# SOURCE #-} safe qualified "qualifiers" AlsoAff ( )
import {-# SOURCE #-} safe qualified "qualifiers" AlsoAffe
( )
import {-# SOURCE #-} safe qualified "qualifiers" AlsoAf as T
import {-# SOURCE #-} safe qualified "qualifiers" AlsoAff
as T
import {-# SOURCE #-} safe qualified "qualifier" A hiding ( ) import {-# SOURCE #-} safe qualified "qualifier" A hiding ( )
import {-# SOURCE #-} safe qualified "qualifiers" A import {-# SOURCE #-} safe qualified "qualifiers" A
hiding ( ) 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
( )
#test import-with-comments #test import-with-comments
-- Test -- Test

2
src-literatetests/14-extensions.blt
View File

@ -78,8 +78,8 @@ module Test (type (++), (++), pattern Foo) where
{-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE PatternSynonyms #-}
import Test ( type (++) import Test ( type (++)
, (++) , (++)
, pattern Foo
, pattern (:.) , pattern (:.)
, pattern Foo
) )
############################################################################### ###############################################################################

34
src-literatetests/30-tests-context-free.blt
View File

@ -753,27 +753,27 @@ import qualified Data.List ()
import Data.List (nub) import Data.List (nub)
#test several-elements #test several-elements
import Data.List (nub, foldl', indexElem) import Data.List (foldl', indexElem, nub)
#test a-ridiculous-amount-of-elements #test a-ridiculous-amount-of-elements
import Test import Test
( Long ( Long
, list , anymore
, with , fit
, items , items
, line
, list
, not
, onA
, quite
, single
, that , that
, will , will
, not , with
, quite
, fit
, onA
, single
, line
, anymore
) )
#test with-things #test with-things
import Test (T, T2(), T3(..), T4(T4), T5(T5, t5), T6((<|>)), (+)) import Test ((+), T, T2(), T3(..), T4(T4), T5(T5, t5), T6((<|>)))
#test hiding #test hiding
import Test hiding () import Test hiding ()
@ -796,22 +796,22 @@ import Prelude as X
) )
#test long-module-name-simple #test long-module-name-simple
import TestJustShortEnoughModuleNameLikeThisOne ()
import TestJustAbitToLongModuleNameLikeThisOneIs ()
import MoreThanSufficientlyLongModuleNameWithSome import MoreThanSufficientlyLongModuleNameWithSome
(items, that, will, not, fit, inA, compact, layout) (compact, fit, inA, items, layout, not, that, will)
import TestJustAbitToLongModuleNameLikeThisOneIs ()
import TestJustShortEnoughModuleNameLikeThisOne ()
#test long-module-name-as #test long-module-name-as
import TestJustShortEnoughModuleNameLikeThisOn as T
import TestJustAbitToLongModuleNameLikeThisOneI as T import TestJustAbitToLongModuleNameLikeThisOneI as T
import TestJustShortEnoughModuleNameLikeThisOn as T
#test long-module-name-hiding #test long-module-name-hiding
import TestJustShortEnoughModuleNameLike hiding ()
import TestJustAbitToLongModuleNameLikeTh hiding () import TestJustAbitToLongModuleNameLikeTh hiding ()
import TestJustShortEnoughModuleNameLike hiding ()
#test long-module-name-simple-items #test long-module-name-simple-items
import MoreThanSufficientlyLongModuleNameWithSome import MoreThanSufficientlyLongModuleNameWithSome
(items, that, will, not, fit, inA, compact, layout) (compact, fit, inA, items, layout, not, that, will)
#test long-module-name-hiding-items #test long-module-name-hiding-items
import TestJustShortEnoughModuleNameLike hiding (abc, def, ghci, jklm) import TestJustShortEnoughModuleNameLike hiding (abc, def, ghci, jklm)