|
1 | 1 | -module(binary_search_tree_tests).
|
2 | 2 |
|
3 | 3 | -include_lib("erl_exercism/include/exercism.hrl").
|
4 |
| - |
5 | 4 | -include_lib("eunit/include/eunit.hrl").
|
6 | 5 |
|
7 | 6 | '1_data_is_retained_test'() ->
|
8 |
| - T = |
9 |
| - binary_search_tree:insert(binary_search_tree:empty(), |
10 |
| - 4), |
11 |
| - ?assertMatch(4, (binary_search_tree:value(T))). |
| 7 | + T = binary_search_tree:insert(binary_search_tree:empty(), 4), |
| 8 | + ?assertMatch(4, binary_search_tree:value(T)). |
12 | 9 |
|
13 | 10 | '2_smaller_number_at_left_node_test'() ->
|
14 |
| - T = |
15 |
| - binary_search_tree:insert(binary_search_tree:insert(binary_search_tree:empty(), |
16 |
| - 4), |
17 |
| - 2), |
18 |
| - ?assertMatch(4, (binary_search_tree:value(T))), |
19 |
| - ?assertMatch(2, |
20 |
| - (binary_search_tree:value(binary_search_tree:left(T)))). |
| 11 | + T = binary_search_tree:insert( |
| 12 | + binary_search_tree:insert( |
| 13 | + binary_search_tree:empty(), 4), |
| 14 | + 2), |
| 15 | + ?assertMatch(4, binary_search_tree:value(T)), |
| 16 | + ?assertMatch(2, binary_search_tree:value(binary_search_tree:left(T))). |
21 | 17 |
|
22 | 18 | '3_same number_at_left_node_test'() ->
|
23 |
| - T = |
24 |
| - binary_search_tree:insert(binary_search_tree:insert(binary_search_tree:empty(), |
25 |
| - 4), |
26 |
| - 4), |
27 |
| - ?assertMatch(4, (binary_search_tree:value(T))), |
28 |
| - ?assertMatch(4, |
29 |
| - (binary_search_tree:value(binary_search_tree:left(T)))). |
| 19 | + T = binary_search_tree:insert( |
| 20 | + binary_search_tree:insert( |
| 21 | + binary_search_tree:empty(), 4), |
| 22 | + 4), |
| 23 | + ?assertMatch(4, binary_search_tree:value(T)), |
| 24 | + ?assertMatch(4, binary_search_tree:value(binary_search_tree:left(T))). |
30 | 25 |
|
31 | 26 | '4_greater_number_at_right_node_test'() ->
|
32 |
| - T = |
33 |
| - binary_search_tree:insert(binary_search_tree:insert(binary_search_tree:empty(), |
34 |
| - 4), |
35 |
| - 5), |
36 |
| - ?assertMatch(4, (binary_search_tree:value(T))), |
37 |
| - ?assertMatch(5, |
38 |
| - (binary_search_tree:value(binary_search_tree:right(T)))). |
| 27 | + T = binary_search_tree:insert( |
| 28 | + binary_search_tree:insert( |
| 29 | + binary_search_tree:empty(), 4), |
| 30 | + 5), |
| 31 | + ?assertMatch(4, binary_search_tree:value(T)), |
| 32 | + ?assertMatch(5, binary_search_tree:value(binary_search_tree:right(T))). |
39 | 33 |
|
40 | 34 | '5_can_create_complex_tree_test'() ->
|
41 |
| - T = |
42 |
| - binary_search_tree:insert(binary_search_tree:insert(binary_search_tree:insert(binary_search_tree:insert(binary_search_tree:insert(binary_search_tree:insert(binary_search_tree:insert(binary_search_tree:empty(), |
43 |
| - 4), |
44 |
| - 2), |
45 |
| - 6), |
46 |
| - 1), |
47 |
| - 3), |
48 |
| - 5), |
49 |
| - 7), |
50 |
| - ?assertMatch(4, (binary_search_tree:value(T))), |
51 |
| - ?assertMatch(2, |
52 |
| - (binary_search_tree:value(binary_search_tree:left(T)))), |
53 |
| - ?assertMatch(1, |
54 |
| - (binary_search_tree:value(binary_search_tree:left(binary_search_tree:left(T))))), |
55 |
| - ?assertMatch(3, |
56 |
| - (binary_search_tree:value(binary_search_tree:right(binary_search_tree:left(T))))), |
57 |
| - ?assertMatch(6, |
58 |
| - (binary_search_tree:value(binary_search_tree:right(T)))), |
59 |
| - ?assertMatch(5, |
60 |
| - (binary_search_tree:value(binary_search_tree:left(binary_search_tree:right(T))))), |
61 |
| - ?assertMatch(7, |
62 |
| - (binary_search_tree:value(binary_search_tree:right(binary_search_tree:right(T))))). |
| 35 | + T = binary_search_tree:insert( |
| 36 | + binary_search_tree:insert( |
| 37 | + binary_search_tree:insert( |
| 38 | + binary_search_tree:insert( |
| 39 | + binary_search_tree:insert( |
| 40 | + binary_search_tree:insert( |
| 41 | + binary_search_tree:insert( |
| 42 | + binary_search_tree:empty(), |
| 43 | + 4), |
| 44 | + 2), |
| 45 | + 6), |
| 46 | + 1), |
| 47 | + 3), |
| 48 | + 5), |
| 49 | + 7), |
| 50 | + ?assertMatch(4, binary_search_tree:value(T)), |
| 51 | + ?assertMatch(2, binary_search_tree:value(binary_search_tree:left(T))), |
| 52 | + ?assertMatch(1, binary_search_tree:value( |
| 53 | + binary_search_tree:left( |
| 54 | + binary_search_tree:left(T)))), |
| 55 | + ?assertMatch(3, binary_search_tree:value( |
| 56 | + binary_search_tree:right( |
| 57 | + binary_search_tree:left(T)))), |
| 58 | + ?assertMatch(6, binary_search_tree:value(binary_search_tree:right(T))), |
| 59 | + ?assertMatch(5, binary_search_tree:value( |
| 60 | + binary_search_tree:left( |
| 61 | + binary_search_tree:right(T)))), |
| 62 | + ?assertMatch(7, binary_search_tree:value( |
| 63 | + binary_search_tree:right( |
| 64 | + binary_search_tree:right(T)))). |
63 | 65 |
|
64 | 66 | '6_can_sort_single_number_test'() ->
|
65 |
| - T = |
66 |
| - binary_search_tree:insert(binary_search_tree:empty(), |
67 |
| - 2), |
68 |
| - ?assertMatch([2], (binary_search_tree:to_list(T))). |
| 67 | + T = binary_search_tree:insert(binary_search_tree:empty(), 2), |
| 68 | + ?assertMatch([2], binary_search_tree:to_list(T)). |
69 | 69 |
|
70 | 70 | '7_can_sort_if_second_number_is_smaller_than_first_test'() ->
|
71 |
| - T = |
72 |
| - binary_search_tree:insert(binary_search_tree:insert(binary_search_tree:empty(), |
73 |
| - 2), |
74 |
| - 1), |
75 |
| - ?assertMatch([1, 2], (binary_search_tree:to_list(T))). |
| 71 | + T = binary_search_tree:insert( |
| 72 | + binary_search_tree:insert( |
| 73 | + binary_search_tree:empty(), |
| 74 | + 2), |
| 75 | + 1), |
| 76 | + ?assertMatch([1, 2], binary_search_tree:to_list(T)). |
76 | 77 |
|
77 | 78 | '8_can_sort_if_second_number_is_same_as_first_test'() ->
|
78 |
| - T = |
79 |
| - binary_search_tree:insert(binary_search_tree:insert(binary_search_tree:empty(), |
80 |
| - 2), |
81 |
| - 2), |
82 |
| - ?assertMatch([2, 2], (binary_search_tree:to_list(T))). |
| 79 | + T = binary_search_tree:insert( |
| 80 | + binary_search_tree:insert( |
| 81 | + binary_search_tree:empty(), |
| 82 | + 2), |
| 83 | + 2), |
| 84 | + ?assertMatch([2, 2], binary_search_tree:to_list(T)). |
83 | 85 |
|
84 | 86 | '9_can_sort_if_second_number_is_greater_than_first_test'() ->
|
85 |
| - T = |
86 |
| - binary_search_tree:insert(binary_search_tree:insert(binary_search_tree:empty(), |
87 |
| - 2), |
88 |
| - 3), |
89 |
| - ?assertMatch([2, 3], (binary_search_tree:to_list(T))). |
| 87 | + T = binary_search_tree:insert( |
| 88 | + binary_search_tree:insert( |
| 89 | + binary_search_tree:empty(), |
| 90 | + 2), |
| 91 | + 3), |
| 92 | + ?assertMatch([2, 3], binary_search_tree:to_list(T)). |
90 | 93 |
|
91 | 94 | '10_can_sort_complex_tree_test'() ->
|
92 |
| - T = |
93 |
| - binary_search_tree:insert(binary_search_tree:insert(binary_search_tree:insert(binary_search_tree:insert(binary_search_tree:insert(binary_search_tree:insert(binary_search_tree:empty(), |
94 |
| - 2), |
95 |
| - 1), |
96 |
| - 3), |
97 |
| - 6), |
98 |
| - 7), |
99 |
| - 5), |
100 |
| - ?assertMatch([1, 2, 3, 5, 6, 7], |
101 |
| - (binary_search_tree:to_list(T))). |
| 95 | + T = binary_search_tree:insert( |
| 96 | + binary_search_tree:insert( |
| 97 | + binary_search_tree:insert( |
| 98 | + binary_search_tree:insert( |
| 99 | + binary_search_tree:insert( |
| 100 | + binary_search_tree:insert( |
| 101 | + binary_search_tree:empty(), |
| 102 | + 2), |
| 103 | + 1), |
| 104 | + 3), |
| 105 | + 6), |
| 106 | + 7), |
| 107 | + 5), |
| 108 | + ?assertMatch([1, 2, 3, 5, 6, 7], binary_search_tree:to_list(T)). |
0 commit comments