Successful test of un-chunked message.

1 files changed, 14 insertions, 4 deletions

diff --git a/test/Test/Graylog/UDP.hs b/test/Test/Graylog/UDP.hs
index 67da6fe..d62f11a 100644
--- 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!"