Skip to content

Instantly share code, notes, and snippets.

@srhb

srhb/gist:298ffcb2ff78e6379642278e70a86852

Created March 6, 2019 18:24
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save srhb/298ffcb2ff78e6379642278e70a86852 to your computer and use it in GitHub Desktop.
Save srhb/298ffcb2ff78e6379642278e70a86852 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.txt
--- a/test/Test.hs
+++ b/test/Test.hs
@@ -134,7 +134,7 @@ prop_ppDiffR :: DiffInput -> Property
prop_ppDiffR (DiffInput le ri) =
let haskDiff=ppDiff $ getGroupedDiff le ri
utilDiff= unsafePerformIO (runDiff (unlines le) (unlines ri))
- in cover (haskDiff == utilDiff) 90 "exact match" $
+ in cover 90 (haskDiff == utilDiff) "exact match" $
classify (haskDiff == utilDiff) "exact match"
(div ((length haskDiff)*100) (length utilDiff) < 110) -- less than 10% bigger
where
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment