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