git @ Cat's Eye Technologies Falderal / ae77ec6
Move Test.Falderal.Driver to source for an executable we install. --HG-- rename : Test/Falderal/Driver.hs => falderal.hs catseye 13 years ago
3 changed file(s) with 43 addition(s) and 67 deletion(s). Raw diff Collapse all Expand all
+11
-7
Falderal.cabal less more
00 -- encoding: UTF-8
11 name: Falderal
22 version: 0.3
3 cabal-version: >= 1.2
3 cabal-version: >= 1.8
44 build-type: Simple
55 license: BSD3
66 category: Testing
1818 tools that format or run tests written in Falderal.
1919
2020 library
21 build-depends: base, haskell98
22 exposed-modules: Test.Falderal.Driver
23 Test.Falderal.Runner
21 build-depends: base >= 4.0, haskell98
22 exposed-modules: Test.Falderal.Runner
2423 Test.Falderal.Common
2524 Test.Falderal.Loader
2625 Test.Falderal.Formatter
2928 Test.Falderal.Formatter.Haskell
3029 Test.Falderal.Formatter.Markdown
3130
32 -- executable falderal
33 -- main-is: falderal.hs
34 -- build-depends: base
31 executable falderal
32 main-is: falderal.hs
33 build-depends: base >= 4.0, haskell98
34 other-modules: Test.Falderal.Common
35 Test.Falderal.Loader
36 Test.Falderal.Runner
37 Test.Falderal.Formatter
38 Test.Falderal.Reporter.Standard
3539
3640 -- test-suite test-falderal
3741 -- type: exitcode-stdio-1.0
+0
-60
Test/Falderal/Driver.hs less more
0 module Test.Falderal.Driver (test, format) where
1
2 --
3 -- Test.Falderal.Driver -- Driver for Falderal Testing and Formatting
4 -- Copyright (c)2011 Cat's Eye Technologies. All rights reserved.
5 --
6 -- Redistribution and use in source and binary forms, with or without
7 -- modification, are permitted provided that the following conditions
8 -- are met:
9 --
10 -- 1. Redistributions of source code must retain the above copyright
11 -- notices, this list of conditions and the following disclaimer.
12 -- 2. Redistributions in binary form must reproduce the above copyright
13 -- notices, this list of conditions, and the following disclaimer in
14 -- the documentation and/or other materials provided with the
15 -- distribution.
16 -- 3. Neither the names of the copyright holders nor the names of their
17 -- contributors may be used to endorse or promote products derived
18 -- from this software without specific prior written permission.
19 --
20 -- THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
21 -- ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
22 -- LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
23 -- FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
24 -- COPYRIGHT HOLDERS OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,
25 -- INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING,
26 -- BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
27 -- LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
28 -- CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
29 -- LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN
30 -- ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
31 -- POSSIBILITY OF SUCH DAMAGE.
32 --
33
34 import Test.Falderal.Common
35 import Test.Falderal.Loader
36 import Test.Falderal.Runner
37 import Test.Falderal.Formatter
38 import Test.Falderal.Reporter.Standard
39
40 --
41 -- This module contains entry points to Falderal functionality intended
42 -- for use by users.
43 --
44
45 --
46 -- Entry point for test runner.
47 -- XXX This is still in flux.
48 --
49
50 test testTuples = do
51 failures <- runTests testTuples
52 report testTuples failures
53
54 --
55 -- Entry point for formatter.
56 --
57
58 format formatName fileName =
59 formatFile formatName fileName
+32
-0
falderal.hs less more
0 import System
1 import System.Environment
2
3 import Test.Falderal.Common
4 import Test.Falderal.Loader
5 import Test.Falderal.Runner
6 import Test.Falderal.Formatter
7 import Test.Falderal.Reporter.Standard
8
9 --
10 -- This module contains entry points to Falderal functionality intended
11 -- for use by users.
12 --
13
14 main :: IO ()
15 main = do
16 args <- getArgs
17 dispatch args
18
19 dispatch ("format":formatName:fileName:[]) = do
20 formatFile formatName fileName
21
22 dispatch ("test":reportFormat:filename:[]) = do
23 putStrLn "'test' command not implemented yet"
24 -- failures <- runTests testTuples
25 -- report testTuples failures
26
27 dispatch _ = do
28 putStrLn "Usage: falderal command {args}"
29 putStrLn "where command is one of:"
30 putStrLn " format format-name input-falderal-filename"
31 putStrLn " test report-style input-falderal-filename"