From 9badd09c910d4053470e52b1f44e9bb8d958da34 Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt <m@jaspervdj.be>
Date: Sat, 10 Dec 2011 16:13:22 +0100
Subject: sequenceA was reversing the list

---
 tests/Hakyll/Core/Util/Arrow/Tests.hs | 14 ++++++++++++++
 tests/TestSuite.hs                    |  3 +++
 2 files changed, 17 insertions(+)
 create mode 100644 tests/Hakyll/Core/Util/Arrow/Tests.hs

(limited to 'tests')

diff --git a/tests/Hakyll/Core/Util/Arrow/Tests.hs b/tests/Hakyll/Core/Util/Arrow/Tests.hs
new file mode 100644
index 0000000..c0c7eaa
--- /dev/null
+++ b/tests/Hakyll/Core/Util/Arrow/Tests.hs
@@ -0,0 +1,14 @@
+module Hakyll.Core.Util.Arrow.Tests
+    ( tests
+    ) where
+
+import Test.Framework (Test)
+import Test.HUnit ((@=?))
+
+import Hakyll.Core.Util.Arrow
+import TestSuite.Util
+
+tests :: [Test]
+tests = fromAssertions "sequenceA"
+    [ [8, 20, 1] @=? sequenceA [(+ 4), (* 5), signum] (4 :: Int)
+    ]
diff --git a/tests/TestSuite.hs b/tests/TestSuite.hs
index fdd5e56..d9ba854 100644
--- a/tests/TestSuite.hs
+++ b/tests/TestSuite.hs
@@ -8,6 +8,7 @@ import qualified Hakyll.Core.Routes.Tests
 import qualified Hakyll.Core.Rules.Tests
 import qualified Hakyll.Core.Store.Tests
 import qualified Hakyll.Core.UnixFilter.Tests
+import qualified Hakyll.Core.Util.Arrow.Tests
 import qualified Hakyll.Web.Page.Tests
 import qualified Hakyll.Web.Page.Metadata.Tests
 import qualified Hakyll.Web.Template.Tests
@@ -29,6 +30,8 @@ main = defaultMain
         Hakyll.Core.Store.Tests.tests
     , testGroup "Hakyll.Core.UnixFilter.Tests"
         Hakyll.Core.UnixFilter.Tests.tests
+    , testGroup "Hakyll.Core.Util.Arrow.Tests"
+        Hakyll.Core.Util.Arrow.Tests.tests
     , testGroup "Hakyll.Web.Page.Tests"
         Hakyll.Web.Page.Tests.tests
     , testGroup "Hakyll.Web.Page.Metadata.Tests"
-- 
cgit v1.2.3