CLASS ltc_cinema_pricer DEFINITION FINAL FOR TESTING
  DURATION SHORT RISK LEVEL HARMLESS.
  PRIVATE SECTION.
    DATA mo_cut TYPE REF TO {{p}}if_cinema_price.

    METHODS setup.
    METHODS standard_adult FOR TESTING.
    METHODS child_ticket FOR TESTING.
    METHODS late_show FOR TESTING.
    METHODS group_and_loyalty FOR TESTING.
    METHODS invalid_screen FOR TESTING.
    METHODS invalid_quantity 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 ltc_cinema_pricer IMPLEMENTATION.
  METHOD setup.
    mo_cut = NEW {{p}}cinema_pricer( ).
  ENDMETHOD.

  METHOD standard_adult.
    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 ).
    cl_abap_unit_assert=>assert_equals( exp = {{p}}if_cinema_price=>c_reason-ok
                                        act = ls_result-reason ).
  ENDMETHOD.

  METHOD child_ticket.
    DATA(ls_result) = result_of( iv_screen = 'T' iv_visitor = 'C'
                                 iv_quantity = 1 iv_hour = 18
                                 iv_loyalty = abap_false ).
    cl_abap_unit_assert=>assert_equals( exp = amount( '8.40' )
                                        act = ls_result-price ).
  ENDMETHOD.

  METHOD late_show.
    DATA(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 ).
  ENDMETHOD.

  METHOD group_and_loyalty.
    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 ).
  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_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 ).
  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.