CLASS {{p}}zoo_hidden DEFINITION PUBLIC FINAL CREATE PUBLIC
  FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
  PRIVATE SECTION.
    METHODS all_enclosures FOR TESTING.
    METHODS sort_by_cost FOR TESTING.
    METHODS tie_break FOR TESTING.
    METHODS weight_filter FOR TESTING.
    METHODS weight_boundary FOR TESTING.
    METHODS enclosure_filter FOR TESTING.
ENDCLASS.

CLASS lcl_zoo_helper DEFINITION FINAL.
  PUBLIC SECTION.
    TYPES tt_enclosure TYPE RANGE OF {{p}}animal-enclosure.
    CLASS-METHODS run
      IMPORTING iv_minwg     TYPE {{p}}animal-weight_kg
                it_enclosure TYPE tt_enclosure OPTIONAL
      RETURNING VALUE(rr_data) TYPE REF TO data.
    CLASS-METHODS lines_of
      IMPORTING ir_data TYPE REF TO data
      RETURNING VALUE(rv_lines) TYPE i.
    CLASS-METHODS value_of
      IMPORTING ir_data TYPE REF TO data
                iv_row  TYPE i
                iv_col  TYPE string
      RETURNING VALUE(rv_value) TYPE string.
ENDCLASS.

CLASS lcl_zoo_helper IMPLEMENTATION.
  METHOD run.
    cl_salv_bs_runtime_info=>set( display = abap_false metadata = abap_false data = abap_true ).
    SUBMIT {{p}}zoo_feed
      WITH p_minwg = iv_minwg
      WITH s_encl IN it_enclosure
      AND RETURN.
    TRY.
        cl_salv_bs_runtime_info=>get_data_ref( IMPORTING r_data = rr_data ).
      CATCH cx_salv_bs_sc_runtime_info.
    ENDTRY.
    cl_salv_bs_runtime_info=>clear_all( ).
  ENDMETHOD.

  METHOD lines_of.
    FIELD-SYMBOLS <lt_data> TYPE STANDARD TABLE.
    IF ir_data IS BOUND.
      ASSIGN ir_data->* TO <lt_data>.
      rv_lines = lines( <lt_data> ).
    ENDIF.
  ENDMETHOD.

  METHOD value_of.
    FIELD-SYMBOLS <lt_data> TYPE STANDARD TABLE.
    ASSIGN ir_data->* TO <lt_data>.
    ASSIGN <lt_data>[ iv_row ] TO FIELD-SYMBOL(<ls_line>).
    ASSIGN COMPONENT iv_col OF STRUCTURE <ls_line> TO FIELD-SYMBOL(<lv_value>).
    cl_abap_unit_assert=>assert_subrc( exp = 0 msg = |Column { iv_col } missing| ).
    rv_value = condense( CONV string( <lv_value> ) ).
  ENDMETHOD.
ENDCLASS.

CLASS {{p}}zoo_hidden IMPLEMENTATION.
  METHOD all_enclosures.
    cl_abap_unit_assert=>assert_equals(
      exp = 3
      act = lcl_zoo_helper=>lines_of( lcl_zoo_helper=>run( iv_minwg = '0.0' ) ) ).
  ENDMETHOD.

  METHOD sort_by_cost.
    DATA(lr_data) = lcl_zoo_helper=>run( iv_minwg = '0.0' ).
    cl_abap_unit_assert=>assert_equals(
      exp = `JUNGLE`
      act = lcl_zoo_helper=>value_of( ir_data = lr_data iv_row = 1 iv_col = `ENCLOSURE` ) ).
    cl_abap_unit_assert=>assert_equals(
      exp = `34.00`
      act = lcl_zoo_helper=>value_of( ir_data = lr_data iv_row = 1 iv_col = `COST` ) ).
  ENDMETHOD.

  METHOD tie_break.
    DATA(lr_data) = lcl_zoo_helper=>run( iv_minwg = '0.0' ).
    cl_abap_unit_assert=>assert_equals(
      exp = `AQUA`
      act = lcl_zoo_helper=>value_of( ir_data = lr_data iv_row = 2 iv_col = `ENCLOSURE` ) ).
    cl_abap_unit_assert=>assert_equals(
      exp = `SAVANNA`
      act = lcl_zoo_helper=>value_of( ir_data = lr_data iv_row = 3 iv_col = `ENCLOSURE` ) ).
  ENDMETHOD.

  METHOD weight_filter.
    DATA(lr_data) = lcl_zoo_helper=>run( iv_minwg = '10.0' ).
    cl_abap_unit_assert=>assert_equals( exp = 3 act = lcl_zoo_helper=>lines_of( lr_data ) ).
    cl_abap_unit_assert=>assert_equals(
      exp = `AQUA`
      act = lcl_zoo_helper=>value_of( ir_data = lr_data iv_row = 3 iv_col = `ENCLOSURE` ) ).
    cl_abap_unit_assert=>assert_equals(
      exp = `1`
      act = lcl_zoo_helper=>value_of( ir_data = lr_data iv_row = 3 iv_col = `ANIMALS` ) ).
    cl_abap_unit_assert=>assert_equals(
      exp = `15.00`
      act = lcl_zoo_helper=>value_of( ir_data = lr_data iv_row = 3 iv_col = `COST` ) ).
  ENDMETHOD.

  METHOD weight_boundary.
    DATA(lr_low) = lcl_zoo_helper=>run( iv_minwg = '8.0' ).
    cl_abap_unit_assert=>assert_equals(
      exp = `3`
      act = lcl_zoo_helper=>value_of( ir_data = lr_low iv_row = 1 iv_col = `ANIMALS` ) ).
    DATA(lr_high) = lcl_zoo_helper=>run( iv_minwg = '9.0' ).
    cl_abap_unit_assert=>assert_equals(
      exp = `2`
      act = lcl_zoo_helper=>value_of( ir_data = lr_high iv_row = 1 iv_col = `ANIMALS` ) ).
  ENDMETHOD.

  METHOD enclosure_filter.
    DATA(lr_data) = lcl_zoo_helper=>run(
      iv_minwg     = '0.0'
      it_enclosure = VALUE #( ( sign = 'I' option = 'EQ' low = 'AQUA' ) ) ).
    cl_abap_unit_assert=>assert_equals( exp = 1 act = lcl_zoo_helper=>lines_of( lr_data ) ).
    cl_abap_unit_assert=>assert_equals(
      exp = `20.00`
      act = lcl_zoo_helper=>value_of( ir_data = lr_data iv_row = 1 iv_col = `COST` ) ).
    cl_abap_unit_assert=>assert_equals(
      exp = `2`
      act = lcl_zoo_helper=>value_of( ir_data = lr_data iv_row = 1 iv_col = `ANIMALS` ) ).
  ENDMETHOD.
ENDCLASS.