1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
|
use strict;
use warnings;
use Test::More;
# Ensure the main script can be loaded
require 'foostats.pl';
ok(1, 'loaded foostats.pl');
# Test truncate_url
subtest 'truncate_url' => sub {
is(Foostats::Reporter::truncate_url('http://example.com', 20), 'http://example.com', 'URL shorter than max length');
is(Foostats::Reporter::truncate_url('http://example.com/a/very/long/path', 20), 'http:/...y/long/path', 'URL longer than max length');
is(Foostats::Reporter::truncate_url('12345678901234567890', 20), '12345678901234567890', 'URL equal to max length');
is(Foostats::Reporter::truncate_url('http://example.com/a/very/long/path', 30), 'http://exa.../a/very/long/path', 'URL with custom max length');
};
subtest 'format_table' => sub {
my $headers = ['Name', 'Value'];
my $rows = [
['foo', '123'],
['bar', '45'],
];
my $expected = <<'TABLE';
|------|-------|
| Name | Value |
|------|-------|
| foo | 123 |
| bar | 45 |
|------|-------|
TABLE
chomp $expected;
my $got = Foostats::Reporter::format_table($headers, $rows);
is($got, $expected, 'format_table output is correct');
};
subtest 'gemtext_to_html headings' => sub {
my $gemtext = "# Title\n## Subtitle\n### Sub-subtitle";
my $expected = "<h1>Title</h1>\n<h2>Subtitle</h2>\n<h3>Sub-subtitle</h3>\n";
my $html = Foostats::Reporter::gemtext_to_html($gemtext);
is($html, $expected, 'Headings are converted correctly');
};
subtest 'gemtext_to_html links' => sub {
my $gemtext = "=> http://example.com Example";
my $expected = "<p><a href=\"http://example.com\">Example</a></p>\n";
my $html = Foostats::Reporter::gemtext_to_html($gemtext);
is($html, $expected, 'Links are converted correctly');
};
subtest 'gemtext_to_html lists' => sub {
my $gemtext = "* one\n* two";
my $expected = "<ul>\n<li>one</li>\n<li>two</li>\n</ul>\n";
my $html = Foostats::Reporter::gemtext_to_html($gemtext);
is($html, $expected, 'Lists are converted correctly');
};
subtest 'gemtext_to_html code blocks' => sub {
my $gemtext = "```\nmy \$code = 1;\n```";
my $expected = "<pre>\nmy \$code = 1;\n</pre>\n";
my $html = Foostats::Reporter::gemtext_to_html($gemtext);
is($html, $expected, 'Code blocks are converted correctly');
};
subtest 'gemtext_to_html ascii tables' => sub {
my $gemtext = "```\n| a | b |\n|---|---|\n| 1 | 2 |\n```";
my $expected = "<table>\n<tr>\n <th>a</th>\n <th>b</th>\n</tr>\n<tr>\n <td>1</td>\n <td>2</td>\n</tr>\n</table>\n";
my $html = Foostats::Reporter::gemtext_to_html($gemtext);
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();
|
