Slightly cleaned up tests
commit307738a8c54f6330dd1efeb4fdba79cabdd12d51
authorMichael Snoyman <michael@snoyman.com>
dateFri 27 May 2011, 07:56 (15 years ago)
parent0bc86a5
mkbin.hsnew file+3
@@ -0,0 +1,3 @@
1+import qualified Data.ByteString as S
2+
3+main = S.writeFile "sample/binary" $ S.pack [50, 51, 52, 0, 49, 50, 51]
runtests.hs+1−1
@@ -9,7 +9,7 @@ import Data.List (sort)
99
1010myeq x y = do
1111 y' <- y
12− x @=? y'
12+ x @?= y'
1313
1414main = hspec $ descriptions
1515 [ describe "embedFile"
sample/binary
Binary file not shown.