From 002cf4de32db979d515c2a9cdcd8c8f42859a797 Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt <jaspervdj@gmail.com>
Date: Wed, 9 Feb 2011 18:11:24 +0100
Subject: Add hamlet templates and restructure tests

---
 tests/Hakyll/Core/DirectedGraph/Tests.hs | 12 ------------
 tests/Hakyll/Core/Identifier/Tests.hs    | 26 ++++++++++----------------
 tests/Hakyll/Core/Route/Tests.hs         | 25 -------------------------
 tests/Hakyll/Core/Routes/Tests.hs        | 19 +++++++++++++++++++
 4 files changed, 29 insertions(+), 53 deletions(-)
 delete mode 100644 tests/Hakyll/Core/Route/Tests.hs
 create mode 100644 tests/Hakyll/Core/Routes/Tests.hs

(limited to 'tests/Hakyll/Core')

diff --git a/tests/Hakyll/Core/DirectedGraph/Tests.hs b/tests/Hakyll/Core/DirectedGraph/Tests.hs
index 1a9b406..3e04b49 100644
--- a/tests/Hakyll/Core/DirectedGraph/Tests.hs
+++ b/tests/Hakyll/Core/DirectedGraph/Tests.hs
@@ -11,13 +11,10 @@ import Test.HUnit hiding (Test)
 
 import Hakyll.Core.DirectedGraph
 import Hakyll.Core.DirectedGraph.DependencySolver
-import Hakyll.Core.DirectedGraph.ObsoleteFilter
 
 tests :: [Test]
 tests =
     [ testCase "solveDependencies [1]" solveDependencies1
-    , testCase "filterObsolete [1]"    filterObsolete1
-    , testCase "filterObsolete [2]"    filterObsolete2
     ]
 
 node :: Ord a => a -> [a] -> (a, Set a)
@@ -37,12 +34,3 @@ solveDependencies1 =  result == [3, 4, 2, 6, 8] || result == [3, 4, 2, 6, 8]
                     @? "solveDependencies1"
   where
     result = solveDependencies testGraph01
-
-filterObsolete1 :: Assertion
-filterObsolete1 =  nodes (filterObsolete [6] testGraph01) == S.fromList [6, 8]
-                 @? "filterObsolete1"
-
-filterObsolete2 :: Assertion
-filterObsolete2 =
-    nodes (filterObsolete [4] testGraph01) == S.fromList [4, 2, 6, 8]
-        @? "filterObsolete2"
diff --git a/tests/Hakyll/Core/Identifier/Tests.hs b/tests/Hakyll/Core/Identifier/Tests.hs
index 910bca3..a7d49e9 100644
--- a/tests/Hakyll/Core/Identifier/Tests.hs
+++ b/tests/Hakyll/Core/Identifier/Tests.hs
@@ -8,22 +8,16 @@ import Test.Framework.Providers.HUnit
 import Test.HUnit hiding (Test)
 
 import Hakyll.Core.Identifier.Pattern
+import TestSuite.Util
 
 tests :: [Test]
-tests = zipWith testCase names matchCases 
-  where
-    names = map (\n -> "match [" ++ show n ++ "]") [1 :: Int ..]
-
--- | Collection of simple cases
---
-matchCases :: [Assertion]
-matchCases =
-    [ Just [["bar"]]                 @=? match "foo/**" "foo/bar"
-    , Just [["foo", "bar"]]          @=? match "**" "foo/bar"
-    , Nothing                        @=? match "*" "foo/bar"
-    , Just []                        @=? match "foo" "foo"
-    , Just [["foo"]]                 @=? match "*/bar" "foo/bar"
-    , Just [["foo", "bar"]]          @=? match "**/qux" "foo/bar/qux"
-    , Just [["foo", "bar"], ["qux"]] @=? match "**/*" "foo/bar/qux"
-    , Just [["foo"], ["bar", "qux"]] @=? match "*/**" "foo/bar/qux"
+tests = fromAssertions "match"
+    [ Just ["bar"]            @=? match "foo/**" "foo/bar"
+    , Just ["foo/bar"]        @=? match "**" "foo/bar"
+    , Nothing                 @=? match "*" "foo/bar"
+    , Just []                 @=? match "foo" "foo"
+    , Just ["foo"]            @=? match "*/bar" "foo/bar"
+    , Just ["foo/bar"]        @=? match "**/qux" "foo/bar/qux"
+    , Just ["foo/bar", "qux"] @=? match "**/*" "foo/bar/qux"
+    , Just ["foo", "bar/qux"] @=? match "*/**" "foo/bar/qux"
     ]
diff --git a/tests/Hakyll/Core/Route/Tests.hs b/tests/Hakyll/Core/Route/Tests.hs
deleted file mode 100644
index 17a4123..0000000
--- a/tests/Hakyll/Core/Route/Tests.hs
+++ /dev/null
@@ -1,25 +0,0 @@
-{-# LANGUAGE OverloadedStrings #-}
-module Hakyll.Core.Route.Tests
-    ( tests
-    ) where
-
-import Test.Framework
-import Test.Framework.Providers.HUnit
-import Test.HUnit hiding (Test)
-
-import Hakyll.Core.Route
-
-tests :: [Test]
-tests = zipWith testCase names matchCases 
-  where
-    names = map (\n -> "runRoute [" ++ show n ++ "]") [1 :: Int ..]
-
--- | Collection of simple cases
---
-matchCases :: [Assertion]
-matchCases =
-    [ Just "foo.html" @=? runRoute (setExtension "html") "foo"
-    , Just "foo.html" @=? runRoute (setExtension ".html") "foo"
-    , Just "foo.html" @=? runRoute (setExtension "html") "foo.markdown"
-    , Just "foo.html" @=? runRoute (setExtension ".html") "foo.markdown"
-    ]
diff --git a/tests/Hakyll/Core/Routes/Tests.hs b/tests/Hakyll/Core/Routes/Tests.hs
new file mode 100644
index 0000000..cca2ee4
--- /dev/null
+++ b/tests/Hakyll/Core/Routes/Tests.hs
@@ -0,0 +1,19 @@
+{-# LANGUAGE OverloadedStrings #-}
+module Hakyll.Core.Routes.Tests
+    ( tests
+    ) where
+
+import Test.Framework
+import Test.Framework.Providers.HUnit
+import Test.HUnit hiding (Test)
+
+import Hakyll.Core.Routes
+import TestSuite.Util
+
+tests :: [Test]
+tests = fromAssertions "runRoutes"
+    [ Just "foo.html" @=? runRoutes (setExtension "html") "foo"
+    , Just "foo.html" @=? runRoutes (setExtension ".html") "foo"
+    , Just "foo.html" @=? runRoutes (setExtension "html") "foo.markdown"
+    , Just "foo.html" @=? runRoutes (setExtension ".html") "foo.markdown"
+    ]
-- 
cgit v1.2.3