diff options
| author | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2011-04-08 22:17:04 +0200 |
|---|---|---|
| committer | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2011-04-08 22:17:04 +0200 |
| commit | a8accd36b117c0a8cadb8dc5161c5a60d62a0aeb (patch) | |
| tree | ea8475006c8a18d068e8e3896ca9fe8affa6ae43 /tests/Hakyll/Core/DirectedGraph/Tests.hs | |
| parent | e4545f9c9e0d94ebbba3532deab1fbdc9fbe70d1 (diff) | |
| download | hakyll-a8accd36b117c0a8cadb8dc5161c5a60d62a0aeb.tar.gz | |
Minor refactoring
Diffstat (limited to 'tests/Hakyll/Core/DirectedGraph/Tests.hs')
| -rw-r--r-- | tests/Hakyll/Core/DirectedGraph/Tests.hs | 36 |
1 files changed, 0 insertions, 36 deletions
diff --git a/tests/Hakyll/Core/DirectedGraph/Tests.hs b/tests/Hakyll/Core/DirectedGraph/Tests.hs deleted file mode 100644 index 3e04b49..0000000 --- a/tests/Hakyll/Core/DirectedGraph/Tests.hs +++ /dev/null @@ -1,36 +0,0 @@ -module Hakyll.Core.DirectedGraph.Tests - ( tests - ) where - -import Data.Set (Set) -import qualified Data.Set as S - -import Test.Framework -import Test.Framework.Providers.HUnit -import Test.HUnit hiding (Test) - -import Hakyll.Core.DirectedGraph -import Hakyll.Core.DirectedGraph.DependencySolver - -tests :: [Test] -tests = - [ testCase "solveDependencies [1]" solveDependencies1 - ] - -node :: Ord a => a -> [a] -> (a, Set a) -node t n = (t, S.fromList n) - -testGraph01 :: DirectedGraph Int -testGraph01 = fromList - [ node 8 [2, 4, 6] - , node 2 [4, 3] - , node 4 [3] - , node 6 [4] - , node 3 [] - ] - -solveDependencies1 :: Assertion -solveDependencies1 = result == [3, 4, 2, 6, 8] || result == [3, 4, 2, 6, 8] - @? "solveDependencies1" - where - result = solveDependencies testGraph01 |