diff options
| author | Yann Herklotz <git@yannherklotz.com> | 2019-10-06 22:41:34 +0100 |
|---|---|---|
| committer | Yann Herklotz <git@yannherklotz.com> | 2019-10-06 22:58:37 +0100 |
| commit | 09fde96bb166b0e6b428aff9034b14f9b31f24eb (patch) | |
| tree | dfc34db9c99a3cdf8983c6a32d602b464018daad /test | |
| parent | 5815e527f7e3b65078e2ad19df3538bb701ec7ac (diff) | |
| download | verismith-09fde96bb166b0e6b428aff9034b14f9b31f24eb.tar.gz verismith-09fde96bb166b0e6b428aff9034b14f9b31f24eb.zip | |
Test cases pass again
Diffstat (limited to 'test')
| -rw-r--r-- | test/Property.hs | 12 |
1 files changed, 0 insertions, 12 deletions
diff --git a/test/Property.hs b/test/Property.hs index a57f92c..7e1911e 100644 --- a/test/Property.hs +++ b/test/Property.hs @@ -43,21 +43,9 @@ acyclicGraph = Hog.property $ do . getCircuit $ g -propertyResultInterrupted :: Property -propertyResultInterrupted = do - mapCompose genResult - (Hog.int (Hog.linear 0 100)) - (Hog.int (Hog.linear 0 100)) - (Hog.int (Hog.linear 0 100)) - where - genResult :: Gen a -> Gen (Result Text a) - genResult a = Hog.choice - [Pass <$> a, Fail <$> Hog.text (Hog.linear 1 100) Hog.unicode] - propertyTests :: TestTree propertyTests = testGroup "Property Tests" [ testProperty "acyclic graph generation check" acyclicGraph - , testProperty "fmap for Result" propertyResultInterrupted , parserTests ] |