Merge pull request fsprojects#9 from rneatherway/master

Allow a function to check for containment
dmohl · Apr 28, 2013 · 98f0164 · 98f0164
2 parents 51df6a9 + a4cf884
commit 98f0164
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/src/FsUnit.CustomMatchers/CustomMatchers.fs b/src/FsUnit.CustomMatchers/CustomMatchers.fs
@@ -69,3 +69,10 @@ let contain x = CustomMatcher<obj>(sprintf "Contains %s" (x.ToString()),
                                    | :? seq<_> as s -> s |> Seq.exists(fun i -> i = x)
                                    | _ -> false)
 
+let containf f = CustomMatcher<obj>(sprintf "Contains %s" (f.ToString()),
+                          fun c -> match c with
+                                   | :? list<_> as l -> l |> List.exists f
+                                   | :? array<_> as a -> a |> Array.exists f
+                                   | :? seq<_> as s -> s |> Seq.exists f
+                                   | _ -> false)
+