Successful test of un-chunked message.

[github/fretlink/haskell-graylog.git] / test / Test / Graylog / UDP.hs

diff --git a/test/Test/Graylog/UDP.hs b/test/Test/Graylog/UDP.hs
index 67da6fe9d712837ded66e0a37e0949e2099ce74e..d62f11a25a0e39b078139181eed040306a6bf2f9 100644 (file)
--- a/test/Test/Graylog/UDP.hs
+++ b/test/Test/Graylog/UDP.hs
@@ -1,13 +1,23 @@
+{-# LANGUAGE OverloadedStrings #-}
+
 module Test.Graylog.UDP where
 
 import           Test.Tasty
 import           Test.Tasty.HUnit
 
+import           Graylog.UDP
+
 tests :: TestTree
 tests = testGroup "Test.Graylog.UDP"
-   [ testCase "Validation: Something" case_validateSomething
+   {-[ testCase "Send: Sample" case_validateSomething-}
+   [ testCase "Send sample message." case_sendSample
    ]
 
-case_validateSomething :: IO ()
-case_validateSomething = return ()
-
+case_sendSample :: IO ()
+case_sendSample = do
+   eglog <- openGraylog "192.168.99.100" "12201" defaultChunkSize
+   case eglog of
+      Left  e -> assertFailure e
+      Right g -> sendLog g sample
+   where
+      sample = simpleGelf "localhost" "hello world!"