diff --git a/RELEASE_NOTES.md b/RELEASE_NOTES.md index e238118d..522fd782 100644 --- 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 index 9a6c6047..27278902 100644 --- a/src/canopy/AssemblyInfo.fs +++ b/src/canopy/AssemblyInfo.fs @@ -4,9 +4,9 @@ open System.Reflection [] [] [] -[] -[] +[] +[] do () module internal AssemblyVersionInformation = - let [] Version = "0.9.39" + let [] Version = "0.9.40" diff --git a/src/canopy/runner.fs b/src/canopy/runner.fs index 9f72fe8d..14d2bb07 100644 --- 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