File: Test.hs

package info (click to toggle)
haskell-js-flot 0.8.3-8
  • links: PTS, VCS
  • area: main
  • in suites: bullseye, buster, sid
  • size: 856 kB
  • sloc: haskell: 49; makefile: 8
file content (22 lines) | stat: -rw-r--r-- 522 bytes parent folder | download | duplicates (2)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

module Main(main) where

import Paths_js_flot
import qualified Language.Javascript.Flot as Flot
import Data.Version
import Control.Monad


main :: IO ()
main = do
    length (versionBranch Flot.version) === 3
    versionTags Flot.version === []
    versionBranch Flot.version === take 3 (versionBranch version)
    forM_ [minBound..maxBound] $ \i -> do
        s <- readFile =<< Flot.file i
        min 1 (length s) === 1
    putStrLn "\nSuccess"


a === b | a == b = putChar '.'
        | otherwise = error $ show (a,b)