Slightly cleaned up tests

snoyberg · May 27, 2011 · 307738a · 307738a
1 parent 0bc86a5
commit 307738a
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 1 deletion.
diff --git a/mkbin.hs b/mkbin.hs
@@ -0,0 +1,3 @@
+import qualified Data.ByteString as S
+
+main = S.writeFile "sample/binary" $ S.pack [50, 51, 52, 0, 49, 50, 51]
diff --git a/runtests.hs b/runtests.hs
@@ -9,7 +9,7 @@ import Data.List (sort)
 
 myeq x y = do
     y' <- y
-    x @=? y'
+    x @?= y'
 
 main = hspec $ descriptions
     [ describe "embedFile"

diff --git a/sample/binary b/sample/binary