152 lines
6.3 KiB
ABAP
152 lines
6.3 KiB
ABAP
CLASS {{p}}t31_hidden DEFINITION
|
|
PUBLIC
|
|
FINAL
|
|
FOR TESTING
|
|
RISK LEVEL HARMLESS
|
|
DURATION SHORT
|
|
CREATE PUBLIC.
|
|
PRIVATE SECTION.
|
|
CONSTANTS:
|
|
c_fee_000 TYPE p LENGTH 8 DECIMALS 2 VALUE '0.00',
|
|
c_fee_200 TYPE p LENGTH 8 DECIMALS 2 VALUE '2.00',
|
|
c_fee_350 TYPE p LENGTH 8 DECIMALS 2 VALUE '3.50',
|
|
c_fee_400 TYPE p LENGTH 8 DECIMALS 2 VALUE '4.00',
|
|
c_fee_500 TYPE p LENGTH 8 DECIMALS 2 VALUE '5.00',
|
|
c_fee_1000 TYPE p LENGTH 8 DECIMALS 2 VALUE '10.00',
|
|
c_fee_1250 TYPE p LENGTH 8 DECIMALS 2 VALUE '12.50',
|
|
c_fee_2000 TYPE p LENGTH 8 DECIMALS 2 VALUE '20.00'.
|
|
|
|
DATA mo_cut TYPE REF TO {{p}}if_park_eval.
|
|
|
|
METHODS setup.
|
|
"! @testing {{p}}parking_eval
|
|
METHODS empty_input FOR TESTING.
|
|
"! @testing {{p}}parking_eval
|
|
METHODS free_minutes FOR TESTING.
|
|
"! @testing {{p}}parking_eval
|
|
METHODS one_started_hour FOR TESTING.
|
|
"! @testing {{p}}parking_eval
|
|
METHODS two_started_hours FOR TESTING.
|
|
"! @testing {{p}}parking_eval
|
|
METHODS rates_per_tariff FOR TESTING.
|
|
"! @testing {{p}}parking_eval
|
|
METHODS fee_is_capped FOR TESTING.
|
|
"! @testing {{p}}parking_eval
|
|
METHODS invalid_tariff_ignored FOR TESTING.
|
|
"! @testing {{p}}parking_eval
|
|
METHODS zero_duration_ignored FOR TESTING.
|
|
"! @testing {{p}}parking_eval
|
|
METHODS groups_and_sorts_parks FOR TESTING.
|
|
"! @testing {{p}}parking_eval
|
|
METHODS sums_sessions_of_park FOR TESTING.
|
|
ENDCLASS.
|
|
|
|
|
|
CLASS {{p}}t31_hidden IMPLEMENTATION.
|
|
METHOD setup.
|
|
mo_cut = NEW {{p}}parking_eval( ).
|
|
ENDMETHOD.
|
|
|
|
METHOD empty_input.
|
|
DATA(lt_result) = mo_cut->summarize( VALUE {{p}}if_park_eval=>tt_session( ) ).
|
|
|
|
cl_abap_unit_assert=>assert_equals( exp = 0 act = lines( lt_result ) ).
|
|
ENDMETHOD.
|
|
|
|
METHOD free_minutes.
|
|
DATA(lt_result) = mo_cut->summarize( VALUE {{p}}if_park_eval=>tt_session(
|
|
( park_id = 'P001' tariff = 'A' duration_min = 20 )
|
|
( park_id = 'P001' tariff = 'A' duration_min = 30 ) ) ).
|
|
|
|
cl_abap_unit_assert=>assert_equals( exp = 1 act = lines( lt_result ) ).
|
|
DATA(ls_row) = lt_result[ 1 ].
|
|
cl_abap_unit_assert=>assert_equals( exp = 2 act = ls_row-session_cnt ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 50 act = ls_row-total_min ).
|
|
cl_abap_unit_assert=>assert_equals( exp = c_fee_000 act = ls_row-total_fee ).
|
|
ENDMETHOD.
|
|
|
|
METHOD one_started_hour.
|
|
DATA(lt_result) = mo_cut->summarize( VALUE {{p}}if_park_eval=>tt_session(
|
|
( park_id = 'P001' tariff = 'A' duration_min = 31 ) ) ).
|
|
|
|
cl_abap_unit_assert=>assert_equals( exp = c_fee_200 act = lt_result[ 1 ]-total_fee ).
|
|
ENDMETHOD.
|
|
|
|
METHOD two_started_hours.
|
|
DATA(lt_result) = mo_cut->summarize( VALUE {{p}}if_park_eval=>tt_session(
|
|
( park_id = 'P001' tariff = 'A' duration_min = 91 )
|
|
( park_id = 'P002' tariff = 'A' duration_min = 150 ) ) ).
|
|
|
|
cl_abap_unit_assert=>assert_equals( exp = 2 act = lines( lt_result ) ).
|
|
cl_abap_unit_assert=>assert_equals( exp = c_fee_400 act = lt_result[ 1 ]-total_fee ).
|
|
cl_abap_unit_assert=>assert_equals( exp = c_fee_400 act = lt_result[ 2 ]-total_fee ).
|
|
ENDMETHOD.
|
|
|
|
METHOD rates_per_tariff.
|
|
DATA(lt_result) = mo_cut->summarize( VALUE {{p}}if_park_eval=>tt_session(
|
|
( park_id = 'P001' tariff = 'A' duration_min = 90 )
|
|
( park_id = 'P002' tariff = 'B' duration_min = 90 )
|
|
( park_id = 'P003' tariff = 'C' duration_min = 90 ) ) ).
|
|
|
|
cl_abap_unit_assert=>assert_equals( exp = 3 act = lines( lt_result ) ).
|
|
cl_abap_unit_assert=>assert_equals( exp = c_fee_200 act = lt_result[ 1 ]-total_fee ).
|
|
cl_abap_unit_assert=>assert_equals( exp = c_fee_350 act = lt_result[ 2 ]-total_fee ).
|
|
cl_abap_unit_assert=>assert_equals( exp = c_fee_500 act = lt_result[ 3 ]-total_fee ).
|
|
ENDMETHOD.
|
|
|
|
METHOD fee_is_capped.
|
|
DATA(lt_result) = mo_cut->summarize( VALUE {{p}}if_park_eval=>tt_session(
|
|
( park_id = 'P001' tariff = 'C' duration_min = 400 )
|
|
( park_id = 'P002' tariff = 'C' duration_min = 150 ) ) ).
|
|
|
|
cl_abap_unit_assert=>assert_equals( exp = 2 act = lines( lt_result ) ).
|
|
cl_abap_unit_assert=>assert_equals( exp = c_fee_2000 act = lt_result[ 1 ]-total_fee ).
|
|
cl_abap_unit_assert=>assert_equals( exp = c_fee_1000 act = lt_result[ 2 ]-total_fee ).
|
|
ENDMETHOD.
|
|
|
|
METHOD invalid_tariff_ignored.
|
|
DATA(lt_result) = mo_cut->summarize( VALUE {{p}}if_park_eval=>tt_session(
|
|
( park_id = 'P001' tariff = 'X' duration_min = 120 )
|
|
( park_id = 'P002' tariff = 'A' duration_min = 90 )
|
|
( park_id = 'P002' tariff = 'X' duration_min = 200 ) ) ).
|
|
|
|
cl_abap_unit_assert=>assert_equals( exp = 1 act = lines( lt_result ) ).
|
|
DATA(ls_row) = lt_result[ 1 ].
|
|
cl_abap_unit_assert=>assert_equals( exp = 'P002' act = ls_row-park_id ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 1 act = ls_row-session_cnt ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 90 act = ls_row-total_min ).
|
|
cl_abap_unit_assert=>assert_equals( exp = c_fee_200 act = ls_row-total_fee ).
|
|
ENDMETHOD.
|
|
|
|
METHOD zero_duration_ignored.
|
|
DATA(lt_result) = mo_cut->summarize( VALUE {{p}}if_park_eval=>tt_session(
|
|
( park_id = 'P001' tariff = 'A' duration_min = 0 )
|
|
( park_id = 'P001' tariff = 'B' duration_min = -5 ) ) ).
|
|
|
|
cl_abap_unit_assert=>assert_equals( exp = 0 act = lines( lt_result ) ).
|
|
ENDMETHOD.
|
|
|
|
METHOD groups_and_sorts_parks.
|
|
DATA(lt_result) = mo_cut->summarize( VALUE {{p}}if_park_eval=>tt_session(
|
|
( park_id = 'P003' tariff = 'A' duration_min = 60 )
|
|
( park_id = 'P001' tariff = 'B' duration_min = 60 ) ) ).
|
|
|
|
cl_abap_unit_assert=>assert_equals( exp = 2 act = lines( lt_result ) ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 'P001' act = lt_result[ 1 ]-park_id ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 'P003' act = lt_result[ 2 ]-park_id ).
|
|
ENDMETHOD.
|
|
|
|
METHOD sums_sessions_of_park.
|
|
DATA(lt_result) = mo_cut->summarize( VALUE {{p}}if_park_eval=>tt_session(
|
|
( park_id = 'P001' tariff = 'A' duration_min = 45 )
|
|
( park_id = 'P001' tariff = 'B' duration_min = 200 )
|
|
( park_id = 'P001' tariff = 'A' duration_min = 30 ) ) ).
|
|
|
|
cl_abap_unit_assert=>assert_equals( exp = 1 act = lines( lt_result ) ).
|
|
DATA(ls_row) = lt_result[ 1 ].
|
|
cl_abap_unit_assert=>assert_equals( exp = 3 act = ls_row-session_cnt ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 275 act = ls_row-total_min ).
|
|
cl_abap_unit_assert=>assert_equals( exp = c_fee_1250 act = ls_row-total_fee ).
|
|
ENDMETHOD.
|
|
ENDCLASS.
|