Move testcases for extensions in separate testfile
parent
ddd7c6b439
commit
338beb8eea
|
@ -260,21 +260,6 @@ func -- b
|
||||||
) -- j
|
) -- j
|
||||||
-- k
|
-- k
|
||||||
|
|
||||||
###############################################################################
|
|
||||||
|
|
||||||
#test ImplicitParams 1
|
|
||||||
{-# LANGUAGE ImplicitParams #-}
|
|
||||||
func :: (?asd::Int) -> ()
|
|
||||||
|
|
||||||
#test ImplicitParams 2
|
|
||||||
{-# LANGUAGE ImplicitParams #-}
|
|
||||||
func
|
|
||||||
:: ( ?asd
|
|
||||||
:: lkasdlkjalsdjlakjsdlkjasldkjalskdjlkajsd
|
|
||||||
-> lkasdlkjalsdjlakjsdlkjasldkjalskdjlkajsd
|
|
||||||
)
|
|
||||||
-> ()
|
|
||||||
|
|
||||||
|
|
||||||
###############################################################################
|
###############################################################################
|
||||||
###############################################################################
|
###############################################################################
|
||||||
|
@ -454,12 +439,6 @@ func = 1.1e5
|
||||||
func = 'x'
|
func = 'x'
|
||||||
func = 981409823458910394810928414192837123987123987123
|
func = 981409823458910394810928414192837123987123987123
|
||||||
|
|
||||||
#test lambdacase
|
|
||||||
{-# LANGUAGE LambdaCase #-}
|
|
||||||
func = \case
|
|
||||||
FooBar -> x
|
|
||||||
Baz -> y
|
|
||||||
|
|
||||||
#test lambda
|
#test lambda
|
||||||
func = \x -> abc
|
func = \x -> abc
|
||||||
|
|
||||||
|
@ -550,29 +529,6 @@ func =
|
||||||
]
|
]
|
||||||
|
|
||||||
|
|
||||||
###############################################################################
|
|
||||||
###############################################################################
|
|
||||||
###############################################################################
|
|
||||||
#group expression.multiwayif
|
|
||||||
###############################################################################
|
|
||||||
###############################################################################
|
|
||||||
###############################################################################
|
|
||||||
|
|
||||||
#test simple
|
|
||||||
{-# LANGUAGE MultiWayIf #-}
|
|
||||||
func = if
|
|
||||||
| cond1 -> loooooooooooooooooooooooooooooong expr1
|
|
||||||
| cond2 -> loooooooooooooooooooooooooooooong expr2
|
|
||||||
|
|
||||||
#test simplenested
|
|
||||||
{-# LANGUAGE MultiWayIf #-}
|
|
||||||
func = do
|
|
||||||
foo
|
|
||||||
bar $ if
|
|
||||||
| cond1 -> loooooooooooooooooooooooooooooong expr1
|
|
||||||
| cond2 -> loooooooooooooooooooooooooooooong expr2
|
|
||||||
|
|
||||||
|
|
||||||
###############################################################################
|
###############################################################################
|
||||||
###############################################################################
|
###############################################################################
|
||||||
###############################################################################
|
###############################################################################
|
||||||
|
|
|
@ -0,0 +1,50 @@
|
||||||
|
###############################################################################
|
||||||
|
###############################################################################
|
||||||
|
###############################################################################
|
||||||
|
#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
|
||||||
|
)
|
||||||
|
-> ()
|
||||||
|
|
Loading…
Reference in New Issue