1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
|
-- Copyright (C) 2012 John Millikin <john@john-millikin.com>
--
-- This program is free software: you can redistribute it and/or modify
-- it under the terms of the GNU General Public License as published by
-- the Free Software Foundation, either version 3 of the License, or
-- any later version.
--
-- This program is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-- GNU General Public License for more details.
--
-- You should have received a copy of the GNU General Public License
-- along with this program. If not, see <http://www.gnu.org/licenses/>.
module Main
( tests
, main
) where
import Test.Chell
import DBusTests.Address
import DBusTests.BusName
import DBusTests.Client
import DBusTests.ErrorName
import DBusTests.Integration
import DBusTests.InterfaceName
import DBusTests.Introspection
import DBusTests.MemberName
import DBusTests.Message
import DBusTests.ObjectPath
import DBusTests.Serialization
import DBusTests.Socket
import DBusTests.Signature
import DBusTests.Transport
import DBusTests.Variant
import DBusTests.Wire
-- import all dbus modules here to ensure they show up in the coverage report,
-- even if not tested.
import DBus ()
import DBus.Address ()
import DBus.Client ()
import DBus.Introspection ()
import DBus.Message ()
import DBus.Socket ()
import DBus.Types ()
import DBus.Wire ()
tests :: [Suite]
tests =
[ test_Address
, test_BusName
, test_Client
, test_ErrorName
, test_Integration
, test_InterfaceName
, test_Introspection
, test_MemberName
, test_Message
, test_ObjectPath
, test_Serialization
, test_Signature
, test_Socket
, test_Transport
, test_Variant
, test_Wire
]
main :: IO ()
main = Test.Chell.defaultMain tests
|
