diff --git a/src/z2ui5_cl_http_handler.clas.testclasses.abap b/src/z2ui5_cl_http_handler.clas.testclasses.abap index bb9671a9..f1b4acd4 100644 --- a/src/z2ui5_cl_http_handler.clas.testclasses.abap +++ b/src/z2ui5_cl_http_handler.clas.testclasses.abap @@ -2,8 +2,6 @@ CLASS ltcl_unit_01_json DEFINITION FINAL FOR TESTING DURATION SHORT RISK LEVEL HARMLESS. - PUBLIC SECTION. - PRIVATE SECTION. METHODS test_json_attri FOR TESTING RAISING cx_static_check. METHODS test_json_object FOR TESTING RAISING cx_static_check. @@ -12,24 +10,19 @@ CLASS ltcl_unit_01_json DEFINITION FINAL FOR TESTING METHODS test_json_trans_gen FOR TESTING RAISING cx_static_check. ENDCLASS. + CLASS ltcl_unit_01_utility DEFINITION FINAL FOR TESTING DURATION SHORT RISK LEVEL HARMLESS. - PUBLIC SECTION. - PRIVATE SECTION. - - METHODS test_util_uuid_session FOR TESTING RAISING cx_static_check. - METHODS test_util_04_attri_by_ref FOR TESTING RAISING cx_static_check. + METHODS test_util_uuid_session FOR TESTING RAISING cx_static_check. + METHODS test_util_04_attri_by_ref FOR TESTING RAISING cx_static_check. METHODS test_util_01_get_t_attri FOR TESTING RAISING cx_static_check. - METHODS test_util_02_get_attri FOR TESTING RAISING cx_static_check. + METHODS test_util_02_get_attri FOR TESTING RAISING cx_static_check. ENDCLASS. - - - CLASS ltcl_unit_04_deep_data DEFINITION FINAL FOR TESTING DURATION SHORT RISK LEVEL HARMLESS. @@ -50,7 +43,7 @@ CLASS ltcl_unit_04_deep_data DEFINITION FINAL FOR TESTING checkbox TYPE abap_bool, END OF ty_row. - CLASS-DATA t_tab TYPE STANDARD TABLE OF ty_row WITH EMPTY KEY. + CLASS-DATA t_tab TYPE STANDARD TABLE OF ty_row WITH EMPTY KEY. CLASS-DATA sv_status TYPE string. @@ -60,11 +53,8 @@ CLASS ltcl_unit_04_deep_data DEFINITION FINAL FOR TESTING ENDCLASS. - CLASS ltcl_unit_01_json IMPLEMENTATION. - METHOD test_json_attri. - DATA(lo_tree) = NEW z2ui5_lcl_utility_tree_json( ). lo_tree->add_attribute( n = `AAA` v = `BBB` ). @@ -73,11 +63,9 @@ CLASS ltcl_unit_01_json IMPLEMENTATION. IF `{"AAA":"BBB"}` <> lv_result. cl_abap_unit_assert=>fail( 'json tree - wrong stringify attributes' ). ENDIF. - ENDMETHOD. METHOD test_json_object. - DATA(lo_tree) = NEW z2ui5_lcl_utility_tree_json( ). lo_tree->add_attribute_object( `CCC` @@ -87,11 +75,9 @@ CLASS ltcl_unit_01_json IMPLEMENTATION. IF `{"CCC":{"AAA":"BBB"}}` <> lv_result. cl_abap_unit_assert=>fail( 'json tree - wrong stringify object attributes' ). ENDIF. - ENDMETHOD. METHOD test_json_struc. - DATA(lo_tree) = NEW z2ui5_lcl_utility_tree_json( ). TYPES: @@ -109,11 +95,9 @@ CLASS ltcl_unit_01_json IMPLEMENTATION. IF `{"CCC":{"COMP1":"AAA","COMP2":"BBB"}}` <> lv_result. cl_abap_unit_assert=>fail( 'json tree - wrong stringify structure' ). ENDIF. - ENDMETHOD. METHOD test_json_trans. - TYPES: BEGIN OF ty_row, title TYPE string, @@ -122,30 +106,22 @@ CLASS ltcl_unit_01_json IMPLEMENTATION. END OF ty_row. TYPES ty_t_tab TYPE STANDARD TABLE OF ty_row WITH EMPTY KEY. - DATA(lt_tab) = VALUE ty_t_tab( - ( title = 'Test' value = 'this is a description' selected = abap_true ) - ( title = 'Test2' value = 'this is a new descr' selected = abap_false ) - ). + DATA(lt_tab) = VALUE ty_t_tab( ( title = 'Test' value = 'this is a description' selected = abap_true ) + ( title = 'Test2' value = 'this is a new descr' selected = abap_false ) ). DATA(lt_tab2) = VALUE ty_t_tab( ). DATA(lv_tab) = z2ui5_lcl_utility=>trans_any_2_json( lt_tab ). - /ui2/cl_json=>deserialize( - EXPORTING - json = lv_tab - CHANGING - data = lt_tab2 - ). + /ui2/cl_json=>deserialize( EXPORTING json = lv_tab + CHANGING data = lt_tab2 ). IF lt_tab <> lt_tab2. cl_abap_unit_assert=>fail( msg = 'json serial - /ui2/cl_json wrong simple table' quit = 5 ). ENDIF. - ENDMETHOD. METHOD test_json_trans_gen. - TYPES: BEGIN OF ty_row, title TYPE string, @@ -154,44 +130,29 @@ CLASS ltcl_unit_01_json IMPLEMENTATION. END OF ty_row. TYPES ty_t_tab TYPE STANDARD TABLE OF ty_row WITH EMPTY KEY. - DATA(lt_tab) = VALUE ty_t_tab( - ( title = 'Test' value = 'this is a description' selected = abap_true ) - ( title = 'Test2' value = 'this is a new descr' selected = abap_false ) - ). + DATA(lt_tab) = VALUE ty_t_tab( ( title = 'Test' value = 'this is a description' selected = abap_true ) + ( title = 'Test2' value = 'this is a new descr' selected = abap_false ) ). DATA(lt_tab2) = VALUE ty_t_tab( ). DATA(lv_tab) = z2ui5_lcl_utility=>trans_any_2_json( lt_tab ). DATA lo_data TYPE REF TO data. - /ui2/cl_json=>deserialize( - EXPORTING - json = lv_tab - CHANGING - data = lo_data - ). + /ui2/cl_json=>deserialize( EXPORTING json = lv_tab + CHANGING data = lo_data ). - z2ui5_lcl_utility=>trans_ref_tab_2_tab( - EXPORTING - ir_tab_from = lo_data - IMPORTING - t_result = lt_tab2 - ). + z2ui5_lcl_utility=>trans_ref_tab_2_tab( EXPORTING ir_tab_from = lo_data + IMPORTING t_result = lt_tab2 ). IF lt_tab <> lt_tab2. cl_abap_unit_assert=>fail( msg = 'json serial - /ui2/cl_json wrong generic table' quit = 5 ). ENDIF. - ENDMETHOD. - - ENDCLASS. + CLASS ltcl_unit_01_utility IMPLEMENTATION. - - METHOD test_util_04_attri_by_ref. - * DATA(lo_app) = NEW ltcl_unit_04_deep_data( ). * * DATA(lt_attri) = z2ui5_lcl_utility=>get_t_attri_by_ref( lo_app ). @@ -206,12 +167,9 @@ CLASS ltcl_unit_01_utility IMPLEMENTATION. * IF lt_test <> lt_attri. * cl_abap_unit_assert=>fail( msg = 'utility - get t_attri table wrong' quit = 5 ). * ENDIF. - ENDMETHOD. - METHOD test_util_uuid_session. - DATA(lv_one) = z2ui5_lcl_utility=>get_uuid_session( ). DATA(lv_two) = z2ui5_lcl_utility=>get_uuid_session( ). @@ -222,11 +180,9 @@ CLASS ltcl_unit_01_utility IMPLEMENTATION. IF lv_two <> `2`. cl_abap_unit_assert=>fail( msg = 'utility - create session id' quit = 5 ). ENDIF. - ENDMETHOD. METHOD test_util_02_get_attri. - DATA(lo_app) = NEW ltcl_unit_04_deep_data( ). lo_app->sv_status = `ABC`. @@ -237,30 +193,33 @@ CLASS ltcl_unit_01_utility IMPLEMENTATION. IF <> `ABC`. cl_abap_unit_assert=>fail( msg = 'utility - assign of attribute from outside not working' quit = 5 ). ENDIF. - ENDMETHOD. METHOD test_util_01_get_t_attri. - DATA(lo_app) = NEW ltcl_unit_04_deep_data( ). DATA(lt_attri) = CAST cl_abap_classdescr( cl_abap_objectdescr=>describe_by_object_ref( lo_app ) )->attributes. DATA(lt_test) = VALUE abap_attrdescr_tab( - ( length = '8' decimals = '0' name = 'Z2UI5_IF_APP~ID' type_kind = 'g' visibility = 'U' is_interface = 'X' is_inherited = '' is_class = '' is_constant = '' is_virtual = '' is_read_only = '' alias_for = '' ) - ( length = '2' decimals = '0' name = 'CHECK_INITIALIZED' type_kind = 'C' visibility = 'U' is_interface = '' is_inherited = '' is_class = '' is_constant = '' is_virtual = '' is_read_only = '' alias_for = '' ) - ( length = '8' decimals = '0' name = 'SV_STATUS' type_kind = 'g' visibility = 'U' is_interface = '' is_inherited = '' is_class = 'X' is_constant = '' is_virtual = '' is_read_only = '' alias_for = '' ) - ( length = '8' decimals = '0' name = 'T_TAB' type_kind = 'h' visibility = 'U' is_interface = '' is_inherited = '' is_class = 'X' is_constant = '' is_virtual = '' is_read_only = '' alias_for = '' ) - ). + decimals = '0' + visibility = 'U' + is_inherited = '' + is_constant = '' + is_virtual = '' + is_read_only = '' + alias_for = '' + ( length = '8' name = 'Z2UI5_IF_APP~ID' type_kind = 'g' is_interface = 'X' is_class = '' ) + ( length = '2' name = 'CHECK_INITIALIZED' type_kind = 'C' is_interface = '' is_class = '' ) + ( length = '8' name = 'SV_STATUS' type_kind = 'g' is_interface = '' is_class = 'X' ) + ( length = '8' name = 'T_TAB' type_kind = 'h' is_interface = '' is_class = 'X' ) ). IF lt_test <> lt_attri. cl_abap_unit_assert=>fail( msg = 'utility - get abap_attrdescr_tab table wrong' quit = 5 ). ENDIF. - ENDMETHOD. - ENDCLASS. + CLASS ltcl_unit_02_app_start DEFINITION FINAL FOR TESTING DURATION SHORT RISK LEVEL HARMLESS. @@ -268,47 +227,41 @@ CLASS ltcl_unit_02_app_start DEFINITION FINAL FOR TESTING PUBLIC SECTION. INTERFACES z2ui5_if_app. - DATA product TYPE string. - DATA quantity TYPE string. + DATA product TYPE string. + DATA quantity TYPE string. DATA check_initialized TYPE abap_bool. CLASS-DATA sv_state TYPE string. PRIVATE SECTION. - METHODS test_index_html FOR TESTING RAISING cx_static_check. - METHODS test_xml_view FOR TESTING RAISING cx_static_check. - METHODS test_id FOR TESTING RAISING cx_static_check. - METHODS test_xml_popup FOR TESTING RAISING cx_static_check. - METHODS test_bind_one_way FOR TESTING RAISING cx_static_check. - METHODS test_bind_two_way FOR TESTING RAISING cx_static_check. - METHODS test_message_toast FOR TESTING RAISING cx_static_check. - METHODS test_message_box FOR TESTING RAISING cx_static_check. - METHODS test_timer FOR TESTING RAISING cx_static_check. - METHODS test_landing_page FOR TESTING RAISING cx_static_check. - METHODS test_scroll_cursor FOR TESTING RAISING cx_static_check. - METHODS test_navigate FOR TESTING RAISING cx_static_check. - METHODS test_startup_path FOR TESTING RAISING cx_static_check. + METHODS test_index_html FOR TESTING RAISING cx_static_check. + METHODS test_xml_view FOR TESTING RAISING cx_static_check. + METHODS test_id FOR TESTING RAISING cx_static_check. + METHODS test_xml_popup FOR TESTING RAISING cx_static_check. + METHODS test_bind_one_way FOR TESTING RAISING cx_static_check. + METHODS test_bind_two_way FOR TESTING RAISING cx_static_check. + METHODS test_message_toast FOR TESTING RAISING cx_static_check. + METHODS test_message_box FOR TESTING RAISING cx_static_check. + METHODS test_timer FOR TESTING RAISING cx_static_check. + METHODS test_landing_page FOR TESTING RAISING cx_static_check. + METHODS test_scroll_cursor FOR TESTING RAISING cx_static_check. + METHODS test_navigate FOR TESTING RAISING cx_static_check. + METHODS test_startup_path FOR TESTING RAISING cx_static_check. ENDCLASS. CLASS ltcl_unit_02_app_start IMPLEMENTATION. - METHOD test_index_html. + z2ui5_cl_http_handler=>client = VALUE #( t_header = VALUE #( ( name = '~path' value = 'dummy' ) ) ). - z2ui5_cl_http_handler=>client = VALUE #( - t_header = VALUE #( ( name = '~path' value = 'dummy' ) ) - ). - - DATA(lv_index_html) = z2ui5_cl_http_handler=>http_get( ). + DATA(lv_index_html) = z2ui5_cl_http_handler=>http_get( ). IF lv_index_html IS INITIAL. cl_abap_unit_assert=>fail( 'HTTP GET - index html initial' ). ENDIF. - ENDMETHOD. METHOD z2ui5_if_app~main. - IF check_initialized = abap_false. check_initialized = abap_true. product = 'tomato'. @@ -324,115 +277,93 @@ CLASS ltcl_unit_02_app_start IMPLEMENTATION. ENDCASE. IF sv_state = 'TEST_MESSAGE_BOX'. - client->popup_message_box( - text = 'test message box' - ). + client->popup_message_box( text = 'test message box' ). ENDIF. IF sv_state = 'TEST_MESSAGE_TOAST'. - client->popup_message_toast( - text = 'test message toast' - ). + client->popup_message_toast( text = 'test message toast' ). ENDIF. - CASE sv_state. WHEN 'TEST_ONE_WAY'. client->set_next( VALUE #( xml_main = z2ui5_cl_xml_view=>factory( )->shell( - )->page( - title = 'abap2UI5 - First Example' - navbuttonpress = client->_event( 'BACK' ) - shownavbutton = abap_true + )->page( title = 'abap2UI5 - First Example' + navbuttonpress = client->_event( 'BACK' ) + shownavbutton = abap_true )->simple_form( title = 'Form Title' editable = abap_true )->content( 'form' )->title( 'Input' )->label( 'quantity' )->input( client->_bind_one( quantity ) )->label( 'product' - )->input( - value = product - enabled = abap_false - )->button( - text = 'post' - press = client->_event( 'BUTTON_POST' ) + )->input( value = product + enabled = abap_false + )->button( text = 'post' + press = client->_event( 'BUTTON_POST' ) )->get_root( )->xml_get( ) ) ). WHEN 'TEST_POPUP'. client->set_next( VALUE #( xml_popup = z2ui5_cl_xml_view=>factory( - )->dialog( - title = 'abap2UI5 - First Example' + )->dialog( title = 'abap2UI5 - First Example' )->simple_form( title = 'Form Title' editable = abap_true )->content( 'form' )->title( 'Input' )->label( 'quantity' )->input( client->_bind_one( quantity ) )->label( 'product' - )->input( - value = product - enabled = abap_false - )->button( - text = 'post' - press = client->_event( 'BUTTON_POST' ) + )->input( value = product + enabled = abap_false + )->button( text = 'post' + press = client->_event( 'BUTTON_POST' ) )->get_root( )->xml_get( ) ) ). WHEN 'TEST_TIMER'. - client->set_next( VALUE #( - s_timer = VALUE #( - event_finished = 'TIMER_FINISHED' - interval_ms = `500` - ) - xml_main = z2ui5_cl_xml_view=>factory( )->shell( - )->page( - title = 'abap2UI5 - First Example' - navbuttonpress = client->_event( 'BACK' ) - shownavbutton = abap_true - )->simple_form( title = 'Form Title' editable = abap_true - )->content( 'form' - )->title( 'Input' - )->label( 'quantity' - )->input( client->_bind( quantity ) - )->label( 'product' - )->input( - value = product - enabled = abap_false - )->button( - text = 'post' - press = client->_event( 'BUTTON_POST' ) - )->get_root( )->xml_get( ) ) ). + client->set_next( VALUE #( s_timer = VALUE #( event_finished = 'TIMER_FINISHED' + interval_ms = `500` ) + xml_main = z2ui5_cl_xml_view=>factory( )->shell( + )->page( title = 'abap2UI5 - First Example' + navbuttonpress = client->_event( 'BACK' ) + shownavbutton = abap_true + )->simple_form( title = 'Form Title' editable = abap_true + )->content( 'form' + )->title( 'Input' + )->label( 'quantity' + )->input( client->_bind( quantity ) + )->label( 'product' + )->input( value = product + enabled = abap_false + )->button( text = 'post' + press = client->_event( 'BUTTON_POST' ) + )->get_root( )->xml_get( ) ) ). WHEN OTHERS. client->set_next( VALUE #( xml_main = z2ui5_cl_xml_view=>factory( )->shell( - )->page( - title = 'abap2UI5 - First Example' - navbuttonpress = client->_event( 'BACK' ) - shownavbutton = abap_true + )->page( title = 'abap2UI5 - First Example' + navbuttonpress = client->_event( 'BACK' ) + shownavbutton = abap_true )->simple_form( title = 'Form Title' editable = abap_true )->content( 'form' )->title( 'Input' )->label( 'quantity' )->input( client->_bind( quantity ) )->label( 'product' - )->input( - value = product - enabled = abap_false - )->button( - text = 'post' - press = client->_event( 'BUTTON_POST' ) + )->input( value = product + enabled = abap_false + )->button( text = 'post' + press = client->_event( 'BUTTON_POST' ) )->get_root( )->xml_get( ) ) ). ENDCASE. IF sv_state = 'TEST_SCROLL_CURSOR'. - client->set_next( VALUE #( - xml_main = `test` - s_cursor = VALUE #( id = 'id_text2' cursorpos = '5' selectionstart = '5' selectionend = '10' ) - t_scroll = VALUE #( - ( name = 'id_page' value = '99999' ) - ( name = 'id_text3' value = '99999' ) - ) - ) ). + client->set_next( + VALUE #( xml_main = `test` + s_cursor = VALUE #( id = 'id_text2' cursorpos = '5' selectionstart = '5' selectionend = '10' ) + t_scroll = VALUE #( value = '99999' + ( name = 'id_page' ) + ( name = 'id_text3' ) ) ) ). ENDIF. @@ -447,24 +378,18 @@ CLASS ltcl_unit_02_app_start IMPLEMENTATION. CLEAR sv_state. client->nav_app_leave( client->get_app( client->get( )-id_prev_app ) ). ENDIF. - ENDMETHOD. METHOD test_xml_view. - z2ui5_cl_http_handler=>client = VALUE #( - t_header = VALUE #( ( name = '~path_info' value = 'LTCL_UNIT_02_APP_START' ) ) - ). + t_header = VALUE #( ( name = '~path_info' value = 'LTCL_UNIT_02_APP_START' ) ) ). sv_state = ``. - DATA(lv_response) = z2ui5_cl_http_handler=>http_post( ). + DATA(lv_response) = z2ui5_cl_http_handler=>http_post( ). DATA lo_data TYPE REF TO data. - /ui2/cl_json=>deserialize( - EXPORTING - json = lv_response - CHANGING - data = lo_data ). + /ui2/cl_json=>deserialize( EXPORTING json = lv_response + CHANGING data = lo_data ). FIELD-SYMBOLS TYPE any. UNASSIGN . @@ -474,24 +399,18 @@ CLASS ltcl_unit_02_app_start IMPLEMENTATION. IF (9) <> `fail( msg = 'xml view - intital view wrong' quit = 5 ). ENDIF. - ENDMETHOD. METHOD test_id. - z2ui5_cl_http_handler=>client = VALUE #( - t_header = VALUE #( ( name = '~path_info' value = 'LTCL_UNIT_02_APP_START' ) ) - ). + t_header = VALUE #( ( name = '~path_info' value = 'LTCL_UNIT_02_APP_START' ) ) ). sv_state = ``. - DATA(lv_response) = z2ui5_cl_http_handler=>http_post( ). + DATA(lv_response) = z2ui5_cl_http_handler=>http_post( ). DATA lo_data TYPE REF TO data. - /ui2/cl_json=>deserialize( - EXPORTING - json = lv_response - CHANGING - data = lo_data ). + /ui2/cl_json=>deserialize( EXPORTING json = lv_response + CHANGING data = lo_data ). FIELD-SYMBOLS TYPE any. UNASSIGN . @@ -500,25 +419,20 @@ CLASS ltcl_unit_02_app_start IMPLEMENTATION. IF IS INITIAL. cl_abap_unit_assert=>fail( msg = 'id - initial value is initial' quit = 5 ). ENDIF. - ENDMETHOD. METHOD test_bind_one_way. - z2ui5_cl_http_handler=>client = VALUE #( - t_header = VALUE #( ( name = '~path_info' value = 'LTCL_UNIT_02_APP_START' ) ) - " t_param = VALUE #( ( name = 'app' value = 'LTCL_UNIT_02_APP_START' ) ) - ). + t_header = VALUE #( ( name = '~path_info' value = 'LTCL_UNIT_02_APP_START' ) ) + " t_param = VALUE #( ( name = 'app' value = 'LTCL_UNIT_02_APP_START' ) ) + ). sv_state = `TEST_ONE_WAY`. - DATA(lv_response) = z2ui5_cl_http_handler=>http_post( ). + DATA(lv_response) = z2ui5_cl_http_handler=>http_post( ). DATA lo_data TYPE REF TO data. - /ui2/cl_json=>deserialize( - EXPORTING - json = lv_response - CHANGING - data = lo_data ). + /ui2/cl_json=>deserialize( EXPORTING json = lv_response + CHANGING data = lo_data ). FIELD-SYMBOLS TYPE any. UNASSIGN . @@ -527,24 +441,18 @@ CLASS ltcl_unit_02_app_start IMPLEMENTATION. IF <> `500`. cl_abap_unit_assert=>fail( msg = 'data binding - initial set oUpdate wrong' quit = 5 ). ENDIF. - ENDMETHOD. METHOD test_bind_two_way. - z2ui5_cl_http_handler=>client = VALUE #( - t_header = VALUE #( ( name = '~path_info' value = 'LTCL_UNIT_02_APP_START' ) ) - ). + t_header = VALUE #( ( name = '~path_info' value = 'LTCL_UNIT_02_APP_START' ) ) ). sv_state = ``. - DATA(lv_response) = z2ui5_cl_http_handler=>http_post( ). + DATA(lv_response) = z2ui5_cl_http_handler=>http_post( ). DATA lo_data TYPE REF TO data. - /ui2/cl_json=>deserialize( - EXPORTING - json = lv_response - CHANGING - data = lo_data ). + /ui2/cl_json=>deserialize( EXPORTING json = lv_response + CHANGING data = lo_data ). FIELD-SYMBOLS TYPE any. UNASSIGN . @@ -553,24 +461,18 @@ CLASS ltcl_unit_02_app_start IMPLEMENTATION. IF <> `500`. cl_abap_unit_assert=>fail( msg = 'data binding - initial set oUpdate wrong' quit = 5 ). ENDIF. - ENDMETHOD. METHOD test_message_box. - z2ui5_cl_http_handler=>client = VALUE #( - t_header = VALUE #( ( name = '~path_info' value = 'LTCL_UNIT_02_APP_START' ) ) - ). + t_header = VALUE #( ( name = '~path_info' value = 'LTCL_UNIT_02_APP_START' ) ) ). sv_state = `TEST_MESSAGE_BOX`. - DATA(lv_response) = z2ui5_cl_http_handler=>http_post( ). + DATA(lv_response) = z2ui5_cl_http_handler=>http_post( ). DATA lo_data TYPE REF TO data. - /ui2/cl_json=>deserialize( - EXPORTING - json = lv_response - CHANGING - data = lo_data ). + /ui2/cl_json=>deserialize( EXPORTING json = lv_response + CHANGING data = lo_data ). FIELD-SYMBOLS TYPE any. @@ -594,24 +496,18 @@ CLASS ltcl_unit_02_app_start IMPLEMENTATION. IF <> `information`. cl_abap_unit_assert=>fail( msg = 'message box - type wrong' quit = 5 ). ENDIF. - ENDMETHOD. METHOD test_message_toast. - z2ui5_cl_http_handler=>client = VALUE #( - t_header = VALUE #( ( name = '~path_info' value = 'LTCL_UNIT_02_APP_START' ) ) - ). + t_header = VALUE #( ( name = '~path_info' value = 'LTCL_UNIT_02_APP_START' ) ) ). sv_state = `TEST_MESSAGE_TOAST`. - DATA(lv_response) = z2ui5_cl_http_handler=>http_post( ). + DATA(lv_response) = z2ui5_cl_http_handler=>http_post( ). DATA lo_data TYPE REF TO data. - /ui2/cl_json=>deserialize( - EXPORTING - json = lv_response - CHANGING - data = lo_data ). + /ui2/cl_json=>deserialize( EXPORTING json = lv_response + CHANGING data = lo_data ). FIELD-SYMBOLS TYPE any. @@ -635,24 +531,18 @@ CLASS ltcl_unit_02_app_start IMPLEMENTATION. IF <> `show`. cl_abap_unit_assert=>fail( msg = 'message toast - type wrong' quit = 5 ). ENDIF. - ENDMETHOD. METHOD test_timer. - z2ui5_cl_http_handler=>client = VALUE #( - t_header = VALUE #( ( name = '~path_info' value = 'LTCL_UNIT_02_APP_START' ) ) - ). + t_header = VALUE #( ( name = '~path_info' value = 'LTCL_UNIT_02_APP_START' ) ) ). sv_state = `TEST_TIMER`. - DATA(lv_response) = z2ui5_cl_http_handler=>http_post( ). + DATA(lv_response) = z2ui5_cl_http_handler=>http_post( ). DATA lo_data TYPE REF TO data. - /ui2/cl_json=>deserialize( - EXPORTING - json = lv_response - CHANGING - data = lo_data ). + /ui2/cl_json=>deserialize( EXPORTING json = lv_response + CHANGING data = lo_data ). FIELD-SYMBOLS TYPE any. @@ -669,24 +559,18 @@ CLASS ltcl_unit_02_app_start IMPLEMENTATION. IF <> `500`. cl_abap_unit_assert=>fail( msg = 'timer - ms wrong' quit = 5 ). ENDIF. - ENDMETHOD. METHOD test_xml_popup. - z2ui5_cl_http_handler=>client = VALUE #( - t_header = VALUE #( ( name = '~path_info' value = 'LTCL_UNIT_02_APP_START' ) ) - ). + t_header = VALUE #( ( name = '~path_info' value = 'LTCL_UNIT_02_APP_START' ) ) ). sv_state = `TEST_POPUP`. - DATA(lv_response) = z2ui5_cl_http_handler=>http_post( ). + DATA(lv_response) = z2ui5_cl_http_handler=>http_post( ). DATA lo_data TYPE REF TO data. - /ui2/cl_json=>deserialize( - EXPORTING - json = lv_response - CHANGING - data = lo_data ). + /ui2/cl_json=>deserialize( EXPORTING json = lv_response + CHANGING data = lo_data ). FIELD-SYMBOLS TYPE any. UNASSIGN . @@ -696,23 +580,16 @@ CLASS ltcl_unit_02_app_start IMPLEMENTATION. IF (9) <> `fail( msg = 'xml popup - intital popup wrong' quit = 5 ). ENDIF. - ENDMETHOD. METHOD test_landing_page. + z2ui5_cl_http_handler=>client = VALUE #( t_header = VALUE #( ( name = 'referer' value = 'dummy' ) ) ). - z2ui5_cl_http_handler=>client = VALUE #( - t_header = VALUE #( ( name = 'referer' value = 'dummy' ) ) - ). - - DATA(lv_response) = z2ui5_cl_http_handler=>http_post( ). + DATA(lv_response) = z2ui5_cl_http_handler=>http_post( ). DATA lo_data TYPE REF TO data. - /ui2/cl_json=>deserialize( - EXPORTING - json = lv_response - CHANGING - data = lo_data ). + /ui2/cl_json=>deserialize( EXPORTING json = lv_response + CHANGING data = lo_data ). FIELD-SYMBOLS TYPE any. UNASSIGN . @@ -722,24 +599,18 @@ CLASS ltcl_unit_02_app_start IMPLEMENTATION. IF NS `Step 4`. cl_abap_unit_assert=>fail( msg = 'landing page - not started when no app' quit = 5 ). ENDIF. - ENDMETHOD. METHOD test_scroll_cursor. - z2ui5_cl_http_handler=>client = VALUE #( - t_header = VALUE #( ( name = '~path_info' value = 'LTCL_UNIT_02_APP_START' ) ) - ). + t_header = VALUE #( ( name = '~path_info' value = 'LTCL_UNIT_02_APP_START' ) ) ). sv_state = `TEST_SCROLL_CURSOR`. - DATA(lv_response) = z2ui5_cl_http_handler=>http_post( ). + DATA(lv_response) = z2ui5_cl_http_handler=>http_post( ). DATA lo_data TYPE REF TO data. - /ui2/cl_json=>deserialize( - EXPORTING - json = lv_response - CHANGING - data = lo_data ). + /ui2/cl_json=>deserialize( EXPORTING json = lv_response + CHANGING data = lo_data ). " FIELD-SYMBOLS TYPE any. @@ -763,63 +634,51 @@ CLASS ltcl_unit_02_app_start IMPLEMENTATION. * IF <> `information`. * cl_abap_unit_assert=>fail( msg = 'message box - type wrong' quit = 5 ). * ENDIF. - ENDMETHOD. METHOD test_startup_path. - z2ui5_cl_http_handler=>client = VALUE #( - t_header = VALUE #( ( name = '~path_info' value = 'LTCL_UNIT_02_APP_START' ) ) - ). + t_header = VALUE #( ( name = '~path_info' value = 'LTCL_UNIT_02_APP_START' ) ) ). sv_state = `TEST_NAVIGATE`. - DATA(lv_response) = z2ui5_cl_http_handler=>http_post( ). + DATA(lv_response) = z2ui5_cl_http_handler=>http_post( ). DATA lo_data TYPE REF TO data. - /ui2/cl_json=>deserialize( - EXPORTING - json = lv_response - CHANGING - data = lo_data ). + /ui2/cl_json=>deserialize( EXPORTING json = lv_response + CHANGING data = lo_data ). " FIELD-SYMBOLS TYPE any. - ENDMETHOD. METHOD test_navigate. - z2ui5_cl_http_handler=>client = VALUE #( - t_header = VALUE #( ( name = '~path_info' value = 'LTCL_UNIT_02_APP_START' ) ) - ). + t_header = VALUE #( ( name = '~path_info' value = 'LTCL_UNIT_02_APP_START' ) ) ). sv_state = `TEST_NAVIGATE`. - DATA(lv_response) = z2ui5_cl_http_handler=>http_post( ). + DATA(lv_response) = z2ui5_cl_http_handler=>http_post( ). DATA lo_data TYPE REF TO data. - /ui2/cl_json=>deserialize( - EXPORTING - json = lv_response - CHANGING - data = lo_data ). + /ui2/cl_json=>deserialize( EXPORTING json = lv_response + CHANGING data = lo_data ). " FIELD-SYMBOLS TYPE any. - ENDMETHOD. - ENDCLASS. + CLASS ltcl_unit_03_app_ajax DEFINITION FINAL FOR TESTING DURATION SHORT RISK LEVEL HARMLESS. PUBLIC SECTION. - INTERFACES z2ui5_if_app. - DATA product TYPE string. - DATA quantity TYPE string. + DATA product TYPE string. + DATA quantity TYPE string. DATA check_initialized TYPE abap_bool. + CLASS-DATA sv_state TYPE string. + PRIVATE SECTION. METHODS test_app_change_value FOR TESTING RAISING cx_static_check. METHODS test_app_event FOR TESTING RAISING cx_static_check. @@ -827,10 +686,9 @@ CLASS ltcl_unit_03_app_ajax DEFINITION FINAL FOR TESTING ENDCLASS. + CLASS ltcl_unit_03_app_ajax IMPLEMENTATION. - METHOD z2ui5_if_app~main. - IF check_initialized = abap_false. check_initialized = abap_true. product = 'tomato'. @@ -850,40 +708,31 @@ CLASS ltcl_unit_03_app_ajax IMPLEMENTATION. ENDIF. client->set_next( VALUE #( xml_main = z2ui5_cl_xml_view=>factory( )->shell( - )->page( - title = 'abap2UI5 - First Example' - navbuttonpress = client->_event( 'BACK' ) - shownavbutton = abap_true + )->page( title = 'abap2UI5 - First Example' + navbuttonpress = client->_event( 'BACK' ) + shownavbutton = abap_true )->simple_form( title = 'Form Title' editable = abap_true )->content( 'form' )->title( 'Input' )->label( 'quantity' )->input( client->_bind( quantity ) )->label( 'product' - )->input( - value = product - enabled = abap_false - )->button( - text = 'post' - press = client->_event( 'BUTTON_POST' ) + )->input( value = product + enabled = abap_false + )->button( text = 'post' + press = client->_event( 'BUTTON_POST' ) )->get_root( )->xml_get( ) ) ). - ENDMETHOD. METHOD test_app_change_value. - z2ui5_cl_http_handler=>client = VALUE #( - t_header = VALUE #( ( name = '~path_info' value = 'LTCL_UNIT_02_APP_START' ) ) - ). + t_header = VALUE #( ( name = '~path_info' value = 'LTCL_UNIT_02_APP_START' ) ) ). - DATA(lv_response) = z2ui5_cl_http_handler=>http_post( ). + DATA(lv_response) = z2ui5_cl_http_handler=>http_post( ). DATA lo_data TYPE REF TO data. - /ui2/cl_json=>deserialize( - EXPORTING - json = lv_response - CHANGING - data = lo_data ). + /ui2/cl_json=>deserialize( EXPORTING json = lv_response + CHANGING data = lo_data ). FIELD-SYMBOLS TYPE any. @@ -897,14 +746,11 @@ CLASS ltcl_unit_03_app_ajax IMPLEMENTATION. DATA(lv_request) = `{"oUpdate":{"QUANTITY":"600"},"ID": "` && lv_id && `" ,"ARGUMENTS":{"EVENT":"BUTTON_POST","METHOD":"UPDATE"}}`. z2ui5_cl_http_handler=>client = VALUE #( body = lv_request ). - lv_response = z2ui5_cl_http_handler=>http_post( ). + lv_response = z2ui5_cl_http_handler=>http_post( ). CLEAR lo_data. - /ui2/cl_json=>deserialize( - EXPORTING - json = lv_response - CHANGING - data = lo_data ). + /ui2/cl_json=>deserialize( EXPORTING json = lv_response + CHANGING data = lo_data ). UNASSIGN . lv_assign = `OVIEWMODEL->OUPDATE->QUANTITY->*`. @@ -912,23 +758,17 @@ CLASS ltcl_unit_03_app_ajax IMPLEMENTATION. IF <> `600`. cl_abap_unit_assert=>fail( msg = 'data binding - frontend updated value wrong after roundtrip' quit = 5 ). ENDIF. - ENDMETHOD. METHOD test_app_event. - z2ui5_cl_http_handler=>client = VALUE #( - t_header = VALUE #( ( name = '~path_info' value = 'LTCL_UNIT_02_APP_START' ) ) - ). + t_header = VALUE #( ( name = '~path_info' value = 'LTCL_UNIT_02_APP_START' ) ) ). - DATA(lv_response) = z2ui5_cl_http_handler=>http_post( ). + DATA(lv_response) = z2ui5_cl_http_handler=>http_post( ). DATA lo_data TYPE REF TO data. - /ui2/cl_json=>deserialize( - EXPORTING - json = lv_response - CHANGING - data = lo_data ). + /ui2/cl_json=>deserialize( EXPORTING json = lv_response + CHANGING data = lo_data ). FIELD-SYMBOLS TYPE any. @@ -942,14 +782,11 @@ CLASS ltcl_unit_03_app_ajax IMPLEMENTATION. DATA(lv_request) = `{"oUpdate":{"QUANTITY":"700"},"ID": "` && lv_id && `" ,"ARGUMENTS": { "0" : {"EVENT":"BUTTON_POST","METHOD":"UPDATE"} } }`. z2ui5_cl_http_handler=>client = VALUE #( body = lv_request ). - lv_response = z2ui5_cl_http_handler=>http_post( ). + lv_response = z2ui5_cl_http_handler=>http_post( ). CLEAR lo_data. - /ui2/cl_json=>deserialize( - EXPORTING - json = lv_response - CHANGING - data = lo_data ). + /ui2/cl_json=>deserialize( EXPORTING json = lv_response + CHANGING data = lo_data ). UNASSIGN . lv_assign = `S_MSG->TEXT->*`. @@ -957,24 +794,18 @@ CLASS ltcl_unit_03_app_ajax IMPLEMENTATION. IF <> `tomato 700 - send to the server`. cl_abap_unit_assert=>fail( msg = 'message toast - text wrong' quit = 5 ). ENDIF. - ENDMETHOD. METHOD test_app_dump. - z2ui5_cl_http_handler=>client = VALUE #( - t_header = VALUE #( ( name = '~path_info' value = 'LTCL_UNIT_03_APP_AJAX' ) ) - ). + t_header = VALUE #( ( name = '~path_info' value = 'LTCL_UNIT_03_APP_AJAX' ) ) ). sv_state = `ERROR`. - DATA(lv_response) = z2ui5_cl_http_handler=>http_post( ). + DATA(lv_response) = z2ui5_cl_http_handler=>http_post( ). DATA lo_data TYPE REF TO data. - /ui2/cl_json=>deserialize( - EXPORTING - json = lv_response - CHANGING - data = lo_data ). + /ui2/cl_json=>deserialize( EXPORTING json = lv_response + CHANGING data = lo_data ). FIELD-SYMBOLS TYPE any. UNASSIGN . @@ -984,23 +815,20 @@ CLASS ltcl_unit_03_app_ajax IMPLEMENTATION. IF NS `MessagePage`. cl_abap_unit_assert=>fail( msg = 'system app error - not shown by exception' quit = 5 ). ENDIF. - ENDMETHOD. - ENDCLASS. + CLASS ltcl_unit_04_deep_data IMPLEMENTATION. - - METHOD z2ui5_if_app~main. - IF check_initialized = abap_false. check_initialized = abap_true. - t_tab = VALUE #( - ( title = 'Peter' info = 'completed' descr = 'this is a description' icon = 'sap-icon://account' ) - ( title = 'Peter' info = 'incompleted' descr = 'this is a description' icon = 'sap-icon://account' ) - ). + t_tab = VALUE #( title = 'Peter' + descr = 'this is a description' + icon = 'sap-icon://account' + ( info = 'completed' ) + ( info = 'incompleted' ) ). ENDIF. @@ -1008,63 +836,56 @@ CLASS ltcl_unit_04_deep_data IMPLEMENTATION. WHEN `CHANGE`. client->set_next( VALUE #( xml_main = z2ui5_cl_xml_view=>factory( )->shell( - )->page( - title = 'abap2UI5 - First Example' - navbuttonpress = client->_event( 'BACK' ) - shownavbutton = abap_true + )->page( title = 'abap2UI5 - First Example' + navbuttonpress = client->_event( 'BACK' ) + shownavbutton = abap_true )->list( - headertext = 'List Ouput' - items = client->_bind( t_tab ) - mode = `SingleSelectMaster` - selectionchange = client->_event( 'SELCHANGE' ) - )->standard_list_item( - title = '{TITLE}' - description = '{DESCR}' - icon = '{ICON}' - info = '{INFO}' - press = client->_event( 'TEST' ) - type = `Navigation` - selected = `{SELECTED}` + " TODO: check spelling: Ouput (typo) -> Output (ABAP cleaner) + headertext = 'List Ouput' + items = client->_bind( t_tab ) + mode = `SingleSelectMaster` + selectionchange = client->_event( 'SELCHANGE' ) + )->standard_list_item( title = '{TITLE}' + description = '{DESCR}' + icon = '{ICON}' + info = '{INFO}' + press = client->_event( 'TEST' ) + type = `Navigation` + selected = `{SELECTED}` )->get_root( )->xml_get( ) ) ). WHEN OTHERS. client->set_next( VALUE #( xml_main = z2ui5_cl_xml_view=>factory( )->shell( - )->page( - title = 'abap2UI5 - First Example' - navbuttonpress = client->_event( 'BACK' ) - shownavbutton = abap_true + )->page( title = 'abap2UI5 - First Example' + navbuttonpress = client->_event( 'BACK' ) + shownavbutton = abap_true )->list( - headertext = 'List Ouput' - items = client->_bind_one( t_tab ) - mode = `SingleSelectMaster` - selectionchange = client->_event( 'SELCHANGE' ) - )->standard_list_item( - title = '{TITLE}' - description = '{DESCR}' - icon = '{ICON}' - info = '{INFO}' - press = client->_event( 'TEST' ) - type = `Navigation` - selected = `{SELECTED}` + " TODO: check spelling: Ouput (typo) -> Output (ABAP cleaner) + headertext = 'List Ouput' + items = client->_bind_one( t_tab ) + mode = `SingleSelectMaster` + selectionchange = client->_event( 'SELCHANGE' ) + )->standard_list_item( title = '{TITLE}' + description = '{DESCR}' + icon = '{ICON}' + info = '{INFO}' + press = client->_event( 'TEST' ) + type = `Navigation` + selected = `{SELECTED}` )->get_root( )->xml_get( ) ) ). ENDCASE. ENDMETHOD. METHOD test_app_deep_data. - z2ui5_cl_http_handler=>client = VALUE #( - t_header = VALUE #( ( name = '~path_info' value = 'LTCL_UNIT_04_DEEP_DATA' ) ) - ). + t_header = VALUE #( ( name = '~path_info' value = 'LTCL_UNIT_04_DEEP_DATA' ) ) ). - DATA(lv_response) = z2ui5_cl_http_handler=>http_post( ). + DATA(lv_response) = z2ui5_cl_http_handler=>http_post( ). DATA lo_data TYPE REF TO data. - /ui2/cl_json=>deserialize( - EXPORTING - json = lv_response - CHANGING - data = lo_data ). + /ui2/cl_json=>deserialize( EXPORTING json = lv_response + CHANGING data = lo_data ). FIELD-SYMBOLS TYPE any. @@ -1095,24 +916,18 @@ CLASS ltcl_unit_04_deep_data IMPLEMENTATION. IF <> ls_tab_test-descr. cl_abap_unit_assert=>fail( msg = 'data binding - initial tab data wrong' quit = 5 ). ENDIF. - ENDMETHOD. METHOD test_app_deep_data_change. - z2ui5_cl_http_handler=>client = VALUE #( - t_header = VALUE #( ( name = '~path_info' value = 'LTCL_UNIT_04_DEEP_DATA' ) ) - ). + t_header = VALUE #( ( name = '~path_info' value = 'LTCL_UNIT_04_DEEP_DATA' ) ) ). sv_status = 'CHANGE'. - DATA(lv_response) = z2ui5_cl_http_handler=>http_post( ). + DATA(lv_response) = z2ui5_cl_http_handler=>http_post( ). DATA lo_data TYPE REF TO data. - /ui2/cl_json=>deserialize( - EXPORTING - json = lv_response - CHANGING - data = lo_data ). + /ui2/cl_json=>deserialize( EXPORTING json = lv_response + CHANGING data = lo_data ). FIELD-SYMBOLS TYPE any. @@ -1154,17 +969,12 @@ CLASS ltcl_unit_04_deep_data IMPLEMENTATION. DATA(lv_tab) = z2ui5_lcl_utility=>trans_any_2_json( t_tab ). - DATA(lv_request) = `{"oUpdate":{"QUANTITY":"600", "T_TAB":` && lv_tab && `},"oSystem":{"ID": "` && lv_id && `"` && `,"CHECK_DEBUG_ACTIVE":true},"oEvent":{"EVENT":"BUTTON_POST","METHOD":"UPDATE"}}`. + DATA(lv_request) = `{"oUpdate":{"QUANTITY":"600", "T_TAB":` && lv_tab && `},"oSystem":{"ID": "` && lv_id && `"` && `,"CHECK_DEBUG_ACTIVE":true},"oEvent":{"EVENT":"BUTTON_POST","METHOD":"UPDATE"}}`. z2ui5_cl_http_handler=>client = VALUE #( body = lv_request ). - lv_response = z2ui5_cl_http_handler=>http_post( ). + lv_response = z2ui5_cl_http_handler=>http_post( ). CLEAR lo_data. - /ui2/cl_json=>deserialize( - EXPORTING - json = lv_response - CHANGING - data = lo_data ). - + /ui2/cl_json=>deserialize( EXPORTING json = lv_response + CHANGING data = lo_data ). ENDMETHOD. - ENDCLASS.