diff options
Diffstat (limited to 't')
| -rwxr-xr-x | t/table.t | 10 |
1 files changed, 10 insertions, 0 deletions
@@ -48,6 +48,12 @@ Key | Value ASCII | hello Not ASCII | ¬ """]]'); +write_old_file("jon.mdwn", +'(See doc/bugs/table_can_not_deal_with_Chinese.mdwn) + +[[!table class=fullwidth_table delimiter=" " data=""" +Number Title Own? Read? +I (HB1), 70 (PB1), 5 (PB50) Dune O ✓"""]]'); ok(! system(@command)); ok(! system(@command, "--refresh")); @@ -60,6 +66,10 @@ like($blob, qr{<td>\s*Not ASCII\s*</td>.*<td>\s*¬\s*</td>}s); SKIP: { skip "Text::CSV unavailable", 0 unless eval q{use Text::CSV; 1}; + $blob = readfile("t/tmp/out/jon.html"); + like($blob, qr{<th>\s*Number\s*</th>\s*<th>\s*Title\s*</th>\s*<th>\s*Own\?\s*</th>\s*<th>\s*Read\?\s*</th>}s); + like($blob, qr{<td>\s*I \(HB1\), 70 \(PB1\), 5 \(PB50\)\s*</td>\s*<td>\s*Dune\s*</td>\s*<td>\s*O\s*</td>\s*<td>\s*✓\s*</td>}s); + $blob = readfile("t/tmp/out/csv.html"); like($blob, qr{<th>\s*Key\s*</th>.*<th>\s*Value\s*</th>}s); like($blob, qr{<td>\s*ASCII\s*</td>.*<td>\s*hello\s*</td>}s); |