guide/back/tests/Main.hs

module Main (main) where

-- Shared imports
import Imports
-- Testing
import Test.Hspec
-- Tests
import qualified WebSpec
import qualified MarkdownSpec
import qualified MergeSpec


main :: IO ()
main = do
  hspec $ do
    MarkdownSpec.tests
    MergeSpec.tests
  WebSpec.tests

-- TODO: it'd be nice if we could do server-starting tests in hspec as well,
-- but I don't know how to achieve the following flow:
--
--   * before the tests, the server is started
--   * after the tests, the server is killed
--   * if you Ctrl-C during the tests, the server is killed as well

{- Tests left to write:
~~~~~~~~~~~~~~
  * noscript tests
  * test on mobile
  * test that there are no repetitive searches on the admin page
  * test that admin CSS hasn't creeped into main CSS and vice-versa
  * test that the server is throwing no errors whatsoever during the
    execution of tests
  * changes to item description must not persist when doing Cancel and
    then Edit again
  * Markdown tests (e.g. Markdown doesn't work in category names)
  * test that nothing is messed up by things starting and ending with newlines
    (the %js bug, see description of 'mustache')
  -}