Tests: MonadCombine->Alternative, add missing ones

typelevel · Nov 23, 2017 · 3a4734e · 3a4734e
1 parent 6b87e2b
commit 3a4734e
Showing 1 changed file with 14 additions and 0 deletions.
diff --git a/.../scala/cats/tests/MonadCombineSuite.scala → ...t/scala/cats/tests/AlternativeSuite.scala b/.../scala/cats/tests/MonadCombineSuite.scala → ...t/scala/cats/tests/AlternativeSuite.scala
@@ -2,6 +2,14 @@ package cats
 package tests
 
 class MonadCombineSuite extends CatsSuite {
+  test("unite") {
+    forAll { (list: List[Option[String]]) =>
+      val expected = list.collect { case Some(s) => s }
+
+      Alternative[List].unite(list) should === (expected)
+    }
+  }
+
   test("separate") {
     forAll { (list: List[Either[Int, String]]) =>
       val ints = list.collect { case Left(i) => i }
@@ -11,4 +19,10 @@ class MonadCombineSuite extends CatsSuite {
       Alternative[List].separate(list) should === (expected)
     }
   }
+
+  test("guard") {
+    forAll { (b: Boolean) =>
+      Alternative[Option].guard(b).isDefined should === (b)
+    }
+  }
 }