Fix #219 add nmany

lefthandedgoat · Nov 4, 2015 · 2a0de9c · 2a0de9c
1 parent 2f3cdfa
commit 2a0de9c
Show file tree

Hide file tree

Showing 3 changed files with 9 additions and 3 deletions.
diff --git a/RELEASE_NOTES.md b/RELEASE_NOTES.md
@@ -190,3 +190,6 @@ Fix a bug in html reporter trying to describe json, it would fail to because the
 
 #### 0.9.39 - October 22 2015
 Fix a bug in the bug I fixed in 0.9.38 [Issue #218](https://github.com/lefthandedgoat/canopy/issues/218)
+
+#### 0.9.40 - November 4 2015
+Added nmany to let you run many tests with a name [Issue #219](https://github.com/lefthandedgoat/canopy/issues/219)
diff --git a/src/canopy/AssemblyInfo.fs b/src/canopy/AssemblyInfo.fs
@@ -4,9 +4,9 @@ open System.Reflection
 [<assembly: AssemblyTitleAttribute("canopy")>]
 [<assembly: AssemblyProductAttribute("canopy")>]
 [<assembly: AssemblyDescriptionAttribute("F# web testing framework")>]
-[<assembly: AssemblyVersionAttribute("0.9.39")>]
-[<assembly: AssemblyFileVersionAttribute("0.9.39")>]
+[<assembly: AssemblyVersionAttribute("0.9.40")>]
+[<assembly: AssemblyFileVersionAttribute("0.9.40")>]
 do ()
 
 module internal AssemblyVersionInformation =
-    let [<Literal>] Version = "0.9.39"
+    let [<Literal>] Version = "0.9.40"
diff --git a/src/canopy/runner.fs b/src/canopy/runner.fs
@@ -42,6 +42,9 @@ let wip f = null &&&& f
 let many count f = 
     let lastSuite = incrementLastTestSuite()
     [1 .. count] |> List.iter (fun _ -> lastSuite.Manys <- Test(null, f, lastSuite.TotalTestsCount)::lastSuite.Manys)
+let nmany count description f = 
+    let lastSuite = incrementLastTestSuite()
+    [1 .. count] |> List.iter (fun _ -> lastSuite.Manys <- Test(description, f, lastSuite.TotalTestsCount)::lastSuite.Manys)
 let ( &&! ) description f = 
     let lastSuite = incrementLastTestSuite()
     lastSuite.Tests <- Test(description, skipped, lastSuite.TotalTestsCount)::lastSuite.Tests