github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2025-01-04 05:27:08 +03:00
Code Issues Projects Releases Wiki Activity

Scale down the sizes by a factor of four.

Browse Source
This commit is contained in:
Rob Rix 2016-06-30 12:37:41 -04:00
parent a5af331f71
commit 58138d5867
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
test/Data/RandomWalkSimilarity/Spec.hs
View File

@ -31,7 +31,7 @@ spec = parallel $ do
describe "rws" $ do describe "rws" $ do
let compare a b = if extract a == extract b then Just (pure (Replace a b)) else Nothing let compare a b = if extract a == extract b then Just (pure (Replace a b)) else Nothing
prop "produces correct diffs" $ prop "produces correct diffs" . forAll (scale (`div` 4) arbitrary) $
\ (as, bs) -> let tas = toTerm <$> as \ (as, bs) -> let tas = toTerm <$> as
tbs = toTerm <$> bs tbs = toTerm <$> bs
diff = free (Free (pure Program :< Indexed (rws compare identity tas tbs :: [Diff Text Category]))) in diff = free (Free (pure Program :< Indexed (rws compare identity tas tbs :: [Diff Text Category]))) in