1#!/usr/bin/perl
2use warnings;
3use strict;
4use File::Slurp qw|read_file write_file|;
5use File::Basename qw|dirname|;
6use POSIX;
7
8for my $file (glob("t/*.t")) {
9	my $text = read_file($file);
10
11	if ($text =~ /<test-body>(.*?)<\/test-body>/sim) {
12		print $file."\n";
13		my $code =
14			'
15				use warnings;
16				use strict;
17				use Test::LeakTrace;
18				use HTML5::DOM;
19
20				sub ok {
21					print "ok - ".$_[1]."\n" if ($_[0]);
22					print "not ok - ".$_[1]."\n" if (!$_[0]);
23				};
24				sub done_testing { };
25				sub require_ok { };
26				sub can_ok { };
27				sub isa_ok { };
28
29				no_leaks_ok {
30					(sub {
31						'.$1.';
32						1;
33					})->();
34				};
35			';
36		eval($code);
37		die "$@" if ($@);
38	}
39}
40