218 lines
10 KiB
ABAP
218 lines
10 KiB
ABAP
CLASS {{p}}t21_hidden DEFINITION PUBLIC FINAL CREATE PUBLIC
|
|
FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
|
|
PRIVATE SECTION.
|
|
DATA mo_cut TYPE REF TO {{p}}if_cinema_price.
|
|
|
|
METHODS setup.
|
|
METHODS screen_prices FOR TESTING.
|
|
METHODS visitor_discounts FOR TESTING.
|
|
METHODS late_show_surcharge FOR TESTING.
|
|
METHODS group_discount FOR TESTING.
|
|
METHODS loyalty_discount FOR TESTING.
|
|
METHODS rounds_to_cents FOR TESTING.
|
|
METHODS invalid_screen FOR TESTING.
|
|
METHODS invalid_visitor FOR TESTING.
|
|
METHODS invalid_quantity FOR TESTING.
|
|
METHODS invalid_hour FOR TESTING.
|
|
METHODS reason_order FOR TESTING.
|
|
|
|
METHODS result_of
|
|
IMPORTING iv_screen TYPE {{p}}if_cinema_price=>ty_screen
|
|
iv_visitor TYPE {{p}}if_cinema_price=>ty_visitor
|
|
iv_quantity TYPE i
|
|
iv_hour TYPE i
|
|
iv_loyalty TYPE abap_bool
|
|
RETURNING VALUE(rs_result) TYPE {{p}}if_cinema_price=>ty_result.
|
|
METHODS amount
|
|
IMPORTING iv_text TYPE string
|
|
RETURNING VALUE(rv_amount) TYPE {{p}}if_cinema_price=>ty_amount.
|
|
ENDCLASS.
|
|
|
|
|
|
CLASS {{p}}t21_hidden IMPLEMENTATION.
|
|
METHOD setup.
|
|
mo_cut = NEW {{p}}cinema_pricer( ).
|
|
ENDMETHOD.
|
|
|
|
METHOD screen_prices.
|
|
DATA(ls_result) = result_of( iv_screen = 'S' iv_visitor = 'A'
|
|
iv_quantity = 1 iv_hour = 18
|
|
iv_loyalty = abap_false ).
|
|
cl_abap_unit_assert=>assert_equals( exp = amount( '9.50' )
|
|
act = ls_result-price
|
|
msg = 'standard' ).
|
|
ls_result = result_of( iv_screen = 'T' iv_visitor = 'A'
|
|
iv_quantity = 1 iv_hour = 18
|
|
iv_loyalty = abap_false ).
|
|
cl_abap_unit_assert=>assert_equals( exp = amount( '12.00' )
|
|
act = ls_result-price
|
|
msg = 'three-d' ).
|
|
ls_result = result_of( iv_screen = 'L' iv_visitor = 'A'
|
|
iv_quantity = 1 iv_hour = 18
|
|
iv_loyalty = abap_false ).
|
|
cl_abap_unit_assert=>assert_equals( exp = amount( '15.00' )
|
|
act = ls_result-price
|
|
msg = 'large' ).
|
|
ENDMETHOD.
|
|
|
|
METHOD visitor_discounts.
|
|
DATA(ls_result) = result_of( iv_screen = 'S' iv_visitor = 'C'
|
|
iv_quantity = 1 iv_hour = 18
|
|
iv_loyalty = abap_false ).
|
|
cl_abap_unit_assert=>assert_equals( exp = amount( '6.65' )
|
|
act = ls_result-price
|
|
msg = 'child' ).
|
|
ls_result = result_of( iv_screen = 'S' iv_visitor = 'S'
|
|
iv_quantity = 1 iv_hour = 18
|
|
iv_loyalty = abap_false ).
|
|
cl_abap_unit_assert=>assert_equals( exp = amount( '5.70' )
|
|
act = ls_result-price
|
|
msg = 'senior' ).
|
|
ENDMETHOD.
|
|
|
|
METHOD late_show_surcharge.
|
|
DATA(ls_result) = result_of( iv_screen = 'S' iv_visitor = 'A'
|
|
iv_quantity = 1 iv_hour = 19
|
|
iv_loyalty = abap_false ).
|
|
cl_abap_unit_assert=>assert_equals( exp = amount( '9.50' )
|
|
act = ls_result-price
|
|
msg = 'before 20' ).
|
|
ls_result = result_of( iv_screen = 'S' iv_visitor = 'A'
|
|
iv_quantity = 1 iv_hour = 20
|
|
iv_loyalty = abap_false ).
|
|
cl_abap_unit_assert=>assert_equals( exp = amount( '11.00' )
|
|
act = ls_result-price
|
|
msg = 'from 20' ).
|
|
ls_result = result_of( iv_screen = 'S' iv_visitor = 'A'
|
|
iv_quantity = 1 iv_hour = 23
|
|
iv_loyalty = abap_false ).
|
|
cl_abap_unit_assert=>assert_equals( exp = amount( '11.00' )
|
|
act = ls_result-price
|
|
msg = 'late' ).
|
|
ENDMETHOD.
|
|
|
|
METHOD group_discount.
|
|
DATA(ls_result) = result_of( iv_screen = 'S' iv_visitor = 'A'
|
|
iv_quantity = 5 iv_hour = 18
|
|
iv_loyalty = abap_false ).
|
|
cl_abap_unit_assert=>assert_equals( exp = amount( '47.50' )
|
|
act = ls_result-price
|
|
msg = 'below limit' ).
|
|
ls_result = result_of( iv_screen = 'S' iv_visitor = 'A'
|
|
iv_quantity = 6 iv_hour = 18
|
|
iv_loyalty = abap_false ).
|
|
cl_abap_unit_assert=>assert_equals( exp = amount( '51.30' )
|
|
act = ls_result-price
|
|
msg = 'from 6' ).
|
|
ENDMETHOD.
|
|
|
|
METHOD loyalty_discount.
|
|
DATA(ls_result) = result_of( iv_screen = 'S' iv_visitor = 'A'
|
|
iv_quantity = 2 iv_hour = 18
|
|
iv_loyalty = abap_true ).
|
|
cl_abap_unit_assert=>assert_equals( exp = amount( '18.05' )
|
|
act = ls_result-price
|
|
msg = 'loyalty' ).
|
|
ENDMETHOD.
|
|
|
|
METHOD rounds_to_cents.
|
|
DATA(ls_result) = result_of( iv_screen = 'T' iv_visitor = 'C'
|
|
iv_quantity = 6 iv_hour = 21
|
|
iv_loyalty = abap_true ).
|
|
cl_abap_unit_assert=>assert_equals( exp = amount( '50.79' )
|
|
act = ls_result-price
|
|
msg = 'rounded' ).
|
|
cl_abap_unit_assert=>assert_equals( exp = {{p}}if_cinema_price=>c_reason-ok
|
|
act = ls_result-reason ).
|
|
ENDMETHOD.
|
|
|
|
METHOD invalid_screen.
|
|
DATA(ls_result) = result_of( iv_screen = 'X' iv_visitor = 'A'
|
|
iv_quantity = 1 iv_hour = 18
|
|
iv_loyalty = abap_false ).
|
|
cl_abap_unit_assert=>assert_equals( exp = {{p}}if_cinema_price=>c_reason-screen
|
|
act = ls_result-reason ).
|
|
cl_abap_unit_assert=>assert_equals( exp = amount( '0.00' )
|
|
act = ls_result-price ).
|
|
ENDMETHOD.
|
|
|
|
METHOD invalid_visitor.
|
|
DATA(ls_result) = result_of( iv_screen = 'S' iv_visitor = 'X'
|
|
iv_quantity = 1 iv_hour = 18
|
|
iv_loyalty = abap_false ).
|
|
cl_abap_unit_assert=>assert_equals( exp = {{p}}if_cinema_price=>c_reason-visitor
|
|
act = ls_result-reason ).
|
|
cl_abap_unit_assert=>assert_equals( exp = amount( '0.00' )
|
|
act = ls_result-price ).
|
|
ENDMETHOD.
|
|
|
|
METHOD invalid_quantity.
|
|
DATA(ls_result) = result_of( iv_screen = 'S' iv_visitor = 'A'
|
|
iv_quantity = 0 iv_hour = 18
|
|
iv_loyalty = abap_false ).
|
|
cl_abap_unit_assert=>assert_equals( exp = {{p}}if_cinema_price=>c_reason-quantity
|
|
act = ls_result-reason
|
|
msg = 'zero' ).
|
|
ls_result = result_of( iv_screen = 'S' iv_visitor = 'A'
|
|
iv_quantity = 21 iv_hour = 18
|
|
iv_loyalty = abap_false ).
|
|
cl_abap_unit_assert=>assert_equals( exp = {{p}}if_cinema_price=>c_reason-quantity
|
|
act = ls_result-reason
|
|
msg = 'too many' ).
|
|
ENDMETHOD.
|
|
|
|
METHOD invalid_hour.
|
|
DATA(ls_result) = result_of( iv_screen = 'S' iv_visitor = 'A'
|
|
iv_quantity = 1 iv_hour = 24
|
|
iv_loyalty = abap_false ).
|
|
cl_abap_unit_assert=>assert_equals( exp = {{p}}if_cinema_price=>c_reason-hour
|
|
act = ls_result-reason
|
|
msg = '24' ).
|
|
ls_result = result_of( iv_screen = 'S' iv_visitor = 'A'
|
|
iv_quantity = 1 iv_hour = -1
|
|
iv_loyalty = abap_false ).
|
|
cl_abap_unit_assert=>assert_equals( exp = {{p}}if_cinema_price=>c_reason-hour
|
|
act = ls_result-reason
|
|
msg = 'negative' ).
|
|
ENDMETHOD.
|
|
|
|
METHOD reason_order.
|
|
DATA(ls_result) = result_of( iv_screen = 'X' iv_visitor = 'X'
|
|
iv_quantity = 0 iv_hour = 99
|
|
iv_loyalty = abap_false ).
|
|
cl_abap_unit_assert=>assert_equals( exp = {{p}}if_cinema_price=>c_reason-screen
|
|
act = ls_result-reason
|
|
msg = 'screen first' ).
|
|
ls_result = result_of( iv_screen = 'S' iv_visitor = 'X'
|
|
iv_quantity = 0 iv_hour = 99
|
|
iv_loyalty = abap_false ).
|
|
cl_abap_unit_assert=>assert_equals( exp = {{p}}if_cinema_price=>c_reason-visitor
|
|
act = ls_result-reason
|
|
msg = 'visitor second' ).
|
|
ls_result = result_of( iv_screen = 'S' iv_visitor = 'A'
|
|
iv_quantity = 0 iv_hour = 99
|
|
iv_loyalty = abap_false ).
|
|
cl_abap_unit_assert=>assert_equals( exp = {{p}}if_cinema_price=>c_reason-quantity
|
|
act = ls_result-reason
|
|
msg = 'quantity third' ).
|
|
ls_result = result_of( iv_screen = 'S' iv_visitor = 'A'
|
|
iv_quantity = 1 iv_hour = 99
|
|
iv_loyalty = abap_false ).
|
|
cl_abap_unit_assert=>assert_equals( exp = {{p}}if_cinema_price=>c_reason-hour
|
|
act = ls_result-reason
|
|
msg = 'hour fourth' ).
|
|
ENDMETHOD.
|
|
|
|
METHOD result_of.
|
|
rs_result = mo_cut->price( iv_screen = iv_screen
|
|
iv_visitor = iv_visitor
|
|
iv_quantity = iv_quantity
|
|
iv_show_hour = iv_hour
|
|
iv_loyalty = iv_loyalty ).
|
|
ENDMETHOD.
|
|
|
|
METHOD amount.
|
|
rv_amount = iv_text.
|
|
ENDMETHOD.
|
|
ENDCLASS.
|