'''<summary>Initialize the test</summary>
<TestInitialize()> _
Public Sub Initialize()
    calculatorLibrary = New CalculatorLibrary(Of Integer)( _
        New Math.Integer.Calculator())
End Sub

''' <summary>
''' Test Sum Method for Int type.  (11+2+73=86)
''' </summary>
<TestMethod()> _
Public Sub TestIntSumMethod()
    Dim itemsToAdd As List(Of Integer) = New List(Of Integer)
    itemsToAdd.Add(11)
    itemsToAdd.Add(2)
    itemsToAdd.Add(73)
    Dim result As Integer = calculatorLibrary.Sum(itemsToAdd)
    Assert.AreEqual(86, result)
End Sub

<CheckinEvent xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
  <Artifacts>
    <Artifact xsi:type="ClientArtifact" 
      ArtifactType="Changeset" ServerItem="">
      <Url>http://TeamFoundation:8080//VersionControl/Changeset.aspx?
           artifactMoniker=90&webView=true</Url> 
    </Artifact>
    <Artifact xsi:type="ClientArtifact" ArtifactType="VersionedItem" 
      Item="MathLibrary.cs" 
      Folder="$/MSDN Calculator/Msdn.MathLibrary/Msdn.MathLibrary"
      TeamProject="MSDN Calculator" ItemRevision="111" ChangeType="edit"    
      ServerItem="$/MSDN Calculator/Msdn.MathLibrary/
                  Msdn.MathLibrary/MathLibrary.cs">
    </Artifact>
  </Artifacts>
  <Title>MSDN Calculator Check-in 111: Added intentional error</Title> 
  <ContentTitle>Check-in 111: Added intentional error</ContentTitle> 
  <Owner>PICCOLO\\bwaldron</Owner> 
  <Committer>PICCOLO\\bwaldron</Committer> 
  <Number>90</Number> 
  <CreationDate>10/15/2005 6:06:01 PM</CreationDate> 
  <Comment>Added intentional error</Comment> 
  <TimeZone>Pacific Daylight Time</TimeZone> 
  <TimeZoneOffset>-07:00:00</TimeZoneOffset> 
  <TeamProject>MSDN Calculator</TeamProject> 
  <PolicyOverrideComment /> 
</CheckinEvent>

Private Sub BuildProject(ByVal state As Object)
    Dim eventXml As String = CType(state, String)

    ' parse info from Event XML
    Dim xmlDocument As XmlDocument = New XmlDocument()
    xmlDocument.LoadXml(eventXml)
    Dim teamProject As String = _
        xmlDocument.DocumentElement("TeamProject").InnerText
    Dim requestor As String = _
        xmlDocument.DocumentElement("Committer").InnerText
        Dim changeTitle As String = _
            xmlDocument.DocumentElement("ContentTitle").InnerText
        Dim offset As Integer = requestor.IndexOf("\"c)

        If offset > -1 Then
            requestor = requestor.Substring(offset + 1)
        End If

        ' create the build parameters for StartBuild method
        Dim buildParameters As _
            Microsoft.TeamFoundation.Build.Proxy.BuildParameters = _
            New Microsoft.TeamFoundation.Build.Proxy.BuildParameters()
        buildParameters.TeamFoundationServer = FoundationServer
        buildParameters.TeamProject = teamProject
        buildParameters.BuildDirectory = BuildDirectoryPath
        buildParameters.BuildMachine = BuildServer
        buildParameters.BuildType = BuildType

        Dim status As BuildConstants.BuildStatusIconID = _
            BuildConstants.BuildStatusIconID.Default
        Try
            ' create the build controller, start build and record
            Dim buildController As BuildController = _
             BuildProxyUtilities.GetBuildControllerProxy(FoundationServer)
            Dim uri As String = 
                buildController.StartBuild(buildParameters)

            Dim buildData As _
                Microsoft.TeamFoundation.Build.Proxy.BuildData = Nothing
            Dim buildStore As BuildStore = _
                BuildProxyUtilities.GetBuildStoreProxy(FoundationServer)

            ' wait until the build completes
            While status = BuildConstants.BuildStatusIconID.Default
                'wait a second to check status
                Thread.Sleep(1000)
                buildData = buildStore.GetBuildDetails(uri)
                status = CType(buildData.BuildStatusId, _ 
                    BuildConstants.BuildStatusIconID)
            End While

            If status = BuildConstants.BuildStatusIconID.BuildFailed Then
                ' create a workitem for the developer who checked in
                AssignWorkItem(requestor, changeTitle, buildData)
            End If
            NotifyGroup(requestor, buildData)
        Catch soapEx As SoapException
            ' TODO: e-mail build administrator
        End Try
    End Sub

Private Sub AssignWorkItem(ByVal requestor As String, _
    ByVal changeTitle As String, ByVal buildData As _
    Microsoft.TeamFoundation.Build.Proxy.BuildData)
        
    Dim server As TeamFoundationServer = _
        TeamFoundationServerFactory.GetServer(FoundationServer)
    Dim store As WorkItemStore = _ 
        CType(server.GetService(GetType(WorkItemStore)), WorkItemStore)

    Dim workItemTypes As WorkItemTypeCollection = _ 
        store.Projects(buildData.TeamProject).WorkItemTypes
        
    ' Enter the work item as a bug
    Dim workItemType As WorkItemType = workItemTypes("bug")
    Dim workItem As WorkItem = New WorkItem(workItemType)

    workItem.Title = String.Format("Build {0} broken because " & _
        "check-in changes.  Investigate and correct: {1} ", _
        buildData.BuildNumber, changeTitle)
    workItem.Fields("System.AssignedTo").Value = requestor
    workItem.Fields("Microsoft.VSTS.Common.Priority").Value = 1
    workItem.Save()
End Sub