-
Notifications
You must be signed in to change notification settings - Fork 4
/
Copy pathYY_PAO_MONEY_CHAPTER02.abap
63 lines (48 loc) · 1.41 KB
/
YY_PAO_MONEY_CHAPTER02.abap
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
*&---------------------------------------------------------------------*
*& The Money Example for Test-Driven Development in ABAP
*& based on TDD by Example: Part 1; Chapter 2
*&---------------------------------------------------------------------*
PROGRAM yy_pao_money_chapter02.
"" $5 + 10 CHF = $10 if rate is 2:1
"" Make "amount" private
** Dollar side-effects?
"" Money rounding?
*& Production Code
CLASS lcl_dollar DEFINITION.
PUBLIC SECTION.
METHODS:
constructor
IMPORTING iv_amount TYPE i,
times
IMPORTING iv_multiple TYPE i
RETURNING VALUE(ro_product) TYPE REF TO lcl_dollar.
DATA:
mv_amount TYPE i.
ENDCLASS.
CLASS lcl_dollar IMPLEMENTATION.
METHOD constructor.
mv_amount = iv_amount.
ENDMETHOD.
METHOD times.
ro_product = NEW lcl_dollar( mv_amount * iv_multiple ).
ENDMETHOD.
ENDCLASS.
*& Test Code
CLASS ltc_example DEFINITION
INHERITING FROM cl_aunit_assert
FOR TESTING RISK LEVEL HARMLESS.
PRIVATE SECTION.
METHODS:
multiplication FOR TESTING.
ENDCLASS.
CLASS ltc_example IMPLEMENTATION.
METHOD multiplication.
DATA(lo_five) = NEW lcl_dollar( 5 ).
DATA(lo_product) = lo_five->times( 2 ).
assert_equals( exp = 10
act = lo_product->mv_amount ).
lo_product = lo_five->times( 3 ).
assert_equals( exp = 15
act = lo_product->mv_amount ).
ENDMETHOD.
ENDCLASS.