/FingTest/TestUtil.fs

 1module Fing.TestUtil
 2open Util
 3open TestCases
 4open NUnit.Framework
 5// these are surprisingly easy to write and understand in their non-general tuple forms
 6let safezip l1 l2 = 
 7  let len = min (List.length l1) (List.length l2)
 8  Seq.zip (Seq.take len l1) (Seq.take len l2)
 9let sprints l = Seq.map (sprintf "%A") l |> String.concat ","
10let testall (results : seq<'a*'a>) =
11  Seq.iteri (fun i (exp,act) ->
12               Assert.AreEqual(exp :> obj,act :> obj, sprintf "%d. %A" i act))
13            results
14let testWith f pairs = Seq.map (second f) pairs |> testall
15let forallt f = testall (List.map f passresults)
16