File: Tests.hs

package info (click to toggle)
haskell-hakyll 3.2.7.2-1
  • links: PTS, VCS
  • area: main
  • in suites: wheezy
  • size: 420 kB
  • sloc: haskell: 3,407; xml: 39; makefile: 5
file content (14 lines) | stat: -rw-r--r-- 292 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
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)
    ]