riemann-0.1.0.1: test/Property.hs

import Test.Framework (defaultMain, testGroup)
import Test.QuickCheck
import Test.Framework.Providers.QuickCheck2 (testProperty)
import Network.Monitoring.Riemann

-- main :: IO ()
-- main = defaultMain [
--   testGroup "(default)" [
--      testProperty "isGood" (\a -> a == (a `asTypeOf` True))
--      ]
--   ]

main :: IO ()
main = do
     client <- makeClient "127.0.0.1" 5555
     print "Client made now attempting to send event"
     sendEvent client (ev "test_service" (0.0 :: Double))
     print "post event send"
     print $ show client