We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent a2cd669 commit 54b5482Copy full SHA for 54b5482
booster/unit-tests/Test/Booster/Pattern/MatchRewrite.hs
@@ -32,6 +32,7 @@ test_match_rewrite =
32
, sorts
33
, injections
34
, internalLists
35
+ , internalSets
36
, internalMaps
37
]
38
@@ -376,6 +377,17 @@ internalLists =
376
377
378
klist = KList testKListDef
379
380
+internalSets :: TestTree
381
+internalSets =
382
+ testGroup
383
+ "Internal sets"
384
+ [ test
385
+ "Can match an empty set with itself"
386
+ emptySet
387
388
+ (success [])
389
+ ]
390
+
391
internalMaps :: TestTree
392
internalMaps =
393
testGroup
0 commit comments