diff options
Diffstat (limited to 't')
| -rw-r--r-- | t/04-reporter.t | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/t/04-reporter.t b/t/04-reporter.t index 7ed7bd6..1e1299a 100644 --- a/t/04-reporter.t +++ b/t/04-reporter.t @@ -68,4 +68,18 @@ subtest 'gemtext_to_html ascii tables' => sub { is($html, $expected, 'ASCII tables are converted correctly'); }; +subtest 'gemtext_to_html expands truncated URLs' => sub { + Foostats::Reporter::reset_truncated_url_mappings(); + my $original_url = 'https://example.com/a/really/long/path/that/should/get/truncated/because/it/exceeds/the/limit.html'; + my $rows = [ [ $original_url, '12' ] ]; + Foostats::Reporter::truncate_urls_for_table($rows, 'Visitors'); + my $table = Foostats::Reporter::format_table([ 'URL', 'Visitors' ], $rows); + my $gemtext = "```\n$table\n```"; + my $html = Foostats::Reporter::gemtext_to_html($gemtext); + like($html, + qr{<a href=\"https://example.com/a/really/long/path/that/should/get/truncated/because/it/exceeds/the/limit\.html\">https://example.com/a/really/long/path/that/should/get/truncated/because/it/exceeds/the/limit\.html</a>}, + 'HTML renders full URL without ellipsis'); + Foostats::Reporter::reset_truncated_url_mappings(); +}; + done_testing(); |