例 ： OnAfterProductionStart

Tutorial.ProductionTest の OnAfterProductionStart メソッドは、プロダクションが正常に開始した後に実行されます。このメソッドを、以下を実行するようにオーバーライドします。

• SendRequest を使用して、2 つの要求メッセージを作成し、テスト・サービスに送信します。テスト・サービスが要求メッセージを Tutorial.ExampleProduction ビジネス・オペレーションに転送する各ケースにおいて、そのビジネス・オペレーションには Tutorial.ExampleOperation という名前が付けられます。

• $$$AssertEquals を使用して、最初の応答の内容を確認します。response という名前の変数は、参照によって SendRequest に渡されることに注意してください。メソッドが返されるときに、この変数はビジネス・オペレーションからの応答メッセージを指します。

• 2 つ目の要求メッセージには、その StringValue プロパティに NULL 値が含まれています。これにより、ビジネス・オペレーションはエラーを生成して返します。

完成したメソッドは以下のとおりです。

Method OnAfterProductionStart() As %Status
{
 Set request = ##class(Ens.StringRequest).%New()
 set request.StringValue="Hello Productions"
 Set tSC = ..SendRequest( "Tutorial.ExampleOperation" ,request, 
                                                       .response,1,40)
 Do $$$AssertEquals(response.StringValue,"OK","Response should contain OK.")
 Set request.StringValue=""
 Set tSC = ..SendRequest( "Tutorial.ExampleOperation" ,request, 
                                                        .response,1,40)
 Return $$$OK
}