1use strict; 2use warnings; 3use lib 't/lib/'; 4use Test::More 0.88; 5use TestBridge; 6use IO::Dir; 7use File::Spec::Functions qw/catdir/; 8 9my $tml_local = "t/tml-local"; 10 11for my $dir ( IO::Dir->new($tml_local)->read ) { 12 next if $dir =~ /^\./; 13 my $fn = "test_$dir"; 14 $fn =~ s/-/_/g; 15 $fn =~ s/\.DIR\z//i if $^O eq 'VMS'; 16 my $bridge = TestBridge->can($fn); 17 next unless $bridge; 18 run_all_testml_files( "TestML", catdir($tml_local, $dir), $bridge ); 19} 20 21done_testing; 22