git.iko.soy/hakyll
on 5cc710d help sign in
hakyll/tests/Hakyll/Core/DirectedGraph/Tests.hs
36 lines 814 B history raw
1module Hakyll.Core.DirectedGraph.Tests
2 ( tests
3 ) where
5import Data.Set (Set)
6import qualified Data.Set as S
8import Test.Framework
9import Test.Framework.Providers.HUnit
10import Test.HUnit hiding (Test)
12import Hakyll.Core.DirectedGraph
13import Hakyll.Core.DirectedGraph.DependencySolver
15tests :: [Test]
16tests =
17 [ testCase "solveDependencies [1]" solveDependencies1
18 ]
20node :: Ord a => a -> [a] -> (a, Set a)
21node t n = (t, S.fromList n)
23testGraph01 :: DirectedGraph Int
24testGraph01 = fromList
25 [ node 8 [2, 4, 6]
26 , node 2 [4, 3]
27 , node 4 [3]
28 , node 6 [4]
29 , node 3 []
30 ]
32solveDependencies1 :: Assertion
33solveDependencies1 = result == [3, 4, 2, 6, 8] || result == [3, 4, 2, 6, 8]
34 @? "solveDependencies1"
35 where
36 result = solveDependencies testGraph01