Gecko [ www.blackthorn-inc.com ]

Name	Size	Permission	Date
data	[ DIR ]	drwxr-xr-x	2015-02-14 16:55
lib	[ DIR ]	drwxr-xr-x	2015-02-14 16:55
tml-local	[ DIR ]	drwxr-xr-x	2015-02-14 16:55
tml-spec	[ DIR ]	drwxr-xr-x	2015-02-14 16:55
tml-world	[ DIR ]	drwxr-xr-x	2015-02-14 16:55
01_api.t	1.52 KB	-r--r--r--	2014-12-27 11:48
01_compile.t	363 B	-r--r--r--	2014-12-27 11:48
10_read.t	3.35 KB	-r--r--r--	2014-12-27 11:48
11_read_string.t	1.63 KB	-r--r--r--	2014-12-27 11:48
12_write.t	2.72 KB	-r--r--r--	2014-12-27 11:48
13_write_string.t	642 B	-r--r--r--	2014-12-27 11:48
20_subclass.t	1005 B	-r--r--r--	2014-12-27 11:48
21_yamlpm_compat.t	1.64 KB	-r--r--r--	2014-12-27 11:48
30_yaml_spec_tml.t	929 B	-r--r--r--	2014-12-27 11:48
31_local_tml.t	482 B	-r--r--r--	2014-12-27 11:48
32_world_tml.t	186 B	-r--r--r--	2014-12-27 11:48
README.md	6.15 KB	-r--r--r--	2014-12-27 11:48
tml	3.3 KB	-r-xr-xr-x	2014-12-27 11:48

Rename

#!/usr/bin/env perl
use strict;
use warnings;
use lib 'lib', 't/lib/';
use Test::More 0.99;
use Getopt::Long qw/:config passthrough/;
use List::Util qw/first/;
use TestBridge;
use TestUtils;

#--------------------------------------------------------------------------#
# Note: This program is both the proxy to select .tml files for 'prove' and the
# test-runner that 'prove' executes.
#--------------------------------------------------------------------------#

# match path prefix under t/
my %BRIDGE_MAP = (
    'tml-local/dump-error'      => \&test_dump_error,
    'tml-local/load-error'      => \&test_load_error,
    'tml-local/perl-to-yaml'    => \&test_perl_to_yaml,
    'tml-local/yaml-roundtrip'  => \&test_yaml_roundtrip,
    'tml-spec/basic-data.tml'   => \&test_yaml_json,
    'tml-spec/unicode.tml'      => \&test_code_point,
    'tml-world'                 => \&test_yaml_roundtrip,
);

sub main {
    my ($verbose, $run_tests);
    GetOptions(
        'run_test' => \$run_tests,
    );

if ( $run_tests ) {
        my $file = shift @ARGV;
        exit 0 unless -f $file;
        my ($bridge) = first { $file =~ m{^t/\Q$_} } keys %BRIDGE_MAP;
        die "No bridge found for $file" unless $bridge;

run_testml_file(
            $file,
            sub {
                my ($file, $blocks) = @_;
                subtest "TestML dev runner: $file" => sub {
                    plan tests => scalar @$blocks;
                    $BRIDGE_MAP{$bridge}->($_) for @$blocks;
                };
                done_testing;
            },
        );
    }
    else {
        my (@opts, @files, @patterns);
        for (@ARGV) {
            if ( /^-/ ) {
                push @opts, $_;
            }
            elsif ( -f ) {
                push @files, $_;
            }
            else {
                push @patterns, $_;
            }
        }

# if we got no files or patterns, treat that as taking anything
        @patterns = "." if !@patterns && !@files;

if (@patterns) {
            FILE: for my $file ( find_tml_files('t') ) {
                if ( first { $file =~ /$_/ } @patterns ) {
                        push @files, $file;
                }
            }
        }

exec( 'prove', @opts, '--exec', "$0 --run_test", @files )
            if @files;
    }
}

main;

__END__

=head1 NAME

t/tml - run .tml files matching a pattern

=head1 SYNOPSIS

t/tml [prove options] [patterns]

=head1 USAGE

This program runs F<prove> against a set of F<.tml> files using their
corresponding test bridge functions.

Any arguments beginning with C<-> will be passed through to F<prove>.  All
other arguments will be used as patterns to select F<.tml> files found anywhere
under the F<t> directory.  You can use shell globbing syntax, and let the shell
expand the patterns, or you can quote/escape the patterns and let them be
treated as Perl regular expressions.

For example:

t/tml unicode       # paths matching qr/unicode/
    t/tml basic uni     # paths matching qr/basic/ or qr/uni/
    t/tml 'local.*re'   # paths matching qr/local.*re/
    t/tml '\d+'         # paths matching qr/\d+/

Examples of options for prove:

t/tml -v quoting    # verbose run of paths matching qr/quoting/
    t/tml -j9 world     # parallel run of paths matching qr/world/
    t/tml -j9           # parallel run of all .tml files

=cut