git.iko.soy/typeable/hjsonschema
on 0.1.1.0 help sign in
typeable/hjsonschema/tests/Local.hs
18 lines 483 B history raw
1module Main where
3import Control.Applicative
4import Data.List (isSuffixOf)
5import Lib
6import System.Directory (getDirectoryContents)
7import Test.Framework
9main :: IO ()
10main = do
11 files <- filter isLocal . filter (".json" `isSuffixOf`)
12 <$> getDirectoryContents dir
13 ts <- readSchemaTests dir files
14 defaultMain (toTest <$> ts)
16 where
17 dir :: String
18 dir = "JSON-Schema-Test-Suite/tests/draft4"