(#817) Add OrgModeTest

Author: rexim

HyperNerd.cabal

@@ -225,6 +225,8 @@ test-suite HyperNerdTest
                      , Bot.FridayTest
                      , Bot.ExprTest
                      , Bot.GitHub
+                     , OrgMode
+                     , OrgModeTest
                      , Data.Maybe.Extra
                      , Data.Time.Extra
                      , Data.Time.ExtraTest

test/OrgModeTest.hs

@@ -0,0 +1,31 @@
+{-# LANGUAGE OverloadedStrings #-}
+module OrgModeTest (spec) where
+
+import OrgMode
+import Test.HUnit
+
+spec :: Test
+spec =
+  TestLabel "Rendering OrgMode table" $
+  TestCase $
+  assertEqual
+    ""
+    ("|hello|world|foo|\n\
+     \|-\n\
+     \|1|2|3|\n\
+     \|1|2|3|\n\
+     \|1|2||\n\
+     \|1|||\n\
+     \||||\n\
+     \|1|2|3|\n\
+     \|\\|~|||\n") $
+  renderTable
+    ["hello", "world", "foo"]
+    [ ["1", "2", "3"]
+    , ["1", "2", "3"]
+    , ["1", "2"]
+    , ["1"]
+    , []
+    , ["1", "2", "3", "4", "5"]
+    , ["|~"]
+    ]

test/Test.hs

@@ -16,6 +16,7 @@ import qualified Bot.LinksTest
 import qualified Bot.LogTest
 import qualified Bot.PollTest
 import qualified Bot.TwitchTest
+import qualified OrgModeTest
 import qualified CommandTest
 import qualified Data.Time.ExtraTest
 import qualified Sqlite.EntityPersistenceTest
@@ -36,6 +37,7 @@ main = do
       , CommandTest.spec
       , Sqlite.EntityPersistenceTest.spec
       , Data.Time.ExtraTest.spec
+      , OrgModeTest.spec
       ]
   if errors results + failures results == 0
     then exitSuccess