CLASS {{p}}t01_hidden DEFINITION PUBLIC FINAL CREATE PUBLIC
  FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
  PRIVATE SECTION.
    DATA mo_cut TYPE REF TO {{p}}if_iban_check.
    METHODS setup.
    METHODS valid_de FOR TESTING.
    METHODS valid_letters_in_body FOR TESTING.
    METHODS valid_all_countries FOR TESTING.
    METHODS lower_case_ok FOR TESTING.
    METHODS empty FOR TESTING.
    METHODS only_spaces FOR TESTING.
    METHODS bad_chars FOR TESTING.
    METHODS digit_in_country FOR TESTING.
    METHODS unknown_country FOR TESTING.
    METHODS wrong_length FOR TESTING.
    METHODS wrong_checksum FOR TESTING.
    METHODS order_chars_before_country FOR TESTING.
ENDCLASS.


CLASS {{p}}t01_hidden IMPLEMENTATION.
  METHOD setup.
    mo_cut = NEW {{p}}iban_validator( ).
  ENDMETHOD.

  METHOD valid_de.
    cl_abap_unit_assert=>assert_equals( exp = {{p}}if_iban_check=>c_reason-ok
                                        act = mo_cut->check( `DE89 3704 0044 0532 0130 00` ) ).
  ENDMETHOD.

  METHOD valid_letters_in_body.
    cl_abap_unit_assert=>assert_equals( exp = {{p}}if_iban_check=>c_reason-ok
                                        act = mo_cut->check( `GB82 WEST 1234 5698 7654 32` ) ).
  ENDMETHOD.

  METHOD valid_all_countries.
    cl_abap_unit_assert=>assert_equals( exp = {{p}}if_iban_check=>c_reason-ok
                                        act = mo_cut->check( `NL91 ABNA 0417 1643 00` ) msg = `NL` ).
    cl_abap_unit_assert=>assert_equals( exp = {{p}}if_iban_check=>c_reason-ok
                                        act = mo_cut->check( `FR14 2004 1010 0505 0001 3M02 606` ) msg = `FR` ).
    cl_abap_unit_assert=>assert_equals( exp = {{p}}if_iban_check=>c_reason-ok
                                        act = mo_cut->check( `TR33 0006 1005 1978 6457 8413 26` ) msg = `TR` ).
    cl_abap_unit_assert=>assert_equals( exp = {{p}}if_iban_check=>c_reason-ok
                                        act = mo_cut->check( `CH93 0076 2011 6238 5295 7` ) msg = `CH` ).
    cl_abap_unit_assert=>assert_equals( exp = {{p}}if_iban_check=>c_reason-ok
                                        act = mo_cut->check( `AT61 1904 3002 3457 3201` ) msg = `AT` ).
  ENDMETHOD.

  METHOD lower_case_ok.
    cl_abap_unit_assert=>assert_equals( exp = {{p}}if_iban_check=>c_reason-ok
                                        act = mo_cut->check( `de89370400440532013000` ) ).
  ENDMETHOD.

  METHOD empty.
    cl_abap_unit_assert=>assert_equals( exp = {{p}}if_iban_check=>c_reason-empty
                                        act = mo_cut->check( `` ) ).
  ENDMETHOD.

  METHOD only_spaces.
    cl_abap_unit_assert=>assert_equals( exp = {{p}}if_iban_check=>c_reason-empty
                                        act = mo_cut->check( `    ` ) ).
  ENDMETHOD.

  METHOD bad_chars.
    cl_abap_unit_assert=>assert_equals( exp = {{p}}if_iban_check=>c_reason-chars
                                        act = mo_cut->check( `DE89-3704-0044-0532-0130-00` ) ).
  ENDMETHOD.

  METHOD digit_in_country.
    cl_abap_unit_assert=>assert_equals( exp = {{p}}if_iban_check=>c_reason-chars
                                        act = mo_cut->check( `1E89370400440532013000` ) ).
  ENDMETHOD.

  METHOD unknown_country.
    cl_abap_unit_assert=>assert_equals( exp = {{p}}if_iban_check=>c_reason-country
                                        act = mo_cut->check( `XX89370400440532013000` ) ).
  ENDMETHOD.

  METHOD wrong_length.
    cl_abap_unit_assert=>assert_equals( exp = {{p}}if_iban_check=>c_reason-length
                                        act = mo_cut->check( `DE8937040044053201300` ) ).
  ENDMETHOD.

  METHOD wrong_checksum.
    cl_abap_unit_assert=>assert_equals( exp = {{p}}if_iban_check=>c_reason-checksum
                                        act = mo_cut->check( `DE89 3704 0044 0532 0130 01` ) ).
  ENDMETHOD.

  METHOD order_chars_before_country.
    cl_abap_unit_assert=>assert_equals( exp = {{p}}if_iban_check=>c_reason-chars
                                        act = mo_cut->check( `XX!!` ) ).
  ENDMETHOD.
ENDCLASS.