Wrap up the C monitor in a Haskell module.

1 files changed, 20 insertions, 0 deletions

diff --git a/tests/Monitor.hs b/tests/Monitor.hs
new file mode 100644
index 0000000..d07cea0
--- /dev/null
+++ b/tests/Monitor.hs
@@ -0,0 +1,20 @@
+{-# LANGUAGE ForeignFunctionInterface #-}
+module Main where
+
+import Bustle.Monitor
+
+import System.Glib.GError
+import System.Glib.MainLoop
+
+foreign import ccall "g_type_init" g_type_init :: IO ()
+
+main = do
+    g_type_init
+    emonitor <- monitorNew BusTypeSession "/tmp/test.bustle" DebugOutput
+    case emonitor of
+        Left (GError _ _ message) -> error message
+        Right monitor -> do
+            loop <- mainLoopNew Nothing False
+            timeoutAdd (mainLoopQuit loop >> return False) 5000
+            mainLoopRun loop
+            monitorStop monitor