File: TestCatch.hs

package info (click to toggle)
haskell-lazysmallcheck 0.6-1
  • links: PTS, VCS
  • area: main
  • in suites: wheezy
  • size: 204 kB
  • sloc: haskell: 1,230; sh: 15; makefile: 2
file content (17 lines) | stat: -rw-r--r-- 393 bytes parent folder | download | duplicates (9) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
import Test.LazySmallCheck
import Catch
import System

instance Serial Value where
  series = cons0 Bottom \/ cons2 Value

instance Serial CtorName where
  series = cons0 Ctor \/ cons0 CtorN \/ cons0 CtorR \/ cons0 CtorNR

instance Serial Val where
  series = cons2 (:*) \/ cons0 Any

instance Serial Pattern where
  series = cons2 Pattern

main = do [d] <- getArgs ; depthCheck (read d) prop