Skip to content

Commit 54b5482

Browse files
committed
Add dummy unit test for set matching
1 parent a2cd669 commit 54b5482

File tree

1 file changed

+12
-0
lines changed

1 file changed

+12
-0
lines changed

booster/unit-tests/Test/Booster/Pattern/MatchRewrite.hs

Lines changed: 12 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -32,6 +32,7 @@ test_match_rewrite =
3232
, sorts
3333
, injections
3434
, internalLists
35+
, internalSets
3536
, internalMaps
3637
]
3738

@@ -376,6 +377,17 @@ internalLists =
376377

377378
klist = KList testKListDef
378379

380+
internalSets :: TestTree
381+
internalSets =
382+
testGroup
383+
"Internal sets"
384+
[ test
385+
"Can match an empty set with itself"
386+
emptySet
387+
emptySet
388+
(success [])
389+
]
390+
379391
internalMaps :: TestTree
380392
internalMaps =
381393
testGroup

0 commit comments

Comments
 (0)