From 384d2490417c8e632ca03bfa5f322b189db140a9 Mon Sep 17 00:00:00 2001
From: Ben Sima <ben@bsima.me>
Date: Sun, 4 Oct 2020 09:27:38 -0400
Subject: [PATCH] better testing and formatting with ormolu

---
 test.hs | 69 ++++++++++++++++++++++++++++++++++++++++++++++++---------
 1 file changed, 59 insertions(+), 10 deletions(-)

diff --git a/test.hs b/test.hs
index c449aef..4d4fa25 100644
--- a/test.hs
+++ b/test.hs
@@ -1,17 +1,66 @@
+{-# LANGUAGE LambdaCase #-}
 {-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE ScopedTypeVariables #-}
 
 module Main where
 
+import Control.Exception (SomeException (..), try)
+import Data.Aeson (KeyValue ((.=)))
+import qualified Data.Aeson as Aeson
+import Data.Text (Text)
+import qualified Data.Text as Text
+import qualified Data.Text.IO as Text.IO
 import Urbit.Airlock
 
+main :: IO ()
 main = do
-  let ship = Ship {
-    session = Nothing,
-    lastEventId = 0,
-    url = "http://localhost:8081",
-    code = "lidlut-tabwed-pillex-ridrup",
-    sseClient = False,
-    name = "zod"
-  }
-  connect ship
-  putStrLn "success"
+  let ship =
+        Ship
+          { session = Nothing,
+            lastEventId = 0,
+            url = "http://localhost:8081",
+            code = "lidlut-tabwed-pillex-ridrup",
+            sseClient = False
+          }
+
+  testing "ship connection" $ connect ship
+
+  testing "poke ship" $
+    poke ship "zod" "chat-hook" "json" $
+      Aeson.object
+        [ "message"
+            .= Aeson.object
+              [ "path" .= Text.pack "/~/~zod/mc",
+                "envelope"
+                  .= Aeson.object
+                    [ "uid" .= Text.pack "FIXME",
+                      "number" .= lastEventId ship,
+                      "author" .= Text.pack "~zod",
+                      "when" .= Text.pack "FIXME", -- int(time.time() * 1000)
+                      "letter" .= Aeson.object ["text" .= Text.pack "hello world!"]
+                    ]
+              ]
+        ]
+
+-- | Poor man's testing framework
+testing :: Show a => Text -> IO a -> IO ()
+testing description f =
+  (putStrLn $ replicate 80 '-') >> try f >>= \case
+    Left (err :: SomeException) -> do
+      Text.IO.putStrLn $ "FAIL: " <> description
+      putStrLn $ show err
+    Right _ ->
+      Text.IO.putStrLn $ "PASS: " <> description
+
+{-
+s = baseconvert.base(random.getrandbits(128), 10, 32, string=True).lower()
+uid = '0v' + '.'.join(s[i:i+5] for i in range(0, len(s), 5))[::-1]
+
+"path": "/~/~zod/mc",
+"envelope": {"uid": uid,
+             "number": 1,
+             "author": "~zod",
+             "when": ,
+             "letter": {"text": "hello world!"}}
+
+-}