| ... | ... |
@@ -1601,6 +1601,7 @@ sub _age_string {
|
| 1601 | 1601 |
} |
| 1602 | 1602 |
|
| 1603 | 1603 |
$age_str =~ s/^1 /a /; |
| 1604 |
+ $age_str =~ s/^a hour/an hour/; |
|
| 1604 | 1605 |
|
| 1605 | 1606 |
return $age_str; |
| 1606 | 1607 |
} |
| ... | ... |
@@ -14,9 +14,9 @@ my @cases = ( |
| 14 | 14 |
{ stimulus => 2 * 60, expected => '2 min ago' },
|
| 15 | 15 |
{ stimulus => 2 * 60 + 1, expected => '2 min ago' },
|
| 16 | 16 |
{ stimulus => 60 * 60 - 1, expected => '59 min ago' },
|
| 17 |
- { stimulus => 60 * 60, expected => 'a hour ago' },
|
|
| 18 |
- { stimulus => 60 * 60 + 1, expected => 'a hour ago' },
|
|
| 19 |
- { stimulus => 61 * 60, expected => 'a hour ago' },
|
|
| 17 |
+ { stimulus => 60 * 60, expected => 'an hour ago' },
|
|
| 18 |
+ { stimulus => 60 * 60 + 1, expected => 'an hour ago' },
|
|
| 19 |
+ { stimulus => 61 * 60, expected => 'an hour ago' },
|
|
| 20 | 20 |
{ stimulus => 24 * 60 * 60 - 1, expected => '23 hours ago' },
|
| 21 | 21 |
{ stimulus => 24 * 60 * 60, expected => 'a day ago' },
|
| 22 | 22 |
{ stimulus => 24 * 60 * 60 + 1, expected => 'a day ago' },
|