Bryan O'Sullivan avatar Bryan O'Sullivan committed 1491faf

Fix up an errant test.

Comments (0)

Files changed (2)

-all: TestFastSet.out QC.out
+all: TestFastSet.out qc.out
 
 %.out: %.exe
 	./$< | tee $<.tmp
 	mv $<.tmp $@
 
+qc.exe: QC.hs
+	ghc -O -fno-warn-orphans --make -o $@ $<
+
 %.exe: %.hs
 	ghc -O -fno-warn-orphans --make -o $@ $<
 
+{-# LANGUAGE OverloadedStrings #-}
 module Main (main) where
 
 import Control.Monad (forM_)
 import Test.QuickCheck hiding (NonEmpty)
 import qualified Data.Attoparsec as P
 import qualified Data.ByteString as B
+import qualified Data.ByteString.Char8 as C
 
 -- Make sure that structures whose types claim they are non-empty
 -- really are.
          P.Done t' h' -> t == t' && h == h'
          _            -> False
 
-takeWhile1 (w, NonEmpty s) =
-    let (h,t) = B.span (==w) s
-    in case defP (P.takeWhile1 (==w)) s of
+takeWhile1 (w, s) =
+    let s'    = B.cons w s
+        (h,t) = B.span (<=w) s'
+    in case defP (P.takeWhile1 (<=w)) s' of
          P.Done t' h' -> t == t' && h == h'
          _            -> False
 
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.