import Algebra.Graph.Test.AdjacencyIntMap
import Algebra.Graph.Test.AdjacencyMap
import Algebra.Graph.Test.NonEmpty.AdjacencyMap
import Algebra.Graph.Test.Export
import Algebra.Graph.Test.Fold
import Algebra.Graph.Test.Graph
import Algebra.Graph.Test.NonEmpty.Graph
import Algebra.Graph.Test.Internal
import Algebra.Graph.Test.Labelled.AdjacencyMap
import Algebra.Graph.Test.Labelled.Graph
import Algebra.Graph.Test.Relation
import Algebra.Graph.Test.Relation.SymmetricRelation
import Data.Graph.Test.Typed

import Control.Monad
import System.Environment

-- | By default, all testsuites will be executed, which takes a few minutes. If
-- you would like to execute only some specific testsuites, you can specify
-- their names in the command line. For example:
--
-- stack test --test-arguments "Graph SymmetricRelation"
--
-- will test the modules "Algebra.Graph" and "Algebra.Graph.Symmetric.Relation".
main :: IO ()
main = do
    selected <- getArgs
    let go current = when (null selected || current `elem` selected)
    go "AdjacencyIntMap"      testAdjacencyIntMap
    go "AdjacencyMap"         testAdjacencyMap
    go "Export"               testExport
    go "Fold"                 testFold
    go "Graph"                testGraph
    go "Internal"             testInternal
    go "LabelledAdjacencyMap" testLabelledAdjacencyMap
    go "LabelledGraph"        testLabelledGraph
    go "NonEmptyAdjacencyMap" testNonEmptyAdjacencyMap
    go "NonEmptyGraph"        testNonEmptyGraph
    go "Relation"             testRelation
    go "SymmetricRelation"    testSymmetricRelation
    go "Typed"                testTyped