Avoid generating the same string in a sequence

As discussed in moodmosaic/Fare#26
moodmosaic · Jul 29, 2020 · 2f0a98a · 2f0a98a
1 parent 6a79cb4
commit 2f0a98a
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/HedgehogTest/Program.fs b/HedgehogTest/Program.fs
@@ -130,7 +130,8 @@ let main _ =
 //    } |> Property.print' 10<tests>
 // 
 
+//    let rnd = System.Random ()
 //    for _ in 1..10 do
-//        (Xeger @"^\[\<([A-Z][a-zA-Z0-9]*)*\>\]$").Generate() |> printfn "%s"
+//        (Xeger (@"^\[\<([A-Z][a-zA-Z0-9]*)*\>\]$", rnd)).Generate() |> printfn "%s"
 
     0