addressbook/test/MyLibTest.hs

module Main (main) where

import Test.Tasty

import qualified Test.Data.Email as Data.Email
import qualified Test.Data.Email.Header as Data.Email.Header
import qualified Test.Data.Trie as Data.Trie

tests :: TestTree
tests = testGroup "tests"
  [ Data.Email.Header.tests
  , Data.Email.tests
  , Data.Trie.tests
  ]

main :: IO ()
main = defaultMain tests
Initial commit 2020-12-10 19:47:11 +02:00			`module Main (main) where`

Tests pass 2020-12-10 21:24:23 +02:00			`import Test.Tasty`

Parse headers from an email 2020-12-10 22:22:46 +02:00			`import qualified Test.Data.Email as Data.Email`
Tests pass 2020-12-10 21:24:23 +02:00			`import qualified Test.Data.Email.Header as Data.Email.Header`
Bring the addressbook back up to date - bytestring-trie is not available - hls - modern shell.nix - base - Re-implement trie, with benchmarks - Realize my implementation of trie is slower than Data.Map, use that instead 2021-10-29 17:22:29 +03:00			`import qualified Test.Data.Trie as Data.Trie`
Tests pass 2020-12-10 21:24:23 +02:00
			`tests :: TestTree`
			`tests = testGroup "tests"`
			`[ Data.Email.Header.tests`
Parse headers from an email 2020-12-10 22:22:46 +02:00			`, Data.Email.tests`
Bring the addressbook back up to date - bytestring-trie is not available - hls - modern shell.nix - base - Re-implement trie, with benchmarks - Realize my implementation of trie is slower than Data.Map, use that instead 2021-10-29 17:22:29 +03:00			`, Data.Trie.tests`
Tests pass 2020-12-10 21:24:23 +02:00			`]`

Initial commit 2020-12-10 19:47:11 +02:00			`main :: IO ()`
Tests pass 2020-12-10 21:24:23 +02:00			`main = defaultMain tests`