title: How to Generate Fuchu Unit testCases in for loop
body: <p>I'm trying to generate random unit tests in F# with Fuchu.</p>
  
  <p>I'm executing my code in Vs 2017 with a normal Console App.</p>
  
  <p>The issue is that <code>GeneraterandomTests</code> will not compile.</p>
  
  <pre><code>open Fuchu
  
  let OpenOrSenior xs = 
      [for (x:List&lt;int&gt;) in xs do
          if x.[0] &gt;= 55 &amp;&amp; x.[1] &gt; 7 then yield "Senior" else yield "Open"]
  
  let rand = new Random()
  
  type ClubMember = {Age:int;Handi:int}
  
  let values =  [
          {Age = 10;Handi=2}
          {Age=25;Handi=9}
          {Age=75;Handi=2}
          {Age=20;Handi=25}
          {Age=1;Handi=1}
          {Age=90;Handi=8}
          {Age=79;Handi=12}
          {Age=99;Handi=18}
          {Age=75;Handi=8}
          {Age=76;Handi=9}
      ]
  
  
  let SelectMember (mem:ClubMember) = 
      match mem with 
      | x when (mem.Age &gt;= 55) &amp;&amp; (mem.Handi &gt; 7) -&gt; "Senior"
      | _ -&gt; "Open"
  
  
  let PutAttributesInList (mem:ClubMember) = 
      match mem with 
      | _ -&gt; [mem.Age; mem.Handi]
  
  let Randomtests expected actual = testCase "Randomness"  &lt;|
                                          fun _ -&gt;  Assert.Equal("expected == actual?", OpenOrSenior expected, actual)
  
  [&lt;Tests&gt;]
  let GeneraterandomTests = 
  
      for i in 1..10 do 
          let mutable expected:int list list = []
          let mutable actual: string list = []
          for _i in 1..5 do 
              let mutable rndNumb = rand.Next(0,9)
              actual &lt;- SelectMember values.[rndNumb] :: actual
              expected &lt;- PutAttributesInList values.[rndNumb] :: expected
          Randomtests expected actual
  </code></pre>