CLASS ltcl_user_record DEFINITION DEFERRED.

CLASS zcl_abapgit_user_record DEFINITION LOCAL FRIENDS ltcl_user_record.

CLASS ltcl_user_record DEFINITION FINAL FOR TESTING
  DURATION SHORT
  RISK LEVEL HARMLESS.

  PRIVATE SECTION.
    CONSTANTS gc_wrong_user TYPE sy-uname VALUE 'WRONG_USER'.
    METHODS:
      test_invalid_user FOR TESTING RAISING cx_static_check.
ENDCLASS.


CLASS ltcl_user_record IMPLEMENTATION.

  METHOD test_invalid_user.
    DATA: lo_user_record TYPE REF TO zcl_abapgit_user_record.

    zcl_abapgit_user_record=>reset( ).
    lo_user_record = zcl_abapgit_user_record=>get_instance( gc_wrong_user ).

    cl_abap_unit_assert=>assert_equals(
      exp = 0
      act = lines( zcl_abapgit_user_record=>gt_user )
      msg = |User { gc_wrong_user } is missing in the list| ).
  ENDMETHOD.

ENDCLASS.
