|
2 | 2 | (:require [clojure.test :refer [deftest is]] |
3 | 3 | interest-is-interesting)) |
4 | 4 |
|
5 | | -(deftest ^{:task 1} minimal-first-interest-rate-test |
| 5 | +(deftest ^{:task 1 :task-1 true :interest-rate true} minimal-first-interest-rate-test |
6 | 6 | (is (= 0.5 (interest-is-interesting/interest-rate 0M)))) |
7 | 7 |
|
8 | | -(deftest ^{:task 1} tiny-first-interest-rate-test |
| 8 | +(deftest ^{:task 1 :task-1 true :interest-rate true} tiny-first-interest-rate-test |
9 | 9 | (is (= 0.5 (interest-is-interesting/interest-rate 0.000001M)))) |
10 | 10 |
|
11 | | -(deftest ^{:task 1} maximum-first-interest-rate-test |
| 11 | +(deftest ^{:task 1 :task-1 true :interest-rate true} maximum-first-interest-rate-test |
12 | 12 | (is (= 0.5 (interest-is-interesting/interest-rate 999.9999M)))) |
13 | 13 |
|
14 | | -(deftest ^{:task 1} minimal-second-interest-rate-test |
| 14 | +(deftest ^{:task 1 :task-1 true :interest-rate true} minimal-second-interest-rate-test |
15 | 15 | (is (= 1.621 (interest-is-interesting/interest-rate 1000.0M)))) |
16 | 16 |
|
17 | | -(deftest ^{:task 1} tiny-second-interest-rate-test |
| 17 | +(deftest ^{:task 1 :task-1 true :interest-rate true} tiny-second-interest-rate-test |
18 | 18 | (is (= 1.621 (interest-is-interesting/interest-rate 1000.0001M)))) |
19 | 19 |
|
20 | | -(deftest ^{:task 1} maximum-second-interest-rate-test |
| 20 | +(deftest ^{:task 1 :task-1 true :interest-rate true} maximum-second-interest-rate-test |
21 | 21 | (is (= 1.621 (interest-is-interesting/interest-rate 4999.9990M)))) |
22 | 22 |
|
23 | | -(deftest ^{:task 1} minimal-third-interest-rate-test |
| 23 | +(deftest ^{:task 1 :task-1 true :interest-rate true} minimal-third-interest-rate-test |
24 | 24 | (is (= 2.475 (interest-is-interesting/interest-rate 5000.0000M)))) |
25 | 25 |
|
26 | | -(deftest ^{:task 1} tiny-third-interest-rate-test |
| 26 | +(deftest ^{:task 1 :task-1 true :interest-rate true} tiny-third-interest-rate-test |
27 | 27 | (is (= 2.475 (interest-is-interesting/interest-rate 5000.0001M)))) |
28 | 28 |
|
29 | | -(deftest ^{:task 1} large-third-interest-rate-test |
| 29 | +(deftest ^{:task 1 :task-1 true :interest-rate true} large-third-interest-rate-test |
30 | 30 | (is (= 2.475 (interest-is-interesting/interest-rate 5639998.742909M)))) |
31 | 31 |
|
32 | | -(deftest ^{:task 1} minimal-negative-interest-rate-test |
| 32 | +(deftest ^{:task 1 :task-1 true :interest-rate true} minimal-negative-interest-rate-test |
33 | 33 | (is (= -3.213 (interest-is-interesting/interest-rate -0.000001M)))) |
34 | 34 |
|
35 | | -(deftest ^{:task 1} small-negative-interest-rate-test |
| 35 | +(deftest ^{:task 1 :task-1 true :interest-rate true} small-negative-interest-rate-test |
36 | 36 | (is (= -3.213 (interest-is-interesting/interest-rate -0.123M)))) |
37 | 37 |
|
38 | | -(deftest ^{:task 1} regular-negative-interest-rate-test |
| 38 | +(deftest ^{:task 1 :task-1 true :interest-rate true} regular-negative-interest-rate-test |
39 | 39 | (is (= -3.213 (interest-is-interesting/interest-rate -300.0M)))) |
40 | 40 |
|
41 | | -(deftest ^{:task 1} large-negative-interest-rate-test |
| 41 | +(deftest ^{:task 1 :task-1 true :interest-rate true} large-negative-interest-rate-test |
42 | 42 | (is (= -3.213 (interest-is-interesting/interest-rate -152964.231M)))) |
43 | 43 |
|
44 | | -(deftest ^{:task 2} annual-balance-update-empty-balance-test |
| 44 | +(deftest ^{:task 2 :task-2 true :annual-balance-update true} annual-balance-update-empty-balance-test |
45 | 45 | (is (= 0.0000M (interest-is-interesting/annual-balance-update 0.0M)))) |
46 | 46 |
|
47 | | -(deftest ^{:task 2} annual-balance-update-small-positive-balance-test |
| 47 | +(deftest ^{:task 2 :task-2 true :annual-balance-update true} annual-balance-update-small-positive-balance-test |
48 | 48 | (is (= 0.000001005M (interest-is-interesting/annual-balance-update 0.000001M)))) |
49 | 49 |
|
50 | | -(deftest ^{:task 2} annual-balance-update-average-positive-balance-test |
| 50 | +(deftest ^{:task 2 :task-2 true :annual-balance-update true} annual-balance-update-average-positive-balance-test |
51 | 51 | (is (= 1016.210000M (interest-is-interesting/annual-balance-update 1000.0M)))) |
52 | 52 |
|
53 | | -(deftest ^{:task 2} annual-balance-update-large-positive-balance-test |
| 53 | +(deftest ^{:task 2 :task-2 true :annual-balance-update true} annual-balance-update-large-positive-balance-test |
54 | 54 | (is (= 1016.210101621M (interest-is-interesting/annual-balance-update 1000.0001M)))) |
55 | 55 |
|
56 | | -(deftest ^{:task 2} annual-balance-update-huge-positive-balance-test |
| 56 | +(deftest ^{:task 2 :task-2 true :annual-balance-update true} annual-balance-update-huge-positive-balance-test |
57 | 57 | (is (= 920352587.26744292868451875M (interest-is-interesting/annual-balance-update 898124017.826243404425M)))) |
58 | 58 |
|
59 | | -(deftest ^{:task 2} annual-balance-update-small-negative-balance-test |
| 59 | +(deftest ^{:task 2 :task-2 true :annual-balance-update true} annual-balance-update-small-negative-balance-test |
60 | 60 | (is (= -0.12695199M (interest-is-interesting/annual-balance-update -0.123M)))) |
61 | 61 |
|
62 | | -(deftest ^{:task 2} annual-balance-update-large-negative-balance-test |
| 62 | +(deftest ^{:task 2 :task-2 true :annual-balance-update true} annual-balance-update-large-negative-balance-test |
63 | 63 | (is (= -157878.97174203M (interest-is-interesting/annual-balance-update -152964.231M)))) |
64 | 64 |
|
65 | | -(deftest ^{:task 3} amount-to-donate-empty-balance-test |
| 65 | +(deftest ^{:task 3 :task-3 true :amount-to-donate true} amount-to-donate-empty-balance-test |
66 | 66 | (is (= 0 (interest-is-interesting/amount-to-donate 0.0M 2.0)))) |
67 | 67 |
|
68 | | -(deftest ^{:task 3} amount-to-donate-small-positive-balance-test |
| 68 | +(deftest ^{:task 3 :task-3 true :amount-to-donate true} amount-to-donate-small-positive-balance-test |
69 | 69 | (is (= 0 (interest-is-interesting/amount-to-donate 0.000001M 2.1)))) |
70 | 70 |
|
71 | | -(deftest ^{:task 3} amount-to-donate-average-positive-balance-test |
| 71 | +(deftest ^{:task 3 :task-3 true :amount-to-donate true} amount-to-donate-average-positive-balance-test |
72 | 72 | (is (= 40 (interest-is-interesting/amount-to-donate 1000.0M 2.0)))) |
73 | 73 |
|
74 | | -(deftest ^{:task 3} amount-to-donate-large-positive-balance-test |
| 74 | +(deftest ^{:task 3 :task-3 true :amount-to-donate true} amount-to-donate-large-positive-balance-test |
75 | 75 | (is (= 19 (interest-is-interesting/amount-to-donate 1000.0001M 0.99)))) |
76 | 76 |
|
77 | | -(deftest ^{:task 3} amount-to-donate-huge-positive-balance-test |
| 77 | +(deftest ^{:task 3 :task-3 true :amount-to-donate true} amount-to-donate-huge-positive-balance-test |
78 | 78 | (is (= 47600572 (interest-is-interesting/amount-to-donate 898124017.826243404425M 2.65)))) |
79 | 79 |
|
80 | | -(deftest ^{:task 3} amount-to-donate-small-negative-balance-test |
| 80 | +(deftest ^{:task 3 :task-3 true :amount-to-donate true} amount-to-donate-small-negative-balance-test |
81 | 81 | (is (= 0 (interest-is-interesting/amount-to-donate -0.123M 3.33)))) |
82 | 82 |
|
83 | | -(deftest ^{:task 3} amount-to-donate-large-negative-balance-test |
| 83 | +(deftest ^{:task 3 :task-3 true :amount-to-donate true} amount-to-donate-large-negative-balance-test |
84 | 84 | (is (= 0 (interest-is-interesting/amount-to-donate -152964.231M 5.4)))) |
0 commit comments