Reorganoze examples in test/

test/connection_simple.hs

@@ -0,0 +1,11 @@
+import qualified EuphApi.Connection as E
+
+main = do
+  con <- E.startEuphConnection "euphoria.io" "test"
+  printEvents con
+  where
+    printEvents con = do
+      event <- E.getEvent con
+      case event of
+        E.EuphEvent e -> print e >> putStrLn "" >> printEvents con
+        _             -> putStrLn "[] end of events"