Skip to content

Commit b9bc7d8

Browse files
authored
Merge pull request #273 from kategory/add-monadcombine-listkw-laws-test
Add lacking laws test for monadCombine ListKW instance
2 parents ce0e13b + ade64a9 commit b9bc7d8

File tree

1 file changed

+8
-0
lines changed

1 file changed

+8
-0
lines changed

kategory-core/src/test/kotlin/kategory/data/ListKWTest.kt

+8
Original file line numberDiff line numberDiff line change
@@ -30,5 +30,13 @@ class ListKWTest : UnitSpec() {
3030
testLaws(SemigroupKLaws.laws(ListKW.semigroupK(), applicative, Eq.any()))
3131
testLaws(MonoidKLaws.laws(ListKW.monoidK(), applicative, Eq.any()))
3232
testLaws(TraverseLaws.laws(ListKW.traverse(), applicative, { n: Int -> ListKW(listOf(n)) }, Eq.any()))
33+
34+
testLaws(MonadCombineLaws.laws(ListKW.monadCombine(),
35+
{ n -> ListKW(listOf(n)) },
36+
{ n -> ListKW(listOf({ s: Int -> n * s })) },
37+
object : Eq<HK<ListKWHK, Int>> {
38+
override fun eqv(a: HK<ListKWHK, Int>, b: HK<ListKWHK, Int>): Boolean =
39+
a.ev().list == b.ev().list
40+
}))
3341
}
3442
}

0 commit comments

Comments
 (0)