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