File: 31_local_tml.t

package info (click to toggle)
libyaml-tiny-perl 1.64-1
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 556 kB
  • ctags: 80
  • sloc: perl: 1,363; makefile: 2
file content (21 lines) | stat: -rw-r--r-- 482 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
use strict;
use warnings;
use lib 't/lib/';
use Test::More 0.99;
use TestBridge;
use IO::Dir;
use File::Spec::Functions qw/catdir/;

my $tml_local = "t/tml-local";

for my $dir ( IO::Dir->new($tml_local)->read ) {
    next if $dir =~ /^\./;
    my $fn = "test_$dir";
    $fn =~ s/-/_/g;
    $fn =~ s/\.DIR\z//i if $^O eq 'VMS';
    my $bridge = TestBridge->can($fn);
    next unless $bridge;
    run_all_testml_files( "TestML", catdir($tml_local, $dir), $bridge );
}

done_testing;