Listing 1 - Customized test script

1  !Browser:IE5
2  !IFX Message Test

3  Environment
4  	Description "C01A-F0300-04A"
5	Mode		HTTP
6	Wait		UNIT MILLISECONDS
7
8  Definitions
9	
10	Include			"RESPONSE_CODES.INC"
11	Include			"GLOBAL_VARIABLES.INC"
12	Include			"IFX_VARIABLES.INC"
13	
14	!Identify the Request file
15	CHARACTER*5120  REQUEST_LINE  , FILE="C01A-F0300-04Arq.?   xml"
16	!Identify the Model Response file
17	CHARACTER*5120  RESPONSE_LINE , FILE="C01A-F0300-04Ars.?   xml"
18
19  Code
20	!Begin the script
21	Entry[]
22	
23	!Start the test case for logging purposes
24	LOAD SCRIPT into SCRIPT_NAME
25	START TEST-CASE SCRIPT_NAME
26	REPORT "START " , SCRIPT_NAME
27	
28	!Read in the Request IFX Message
29	CALL Read_Rq


30	
31	!Read in the Model Response
32	CALL Read_Model_Rs
33
34  !Post the request message to the IFX server
35  CALL Post_Request
36
37	!Report on the Request and Response
38	REPORT SCRIPT_NAME , " Request: ", THEXML
39	REPORT SCRIPT_NAME , " Response: ", THERESPONSE
40
41	!Remove all CRLF pairs from the response
42	CALL REMOVE_CRLF [THERESPONSE, NOCRLF]
43	
44	!Compare Actual with Model Response
45	Set passtest = 0
46	CALL CHECK_4A
47
48  !Record whether test passed or failed
49  If (passtest > 0) THEN
50   	PASS TEST-CASE
51  ELSE
52   	FAIL TEST-CASE
53  ENDIF
54
55	END TEST-CASE
56	
57  Exit
58
59  !Include common subroutines referenced in all scripts
60  Include			"IFX_SUBROUTINES.INC"