|
Lines 85-97
subtest 'Test basic functionality' => sub {
Link Here
|
| 85 |
|
85 |
|
| 86 |
my $start_dt = DateTime->new( |
86 |
my $start_dt = DateTime->new( |
| 87 |
year => 2000, |
87 |
year => 2000, |
| 88 |
month => 01, |
88 |
month => 1, |
| 89 |
day => 01, |
89 |
day => 1, |
| 90 |
); |
90 |
); |
| 91 |
|
91 |
|
| 92 |
my $end_dt = DateTime->new( |
92 |
my $end_dt = DateTime->new( |
| 93 |
year => 2000, |
93 |
year => 2000, |
| 94 |
month => 01, |
94 |
month => 1, |
| 95 |
day => 30, |
95 |
day => 30, |
| 96 |
); |
96 |
); |
| 97 |
|
97 |
|
|
Lines 124-136
subtest 'Test cap_fine_to_replacement_price' => sub {
Link Here
|
| 124 |
|
124 |
|
| 125 |
my $start_dt = DateTime->new( |
125 |
my $start_dt = DateTime->new( |
| 126 |
year => 2000, |
126 |
year => 2000, |
| 127 |
month => 01, |
127 |
month => 1, |
| 128 |
day => 01, |
128 |
day => 1, |
| 129 |
); |
129 |
); |
| 130 |
|
130 |
|
| 131 |
my $end_dt = DateTime->new( |
131 |
my $end_dt = DateTime->new( |
| 132 |
year => 2000, |
132 |
year => 2000, |
| 133 |
month => 01, |
133 |
month => 1, |
| 134 |
day => 30, |
134 |
day => 30, |
| 135 |
); |
135 |
); |
| 136 |
|
136 |
|
| 137 |
- |
|
|