-- $Source: /commtar/monoBANK/CICS_INTF/tc_b.ada,v $ -- $Revision: 1.2 $ $Date: 88/03/20 10:49:53 $ $Author: chris $ with CICS_test_reporter; use CICS_test_reporter; with CICS_Terminal_Control_testing_utility; use CICS_Terminal_Control_testing_utility; with CICS_Exceptions; use CICS_exceptions; with CICS_Terminal_Control; use CICS_Terminal_Control; ---------------- procedure tc_b_1 ---------------- is begin Start_interactive_module("tc_b_1", "raises invalid_request"); declare -- tc_b_1_a begin Start_interactive_test("tc_b_1_a", "raise invalid_request when " & "changing destination while accumulating logical message " & "via Sent_text"); Send_text(From=>Msg(1), Destination=>Paging_Buffer, Accum=>True); Send_text(From=>Msg(2), Destination=>Terminal, Accum=>True); Fail_test("Unexpected exception to be raised"); exception when Invalid_request => Pass_test; when Others => Unexpected_exception; Fail_test; end; declare -- tc_b_1_b begin Start_interactive_test("tc_b_1_b", "raise invalid_request when " & "changing destination while accumulating message via Sent_map"); SS.Send_map(Map=>Mail_send, Mapset=>Mail, Accum=>True, Destination=>Paging_buffer, Source=>Map_only, Req_id=>"Review_screens"); SS.Send_map(Map=>Mail_send, Mapset=>Mail, Accum=>True, Destination=>Terminal, Source=>Map_only, Req_id=>"Review_screens"); Fail_test("Unexpected exception to be raised"); exception when Invalid_request => Pass_test; when Others => Unexpected_exception; Fail_test; end; declare -- tc_b_1_c begin Start_interactive_test("tc_b_1_c", "raise invalid_request when " & "specifying trailer for a send page that follows accumulating " & "message via send map"); SS.Send_map(Map=>Mail_send, Mapset=>Mail, Accum=>True, Destination=>Terminal, Source=>Map_only, Req_id=>"Review_screens"); Send_page(Trailer=>"raise exception"); Fail_test("Unexpected exception to be raised"); exception when Invalid_request => Pass_test; when Others => Unexpected_exception; Fail_test; end; End_module; end; with CICS_test_reporter; use CICS_test_reporter; with CICS_Terminal_Control_testing_utility; use CICS_Terminal_Control_testing_utility; with CICS_Exceptions; use CICS_exceptions; with CICS_Terminal_Control; use CICS_Terminal_Control; ---------------- procedure tc_b_2 ---------------- is begin Start_interactive_module("tc_b_2", "raises ig_req_id"); declare -- tc_b_2_a begin Start_interactive_test("tc_b_2_a", "raise ig_req_id when the " & "req-id in send_page differs from accumulated message's req-id"); SS.Send_map(Map=>Mail_send, Mapset=>Mail, Accum=>True, Destination=>Terminal, Source=>Map_only, Req_id=>"Review_screens"); Send_page; Pass_test; exception when IG_ReqId => Fail_test; when Others => Unexpected_exception; Fail_test; end; declare -- tc_b_2_b begin Start_interactive_test("tc_b_2_b", "raise ig_req_id when the" & "req-id in send_maps differ"); SS.Send_map(Map=>Mail_send, Mapset=>Mail, Accum=>True, Destination=>Terminal, Source=>Map_only, Req_id=>"Review_screens"); SS.Send_map(Map=>Mail_send, Mapset=>Mail, Accum=>True, Destination=>Terminal, Source=>Map_only, Req_id=>"raise exception"); Fail_test; exception when IG_ReqId => Pass_test; when Others => Unexpected_exception; Fail_test; end; End_module; end; with CICS_test_reporter; use CICS_test_reporter; with CICS_Terminal_Control_testing_utility; use CICS_Terminal_Control_testing_utility; with CICS_Exceptions; use CICS_exceptions; with CICS_Terminal_Control; use CICS_Terminal_Control; ---------------- procedure tc_b_3 ---------------- is begin Start_interactive_module("tc_b_3", "raises length_error"); declare data : string (1..0) ; begin Start_interactive_test("tc_b_3", "raise length_error when " & "data read by Converse is too long"); Converse(From=>"Please enter any character",Into=>data); Fail_test; exception when Length_Error => Pass_test; when Others => Unexpected_exception; Fail_test; end; End_module; end; with CICS_test_reporter; use CICS_test_reporter; with CICS_Terminal_Control_testing_utility; use CICS_Terminal_Control_testing_utility; with CICS_Exceptions; use CICS_exceptions; with CICS_Terminal_Control; use CICS_Terminal_Control; ---------------- procedure tc_b_4 ---------------- is begin Start_interactive_module("tc_b_4", "raises invalid_map_size"); declare X : TS.Terminal_data; begin Start_interactive_test("tc_b_4", "raise invalid_map_size when " & "sending a map that is larger than the terminal"); TS.Send_map(Map=>Mail_Toolong, Mapset=>Mail, Accum=>True, Destination=>Terminal, Req_id=>"Review_screens"); Fail_test; exception when Invalid_map_size => Pass_test; when Others => Unexpected_exception; Fail_test; end; End_module; end; with CICS_test_reporter; use CICS_test_reporter; with CICS_Terminal_Control_testing_utility; use CICS_Terminal_Control_testing_utility; with CICS_Exceptions; use CICS_exceptions; with CICS_Terminal_Control; use CICS_Terminal_Control; ---------------- procedure tc_b_5 ---------------- is begin Start_interactive_module("tc_b_5", "raises overflow"); declare begin Start_interactive_test("tc_b_5", "raises overflow when " & "too many maps sent to terminal"); for i in 1..10 loop SS.Send_map(Map=>Mail_send, Mapset=>Mail, Accum=>True, Destination=>Terminal, Req_id=>"Review_screens"); end loop; Fail_test; exception when Overflow => Pass_test; when Others => Unexpected_exception; Fail_test; end; End_module; end; with CICS_test_reporter; use CICS_test_reporter; with CICS_Terminal_Control_testing_utility; use CICS_Terminal_Control_testing_utility; with CICS_Exceptions; use CICS_exceptions; with CICS_Terminal_Control; use CICS_Terminal_Control; ---------------- procedure tc_b_6 ---------------- is begin Start_interactive_module("tc_b_6", "raises mapfail"); declare X : TS.Terminal_data; begin Start_interactive_test("tc_b_6", "raise mapfail when " & "receievd map is larger than terminal data"); TS.Receive_map(Map=>Mail_Toolong, Mapset=>Mail, Into=>X); Fail_test; exception when mapfail => Pass_test; when Others => Unexpected_exception; Fail_test; end; End_module; end;