anchor.diff:      METHODS get_proxy_port
         RETURNING
           VALUE(rv_port) TYPE string.
  +    METHODS set_run_critical_tests
  +      IMPORTING
  +        iv_run TYPE abap_bool.
  +    METHODS
  +      get_run_critical_tests
  +        RETURNING VALUE(rv_run) TYPE abap_bool.
     PROTECTED SECTION.
   
     PRIVATE SECTION.
       DATA mv_proxy_url TYPE string.
       DATA mv_proxy_port TYPE string.
  +    DATA mv_run_critical_tests TYPE abap_bool.
   
   
   ENDCLASS.
  
positive.code: 
    METHOD get_proxy_port.
      rv_port = mv_proxy_port.
    ENDMETHOD.
  
  ENDCLASS.
  
negative.code:       CATCH lcx_not_found.
          ro_settings->set_proxy_port( '' ).
      ENDTRY.
      TRY.
          lv_critical_tests_as_boolean = lv_critical_tests_as_string = lcl_app=>db( )->read(
              iv_type  = 'SETTINGS'
              iv_value = 'CRIT_TESTS'
            ).
          ro_settings->set_run_critical_tests( lv_critical_tests_as_boolean ).
        CATCH lcx_not_found.
          ro_settings->set_run_critical_tests( abap_false ).
      ENDTRY.
    ENDMETHOD.
  
  ENDCLASS.
  
  CLASS ltcl_persistence_settings DEFINITION FINAL FOR TESTING
    DURATION SHORT
    RISK LEVEL DANGEROUS.
  
    PRIVATE SECTION.
      METHODS:
        setup,
        clear_settings_database,
        "Proxy
        modify_settings_proxy_url     FOR TESTING RAISING cx_static_check,
        modify_settings_proxy_port    FOR TESTING RAISING cx_static_check,
        read_proxy_settings           FOR TESTING RAISING cx_static_check,
        read_not_found_url            FOR TESTING RAISING cx_static_check,
        read_not_found_port           FOR TESTING RAISING cx_static_check,
        "Run critical tests
        modify_run_critical_tests     FOR TESTING RAISING cx_static_check,
        read_run_critical_tests       FOR TESTING RAISING cx_static_check,
        read_not_found_critical_tests FOR TESTING RAISING cx_static_check.
      DATA:
        mo_persistence_settings TYPE REF TO lcl_persistence_settings,
        mo_settings             TYPE REF TO lcl_settings.
  