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.