Permalink
Browse files

Slightly cleaned up tests

  • Loading branch information...
1 parent 0bc86a5 commit 307738a8c54f6330dd1efeb4fdba79cabdd12d51 @snoyberg committed May 27, 2011
Showing with 4 additions and 1 deletion.
  1. +3 −0 mkbin.hs
  2. +1 −1 runtests.hs
  3. BIN sample/binary
View
@@ -0,0 +1,3 @@
+import qualified Data.ByteString as S
+
+main = S.writeFile "sample/binary" $ S.pack [50, 51, 52, 0, 49, 50, 51]
View
@@ -9,7 +9,7 @@ import Data.List (sort)
myeq x y = do
y' <- y
- x @=? y'
+ x @?= y'
main = hspec $ descriptions
[ describe "embedFile"
View
Binary file not shown.

0 comments on commit 307738a

Please sign in to comment.