99 lines
3.4 KiB
ABAP
99 lines
3.4 KiB
ABAP
CLASS ltc_credit_checker DEFINITION FINAL FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
|
|
PRIVATE SECTION.
|
|
DATA mo_cut TYPE REF TO {{p}}if_credit_check.
|
|
METHODS setup.
|
|
METHODS too_young FOR TESTING.
|
|
METHODS zero_income FOR TESTING.
|
|
METHODS two_open_plans FOR TESTING.
|
|
METHODS order_above_limit FOR TESTING.
|
|
METHODS order_at_limit FOR TESTING.
|
|
METHODS young_limit_halved FOR TESTING.
|
|
METHODS young_limit_is_floor FOR TESTING.
|
|
METHODS valid_adult FOR TESTING.
|
|
ENDCLASS.
|
|
|
|
|
|
CLASS ltc_credit_checker IMPLEMENTATION.
|
|
METHOD setup.
|
|
mo_cut = NEW {{p}}credit_checker( ).
|
|
ENDMETHOD.
|
|
|
|
METHOD too_young.
|
|
cl_abap_unit_assert=>assert_equals(
|
|
exp = {{p}}if_credit_check=>c_reason-age
|
|
act = mo_cut->check( iv_age = 17
|
|
iv_income = '3000.00'
|
|
iv_open_plans = 0
|
|
iv_order_amount = '100.00' ) ).
|
|
ENDMETHOD.
|
|
|
|
METHOD zero_income.
|
|
cl_abap_unit_assert=>assert_equals(
|
|
exp = {{p}}if_credit_check=>c_reason-income
|
|
act = mo_cut->check( iv_age = 30
|
|
iv_income = '0.00'
|
|
iv_open_plans = 0
|
|
iv_order_amount = '100.00' ) ).
|
|
ENDMETHOD.
|
|
|
|
METHOD two_open_plans.
|
|
cl_abap_unit_assert=>assert_equals(
|
|
exp = {{p}}if_credit_check=>c_reason-open_plan
|
|
act = mo_cut->check( iv_age = 30
|
|
iv_income = '3000.00'
|
|
iv_open_plans = 2
|
|
iv_order_amount = '100.00' ) ).
|
|
ENDMETHOD.
|
|
|
|
METHOD order_above_limit.
|
|
cl_abap_unit_assert=>assert_equals(
|
|
exp = {{p}}if_credit_check=>c_reason-limit
|
|
act = mo_cut->check( iv_age = 30
|
|
iv_income = '1000.00'
|
|
iv_open_plans = 0
|
|
iv_order_amount = '3000.01' ) ).
|
|
ENDMETHOD.
|
|
|
|
METHOD order_at_limit.
|
|
cl_abap_unit_assert=>assert_equals(
|
|
exp = {{p}}if_credit_check=>c_reason-ok
|
|
act = mo_cut->check( iv_age = 30
|
|
iv_income = '1000.00'
|
|
iv_open_plans = 0
|
|
iv_order_amount = '3000.00' ) ).
|
|
ENDMETHOD.
|
|
|
|
METHOD young_limit_halved.
|
|
cl_abap_unit_assert=>assert_equals(
|
|
exp = {{p}}if_credit_check=>c_reason-limit
|
|
act = mo_cut->check( iv_age = 20
|
|
iv_income = '1000.00'
|
|
iv_open_plans = 0
|
|
iv_order_amount = '1500.01' ) ).
|
|
ENDMETHOD.
|
|
|
|
METHOD young_limit_is_floor.
|
|
cl_abap_unit_assert=>assert_equals(
|
|
exp = {{p}}if_credit_check=>c_reason-limit
|
|
act = mo_cut->check( iv_age = 20
|
|
iv_income = '2500.50'
|
|
iv_open_plans = 0
|
|
iv_order_amount = '3750.50' ) ).
|
|
cl_abap_unit_assert=>assert_equals(
|
|
exp = {{p}}if_credit_check=>c_reason-ok
|
|
act = mo_cut->check( iv_age = 20
|
|
iv_income = '2500.50'
|
|
iv_open_plans = 0
|
|
iv_order_amount = '3750.00' ) ).
|
|
ENDMETHOD.
|
|
|
|
METHOD valid_adult.
|
|
cl_abap_unit_assert=>assert_equals(
|
|
exp = {{p}}if_credit_check=>c_reason-ok
|
|
act = mo_cut->check( iv_age = 35
|
|
iv_income = '2000.00'
|
|
iv_open_plans = 1
|
|
iv_order_amount = '5500.00' ) ).
|
|
ENDMETHOD.
|
|
ENDCLASS.
|