File: escape.t

package info (click to toggle)
libtext-wikicreole-perl 0.05-2
  • links: PTS, VCS
  • area: main
  • in suites: lenny
  • size: 152 kB
  • ctags: 17
  • sloc: perl: 713; makefile: 43
file content (20 lines) | stat: -rw-r--r-- 388 bytes parent folder | download | duplicates (4)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
#!perl -T
use Test::Simple tests => 1;
use Text::WikiCreole;

$name = "escape";

# load the markup
open M, "<t/$name.markup" or die "failed to open $name.markup";
{ local $/; $markup = <M>; }
close M;

# load the html to compare
open H, "<t/$name.html" or die "failed to open $name.html";
{ local $/; $goodhtml = <H>; }
close H;

$html = creole_parse $markup;

ok( $html eq $goodhtml );