anchor.diff:              |> StateBuilder.addHandler (fun s (e:ReportAddedEvent) -> Some e.Name)
               |> StateBuilder.addHandler (fun s (e:ReportNameChangedEvent) -> Some e.Name)
   
  -        let stream = sprintf "%s-%s" (AggregateType.Report.ToString()) ((reportId :> IIdentity).GetId)
  +        let stream = buildStreamId AggregateType.Report reportId
           let state = result.EvaluateState stream stateBuilder
   
           state |> should equal (Some "Test Report")
  
positive.code:         result.LastResult |> should containError "FirstName must not be blank"
          result.LastResult |> should containError "LastName must not be blank"
  
      [<Fact>]
      [<Trait("category", "unit")>]
      let ``Given Existing Teacher When Report added Then teacher report count is incrimented`` () : unit =
  
negative.code:             StateBuilder.Empty 0
              |> StateBuilder.addHandler (fun s (e:ReportAddedEvent) -> s + 1)
  
          let stream = buildStreamId AggregateType.Report reportId
          let state = result.EvaluateState stream stateBuilder
  
          state |> should equal 1
  