e1c5b46 · typeable/aeson

git.iko.soy/typeable/aeson

on master help sign in

Give an accurate error message if JsonTestSuite files are missing, #514

e1c5b46Adam Bergmark10 years ago

tests/UnitTests.hs−6

@@ -39,7 +39,6 @@ import Instances ()

39import System.Directory (doesDirectoryExist, getDirectoryContents)

40import System.Exit (exitWith, ExitCode(ExitFailure))

41import System.FilePath ((</>), takeExtension, takeFileName)

42−import System.IO (hPutStrLn, stderr)

43import Test.Framework (Test, testGroup)

42import Test.Framework (Test, testGroup)

44import Test.Framework.Providers.HUnit (testCase)

43import Test.Framework.Providers.HUnit (testCase)

45import Test.HUnit (Assertion, assertBool, assertFailure, assertEqual)

44import Test.HUnit (Assertion, assertBool, assertFailure, assertEqual)

@@ -422,11 +421,6 @@ jsonTestSuite :: IO Test

422jsonTestSuite = do

421jsonTestSuite = do

423 let suitePath = "tests/JSONTestSuite"

422 let suitePath = "tests/JSONTestSuite"

424 exists <- doesDirectoryExist suitePath

423 exists <- doesDirectoryExist suitePath

425− unless exists $ do

426− hPutStrLn stderr $ "git clone https://github.com/nst/JSONTestSuite " ++

427− suitePath

428− exitWith (ExitFailure 1)

429− -- ignore test_transform for now

430 let suites = ["test_parsing", "test_transform"]

424 let suites = ["test_parsing", "test_transform"]

431 testPaths <- fmap (sort . concat) . forM suites $ \suite -> do

425 testPaths <- fmap (sort . concat) . forM suites $ \suite -> do

432 let dir = suitePath </> suite

426 let dir = suitePath </> suite