1
2
3# Test of escapes in
4# * Headlines
5# * Bullets
6# * Examples
7# * Verbatime Examples
8
9
10use strict;
11
12use lib "./t";
13use pptest;
14
15my $n;
16BEGIN{
17  my $h = $^O =~ /win/i ? '"' : "'";
18  $n = `$^X -e ${h}while(<>){\$i++ if /^=/}print \$i$h t/test_escapes.pp` + 1;
19}
20use Test::Simple tests => $n;
21
22system " $^X -Iblib/lib ./pp2html -slide_prefix escapes_ -slide_dir t/d_escapes --quiet t/test_escapes.pp";
23
24for(my $i=1; $i <= $n; $i++){
25  my $nn = sprintf "%04d", $i-1;
26  my $ok = ok( cmp_files("t/d_escapes/escapes_$nn.htm"), "escapes_$nn.htm");
27  unlink "t/d_escapes/escapes_$nn.htm" unless $ENV{PP_DEBUG} or !$ok;
28}
29unlink "t/d_escapes/index.htm";
30
31# vim:ft=perl
32