ledger/Hcompta/Ledger/Test.hs

   1 {-# LANGUAGE FlexibleInstances #-}
   2 {-# LANGUAGE OverloadedStrings #-}
   3 {-# LANGUAGE ScopedTypeVariables #-}
   4 {-# LANGUAGE TupleSections #-}
   5 {-# OPTIONS_GHC -fno-warn-orphans #-}
   6 module Test where
   7
   8 import Data.Function (($))
   9 import System.IO (IO)
  10 import Test.Tasty
  11
  12 import qualified Read.Test as Read
  13 import qualified Write.Test as Write
  14
  15 main :: IO ()
  16 main =
  17         defaultMain $
  18         testGroup "Ledger"
  19          [ Read.tests
  20          , Write.tests
  21          ]