Skip to content

Commit

Permalink
Use sorted list so test suite is consistent across operating systems
Browse files Browse the repository at this point in the history
  • Loading branch information
mightybyte committed Sep 12, 2012
1 parent 3cc4f8c commit 44da04c
Showing 1 changed file with 3 additions and 2 deletions.
5 changes: 3 additions & 2 deletions test/suite/Heist/Tests.hs
Original file line number Diff line number Diff line change
Expand Up @@ -8,6 +8,7 @@ module Heist.Tests
import Blaze.ByteString.Builder
import Control.Monad.State
import qualified Data.ByteString.Char8 as B
import Data.List
import Data.Maybe
import Data.Monoid
import qualified Data.Text as T
Expand Down Expand Up @@ -42,11 +43,11 @@ tests = [ testCase "loadErrors" loadErrorsTest
loadErrorsTest :: H.Assertion
loadErrorsTest = do
ets <- loadIO "templates-bad" [] [] [] []
either (H.assertEqual "load errors test" expected)
either (H.assertEqual "load errors test" expected . sort)
(const $ H.assertFailure "No failure when loading templates-bad")
ets
where
expected =
expected = sort
["templates-bad/bind-infinite-loop.tpl: template recursion exceeded max depth, you probably have infinite splice recursion!"
,"templates-bad/apply-template-not-found.tpl: apply tag cannot find template \"/page\""
,"templates-bad/bind-missing-attr.tpl: must supply \"tag\" attribute in <bind>"
Expand Down

0 comments on commit 44da04c

Please sign in to comment.