Copyright | Will Thompson Iñaki García Etxebarria and Jonas Platte |
---|---|
License | LGPL-2.1 |
Maintainer | Iñaki García Etxebarria (inaki@blueleaf.cc) |
Safe Haskell | None |
Language | Haskell2010 |
A helper class for testing code which uses D-Bus without touching the user's session bus.
Note that TestDBus
modifies the user’s environment, calling setenv()
.
This is not thread-safe, so all TestDBus
calls should be completed before
threads are spawned, or should have appropriate locking to ensure no access
conflicts to environment variables shared between TestDBus
and other
threads.
Creating unit tests using GTestDBus
Testing of D-Bus services can be tricky because normally we only ever run
D-Bus services over an existing instance of the D-Bus daemon thus we
usually don't activate D-Bus services that are not yet installed into the
target system. The TestDBus
object makes this easier for us by taking care
of the lower level tasks such as running a private D-Bus daemon and looking
up uninstalled services in customizable locations, typically in your source
code tree.
The first thing you will need is a separate service description file for the
D-Bus daemon. Typically a services
subdirectory of your tests
directory
is a good place to put this file.
The service file should list your service along with an absolute path to the
uninstalled service executable in your source tree. Using autotools we would
achieve this by adding a file such as my-server.service.in
in the services
directory and have it processed by configure.
>
> [D-BUS Service]
> Name=org.gtk.GDBus.Examples.ObjectManager
> Exec=abs_top_builddir
giotests/gdbus-example-objectmanager-server
You will also need to indicate this service directory in your test fixtures, so you will need to pass the path while compiling your test cases. Typically this is done with autotools with an added preprocessor flag specified to compile your tests such as: > > -DTEST_SERVICES=""$(abs_top_builddir)testsservices""
Once you have a service definition file which is local to your source tree,
you can proceed to set up a GTest fixture using the TestDBus
scaffolding.
An example of a test fixture for D-Bus services can be found here: gdbus-test-fixture.c
Note that these examples only deal with isolating the D-Bus aspect of your service. To successfully run isolated unit tests on your service you may need some additional modifications to your test case fixture. For example; if your service uses GSettings and installs a schema then it is important that your test service not load the schema in the ordinary installed location (chances are that your service and schema files are not yet installed, or worse; there is an older version of the schema file sitting in the install location).
Most of the time we can work around these obstacles using the
environment. Since the environment is inherited by the D-Bus daemon
created by TestDBus
and then in turn inherited by any services the
D-Bus daemon activates, using the setup routine for your fixture is
a practical place to help sandbox your runtime environment. For the
rather typical GSettings case we can work around this by setting
GSETTINGS_SCHEMA_DIR
to the in tree directory holding your schemas
in the above fixture_setup()
routine.
The GSettings schemas need to be locally pre-compiled for this to work. This can be achieved by compiling the schemas locally as a step before running test cases, an autotools setup might do the following in the directory holding schemas: > > all-am: > $(GLIB_COMPILE_SCHEMAS) . > > CLEANFILES += gschemas.compiled
Since: 2.34
Synopsis
- newtype TestDBus = TestDBus (ManagedPtr TestDBus)
- class (GObject o, IsDescendantOf TestDBus o) => IsTestDBus o
- toTestDBus :: (MonadIO m, IsTestDBus o) => o -> m TestDBus
- noTestDBus :: Maybe TestDBus
- testDBusAddServiceDir :: (HasCallStack, MonadIO m, IsTestDBus a) => a -> Text -> m ()
- testDBusDown :: (HasCallStack, MonadIO m, IsTestDBus a) => a -> m ()
- testDBusGetBusAddress :: (HasCallStack, MonadIO m, IsTestDBus a) => a -> m (Maybe Text)
- testDBusGetFlags :: (HasCallStack, MonadIO m, IsTestDBus a) => a -> m [TestDBusFlags]
- testDBusNew :: (HasCallStack, MonadIO m) => [TestDBusFlags] -> m TestDBus
- testDBusStop :: (HasCallStack, MonadIO m, IsTestDBus a) => a -> m ()
- testDBusUnset :: (HasCallStack, MonadIO m) => m ()
- testDBusUp :: (HasCallStack, MonadIO m, IsTestDBus a) => a -> m ()
- constructTestDBusFlags :: IsTestDBus o => [TestDBusFlags] -> IO (GValueConstruct o)
- getTestDBusFlags :: (MonadIO m, IsTestDBus o) => o -> m [TestDBusFlags]
Exported types
Memory-managed wrapper type.
Instances
GObject TestDBus Source # | |
Defined in GI.Gio.Objects.TestDBus gobjectType :: IO GType # | |
HasParentTypes TestDBus Source # | |
Defined in GI.Gio.Objects.TestDBus | |
type ParentTypes TestDBus Source # | |
Defined in GI.Gio.Objects.TestDBus |
class (GObject o, IsDescendantOf TestDBus o) => IsTestDBus o Source #
Type class for types which can be safely cast to TestDBus
, for instance with toTestDBus
.
Instances
(GObject o, IsDescendantOf TestDBus o) => IsTestDBus o Source # | |
Defined in GI.Gio.Objects.TestDBus |
toTestDBus :: (MonadIO m, IsTestDBus o) => o -> m TestDBus Source #
Methods
addServiceDir
testDBusAddServiceDir Source #
:: (HasCallStack, MonadIO m, IsTestDBus a) | |
=> a |
|
-> Text |
|
-> m () |
Add a path where dbus-daemon will look up .service files. This can't be
called after testDBusUp
.
down
:: (HasCallStack, MonadIO m, IsTestDBus a) | |
=> a |
|
-> m () |
Stop the session bus started by testDBusUp
.
This will wait for the singleton returned by busGet
or busGetSync
is destroyed. This is done to ensure that the next unit test won't get a
leaked singleton from this test.
getBusAddress
testDBusGetBusAddress Source #
:: (HasCallStack, MonadIO m, IsTestDBus a) | |
=> a |
|
-> m (Maybe Text) | Returns: the address of the bus, or |
Get the address on which dbus-daemon is running. If testDBusUp
has not
been called yet, Nothing
is returned. This can be used with
dBusConnectionNewForAddress
.
getFlags
:: (HasCallStack, MonadIO m, IsTestDBus a) | |
=> a |
|
-> m [TestDBusFlags] | Returns: the value of |
Get the flags of the TestDBus
object.
new
:: (HasCallStack, MonadIO m) | |
=> [TestDBusFlags] |
|
-> m TestDBus | Returns: a new |
Create a new TestDBus
object.
stop
:: (HasCallStack, MonadIO m, IsTestDBus a) | |
=> a |
|
-> m () |
Stop the session bus started by testDBusUp
.
Unlike testDBusDown
, this won't verify the DBusConnection
singleton returned by busGet
or busGetSync
is destroyed. Unit
tests wanting to verify behaviour after the session bus has been stopped
can use this function but should still call testDBusDown
when done.
unset
testDBusUnset :: (HasCallStack, MonadIO m) => m () Source #
Unset DISPLAY and DBUS_SESSION_BUS_ADDRESS env variables to ensure the test won't use user's session bus.
This is useful for unit tests that want to verify behaviour when no session
bus is running. It is not necessary to call this if unit test already calls
testDBusUp
before acquiring the session bus.
up
:: (HasCallStack, MonadIO m, IsTestDBus a) | |
=> a |
|
-> m () |
Start a dbus-daemon instance and set DBUS_SESSION_BUS_ADDRESS. After this call, it is safe for unit tests to start sending messages on the session bus.
If this function is called from setup callback of g_test_add()
,
testDBusDown
must be called in its teardown callback.
If this function is called from unit test's main()
, then testDBusDown
must be called after testRun
.
Properties
flags
TestDBusFlags
specifying the behaviour of the D-Bus session.
Since: 2.34
constructTestDBusFlags :: IsTestDBus o => [TestDBusFlags] -> IO (GValueConstruct o) Source #
Construct a GValueConstruct
with valid value for the “flags
” property. This is rarely needed directly, but it is used by new
.
getTestDBusFlags :: (MonadIO m, IsTestDBus o) => o -> m [TestDBusFlags] Source #
Get the value of the “flags
” property.
When overloading is enabled, this is equivalent to
get
testDBus #flags