whatpm/t/HTML-tree.t

#!/usr/bin/perl
use strict;

my $dir_name;
my $test_dir_name;
BEGIN {
  $test_dir_name = 't/';
  $dir_name = 't/tree-construction/';
  my $skip = "You don't have make command";
  eval q{
         system ("cd $test_dir_name; make tree-construction-files") == 0 or die
           unless -f $dir_name.'tests1.dat';
         $skip = '';
        };
  if ($skip) {
    print "1..1\n";
    print "ok 1 # $skip\n";
    exit;
  }
}

use Test;
BEGIN { plan tests => 774 }

use Data::Dumper;
$Data::Dumper::Useqq = 1;
sub Data::Dumper::qquote {
  my $s = shift;
  $s =~ s/([^\x20\x21-\x26\x28-\x5B\x5D-\x7E])/sprintf '\x{%02X}', ord $1/ge;
  return q<qq'> . $s . q<'>;
} # Data::Dumper::qquote

for my $file_name (grep {$_} split /\s+/, qq[
                      ${test_dir_name}tokenizer-test-2.dat
                      ${dir_name}tests1.dat
                      ${dir_name}tests2.dat
1	#!/usr/bin/perl
2	use strict;
3
4	my $dir_name;
5	my $test_dir_name;
6	BEGIN {
7	$test_dir_name = 't/';
8	$dir_name = 't/tree-construction/';
9	my $skip = "You don't have make command";
10	eval q{
11	system ("cd $test_dir_name; make tree-construction-files") == 0 or die
12	unless -f $dir_name.'tests1.dat';
13	$skip = '';
14	};
15	if ($skip) {
16	print "1..1\n";
17	print "ok 1 # $skip\n";
18	exit;
19	}
20	}
21
22	use Test;
23	BEGIN { plan tests => 774 }
24
25	use Data::Dumper;
26	$Data::Dumper::Useqq = 1;
27	sub Data::Dumper::qquote {
28	my $s = shift;
29	$s =~ s/([^\x20\x21-\x26\x28-\x5B\x5D-\x7E])/sprintf '\x{%02X}', ord $1/ge;
30	return q<qq'> . $s . q<'>;
31	} # Data::Dumper::qquote
32
33	for my $file_name (grep {$_} split /\s+/, qq[
34	${test_dir_name}tokenizer-test-2.dat
35	${dir_name}tests1.dat
36	${dir_name}tests2.dat