File: linebreaks.t

package info (click to toggle)
libwiki-toolkit-formatter-usemod-perl 0.25-1.1
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 176 kB
  • sloc: perl: 258; makefile: 2
file content (21 lines) | stat: -rw-r--r-- 363 bytes parent folder | download | duplicates (6) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
use strict;
use Test::More tests => 1;

use Wiki::Toolkit::Formatter::UseMod;

my $formatter = Wiki::Toolkit::Formatter::UseMod->new(
    allowed_tags => [ qw( table tr td ) ],
);

my $wikitext = <<WIKI;

<table>
  <tr>
    <td>A table cell</td>
  </tr>
</table>

WIKI

my $html = $formatter->format( $wikitext );
unlike( $html, qr|<br />|, "no bogus <br />s" );