anchor.diff:  [<TestCase(12, DayOfWeek.Friday, ExpectedResult = "2013-12-27", Ignore = "Remove to run test case")>]
   [<TestCase(2, DayOfWeek.Saturday, ExpectedResult = "2013-2-23", Ignore = "Remove to run test case")>]
   [<TestCase(3, DayOfWeek.Sunday, ExpectedResult = "2013-3-31", Ignore = "Remove to run test case")>]
  -let ``Finds_last_day_of_week_in_a_month``(month: int) (dayOfWeek: DayOfWeek) =
  +let ``Finds last day of week in a month``(month: int) (dayOfWeek: DayOfWeek) =
       let day = meetupDay dayOfWeek Schedule.Last 2013 month
       day.ToString("yyyy-M-d")
positive.code: [<TestCase(11, DayOfWeek.Friday, ExpectedResult = "2013-11-1", Ignore = "Remove to run test case")>]
  [<TestCase(1, DayOfWeek.Saturday, ExpectedResult = "2013-1-5", Ignore = "Remove to run test case")>]
  [<TestCase(4, DayOfWeek.Sunday, ExpectedResult = "2013-4-7", Ignore = "Remove to run test case")>]
  let ``Finds_first_day_of_week_in_a_month``(month: int) (dayOfWeek: DayOfWeek) =
      let day = meetupDay dayOfWeek Schedule.First 2013 month
      day.ToString("yyyy-M-d")
      
  
negative.code: [<TestCase(12, DayOfWeek.Friday, ExpectedResult = "2013-12-27", Ignore = "Remove to run test case")>]
  [<TestCase(2, DayOfWeek.Saturday, ExpectedResult = "2013-2-23", Ignore = "Remove to run test case")>]
  [<TestCase(4, DayOfWeek.Sunday, ExpectedResult = "2013-4-28", Ignore = "Remove to run test case")>]
  let ``Finds fourth day of week in a month``(month: int) (dayOfWeek: DayOfWeek) =
      let day = meetupDay dayOfWeek Schedule.Fourth 2013 month
      day.ToString("yyyy-M-d")
      
  