ThreadedWebTest クラス

[アーティクル]
08/22/2008

更新 : 2007 年 11 月

Web テストの反復処理ごとに 1 つのスレッドを使用するコード化された Web テストの基本クラスを表します。

名前空間 : Microsoft.VisualStudio.TestTools.WebTesting
アセンブリ : Microsoft.VisualStudio.QualityTools.WebTestFramework (Microsoft.VisualStudio.QualityTools.WebTestFramework.dll 内)

構文

'宣言
Public MustInherit Class ThreadedWebTest _
    Inherits WebTest
'使用
Dim instance As ThreadedWebTest

public abstract class ThreadedWebTest : WebTest

public ref class ThreadedWebTest abstract : public WebTest

public abstract class ThreadedWebTest extends WebTest

解説

これは、常に、Visual C# 反復子のような構文をサポートしない言語で記述された、すべてのコード化された Web テストの基本クラスです。Visual C# で Web テストを記述する方法の例については、WebTest のトピックを参照してください。Visual Studio 2005 Team System の外部でテストを実行する方法の詳細については、「コマンドラインテスト実行」を参照してください。

このクラスは継承する必要があります。インスタンス化することはできません。

継承元へのメモ :

ThreadedWebTest から継承した場合、Run をオーバーライドする必要があります。

例

ThreadedWebTest を継承する、MyCodedWebTest という名前のコード化された Web テストを次に示します。2 番目の要求は、3 つのコントロール内に格納されているフォーム情報をサーバーにポストバックします。

Option Strict Off
Option Explicit On

Imports Microsoft.VisualStudio.TestTools.WebTesting
Imports Microsoft.VisualStudio.TestTools.WebTesting.Rules
Imports System
Imports System.Collections.Generic

Namespace TestProject2
    
    Public Class MyCodedWebTest
        Inherits ThreadedWebTest
        
        Public Sub New()
            MyBase.New
            Me.PreAuthenticate = true
            Me.Proxy = "myproxy.com:80"
        End Sub
        
        Public Overrides Sub Run()
            Dim request1 As WebTestRequest = New WebTestRequest _
                ("https://localhost/MyWebSite")
            request1.ThinkTime = 1
            Dim rule1 As ExtractHiddenFields = New ExtractHiddenFields
            rule1.ContextParameterName = "1"
            AddHandler request1.ExtractValues, AddressOf rule1.Extract
            MyBase.Send(request1)

            Dim request2 As WebTestRequest = New WebTestRequest _
                ("https://localhost/MyWebSite/Default.aspx")
            request2.Method = "POST"
            Dim request2Body As FormPostHttpBody = New FormPostHttpBody
            request2Body.FormPostParameters.Add("__VIEWSTATE", "{{$HIDDEN1" + _
                ".__VIEWSTATE}}")
            request2Body.FormPostParameters.Add("Button1", "Button")
            request2Body.FormPostParameters.Add("TextBox1", "Hello text")
            request2.Body = request2Body
            Dim rule2 As ExtractHiddenFields = New ExtractHiddenFields
            rule2.ContextParameterName = ""
            AddHandler request2.ExtractValues, AddressOf rule2.Extract
            MyBase.Send(request2)
        End Sub
    End Class
End Namespace