[p5sagit/p5-mst-13.2.git] / ext / Test / Harness / t / state.t

#!/usr/bin/perl -w

BEGIN {
    if ( $ENV{PERL_CORE} ) {
        chdir 't';
        @INC = '../lib';
    }
    else {
        unshift @INC, 't/lib';
    }
}

use strict;
use Test::More;
use App::Prove::State;
use App::Prove::State::Result;

sub mn {
    my $pfx = $ENV{PERL_CORE} ? '../ext/Test/Harness/' : '';
    return map {"$pfx$_"} @_;
}

my @schedule = (
    {   options        => 'all',
        get_tests_args => [],
        expect         => [
            't/compat/env.t',
            't/compat/failure.t',
            't/compat/inc_taint.t',
            't/compat/version.t',
            't/source.t',
            't/yamlish-writer.t',
        ],
    },
    {   options        => 'failed',
        get_tests_args => [],
        expect         => [
            't/compat/inc_taint.t',
            't/compat/version.t',
        ],
    },
    {   options        => 'passed',
        get_tests_args => [],
        expect         => [
            't/compat/env.t',
            't/compat/failure.t',
            't/source.t',
            't/yamlish-writer.t',
        ],
    },
    {   options        => 'last',
        get_tests_args => [],
        expect         => [
            't/compat/env.t',
            't/compat/failure.t',
            't/compat/inc_taint.t',
            't/compat/version.t',
            't/source.t',
        ],
    },
    {   options        => 'todo',
        get_tests_args => [],
        expect         => [
            't/compat/version.t',
            't/compat/failure.t',
        ],

    },
    {   options        => 'hot',
        get_tests_args => [],
        expect         => [
            't/compat/version.t',
            't/yamlish-writer.t',
            't/compat/env.t',
        ],
    },
    {   options        => 'adrian',
        get_tests_args => [],
        expect         => [
            't/compat/version.t',
            't/yamlish-writer.t',
            't/compat/env.t',
            't/compat/failure.t',
            't/compat/inc_taint.t',
            't/source.t',
        ],
    },
    {   options        => 'failed,passed',
        get_tests_args => [],
        expect         => [
            't/compat/inc_taint.t',
            't/compat/version.t',
            't/compat/env.t',
            't/compat/failure.t',
            't/source.t',
            't/yamlish-writer.t',
        ],
    },
    {   options        => [ 'failed', 'passed' ],
        get_tests_args => [],
        expect         => [
            't/compat/inc_taint.t',
            't/compat/version.t',
            't/compat/env.t',
            't/compat/failure.t',
            't/source.t',
            't/yamlish-writer.t',
        ],
    },
    {   options        => 'slow',
        get_tests_args => [],
        expect         => [
            't/yamlish-writer.t',
            't/compat/env.t',
            't/compat/inc_taint.t',
            't/compat/version.t',
            't/compat/failure.t',
            't/source.t',
        ],
    },
    {   options        => 'fast',
        get_tests_args => [],
        expect         => [
            't/source.t',
            't/compat/failure.t',
            't/compat/version.t',
            't/compat/inc_taint.t',
            't/compat/env.t',
            't/yamlish-writer.t',
        ],
    },
    {   options        => 'old',
        get_tests_args => [],
        expect         => [
            't/source.t',
            't/compat/inc_taint.t',
            't/compat/version.t',
            't/yamlish-writer.t',
            't/compat/failure.t',
            't/compat/env.t',
        ],
    },
    {   options        => 'new',
        get_tests_args => [],
        expect         => [
            't/compat/env.t',
            't/compat/failure.t',
            't/yamlish-writer.t',
            't/compat/version.t',
            't/compat/inc_taint.t',
            't/source.t',
        ],
    },
    {   options        => 'fresh',
        get_tests_args => [],
        expect         => [
            't/compat/env.t',
            't/compat/failure.t',
        ],
    },
);

plan tests => @schedule * 2;

for my $test (@schedule) {
    my $state = App::Prove::State->new;
    isa_ok $state, 'App::Prove::State';

    my $desc = $test->{options};

    # Naughty
    $state->{_} = get_state();
    my $options = $test->{options};
    $options = [$options] unless 'ARRAY' eq ref $options;
    $state->apply_switch(@$options);

    my @got    = $state->get_tests( @{ $test->{get_tests_args} } );
    my @expect = mn( @{ $test->{expect} } );
    unless ( is_deeply \@got, \@expect, "$desc: order OK" ) {
        use Data::Dumper;
        diag( Dumper( { got => \@got, want => \@expect } ) );
    }
}

sub get_state {
    return App::Prove::State::Result->new(
        {   generation    => 51,
            last_run_time => 1196285439,
            tests         => {
                mn('t/compat/failure.t') => {
                    last_result    => 0,
                    last_run_time  => 1196371471.57738,
                    last_pass_time => 1196371471.57738,
                    total_passes   => 48,
                    seq            => 1549,
                    gen            => 51,
                    elapsed        => 0.1230,
                    last_todo      => 1,
                    mtime          => 1196285623,
                },
                mn('t/yamlish-writer.t') => {
                    last_result    => 0,
                    last_run_time  => 1196371480.5761,
                    last_pass_time => 1196371480.5761,
                    last_fail_time => 1196368609,
                    total_passes   => 41,
                    seq            => 1578,
                    gen            => 49,
                    elapsed        => 12.2983,
                    last_todo      => 0,
                    mtime          => 1196285400,
                },
                mn('t/compat/env.t') => {
                    last_result    => 0,
                    last_run_time  => 1196371471.42967,
                    last_pass_time => 1196371471.42967,
                    last_fail_time => 1196368608,
                    total_passes   => 48,
                    seq            => 1548,
                    gen            => 52,
                    elapsed        => 3.1290,
                    last_todo      => 0,
                    mtime          => 1196285739,
                },
                mn('t/compat/version.t') => {
                    last_result    => 2,
                    last_run_time  => 1196371472.96476,
                    last_pass_time => 1196371472.96476,
                    last_fail_time => 1196368609,
                    total_passes   => 47,
                    seq            => 1555,
                    gen            => 51,
                    elapsed        => 0.2363,
                    last_todo      => 4,
                    mtime          => 1196285239,
                },
                mn('t/compat/inc_taint.t') => {
                    last_result    => 3,
                    last_run_time  => 1196371471.89682,
                    last_pass_time => 1196371471.89682,
                    total_passes   => 47,
                    seq            => 1551,
                    gen            => 51,
                    elapsed        => 1.6938,
                    last_todo      => 0,
                    mtime          => 1196185639,
                },
                mn('t/source.t') => {
                    last_result    => 0,
                    last_run_time  => 1196371479.72508,
                    last_pass_time => 1196371479.72508,
                    total_passes   => 41,
                    seq            => 1570,
                    gen            => 51,
                    elapsed        => 0.0143,
                    last_todo      => 0,
                    mtime          => 1186285639,
                },
            }
        }
    );
}
Commit	Line	Data
b965d173	1	#!/usr/bin/perl -w
b965d173	2
69f36734	3	BEGIN {
	4	if ( $ENV{PERL_CORE} ) {
	5	chdir 't';
	6	@INC = '../lib';
	7	}
	8	else {
	9	unshift @INC, 't/lib';
	10	}
	11	}
b965d173	12
69f36734	13	use strict;
b965d173	14	use Test::More;
b965d173	15	use App::Prove::State;
27fc0087	16	use App::Prove::State::Result;
b965d173	17
69f36734	18	sub mn {
90bc5263	19	my $pfx = $ENV{PERL_CORE} ? '../ext/Test/Harness/' : '';
69f36734	20	return map {"$pfx$_"} @_;
69f36734	21	}
b965d173	22
69f36734	23	my @schedule = (
b965d173	24	{ options => 'all',
	25	get_tests_args => [],
	26	expect => [
	27	't/compat/env.t',
	28	't/compat/failure.t',
	29	't/compat/inc_taint.t',
	30	't/compat/version.t',
	31	't/source.t',
	32	't/yamlish-writer.t',
	33	],
	34	},
	35	{ options => 'failed',
	36	get_tests_args => [],
	37	expect => [
	38	't/compat/inc_taint.t',
	39	't/compat/version.t',
	40	],
	41	},
	42	{ options => 'passed',
	43	get_tests_args => [],
	44	expect => [
	45	't/compat/env.t',
	46	't/compat/failure.t',
	47	't/source.t',
	48	't/yamlish-writer.t',
	49	],
	50	},
	51	{ options => 'last',
	52	get_tests_args => [],
	53	expect => [
	54	't/compat/env.t',
	55	't/compat/failure.t',
	56	't/compat/inc_taint.t',
	57	't/compat/version.t',
	58	't/source.t',
	59	],
	60	},
	61	{ options => 'todo',
	62	get_tests_args => [],
	63	expect => [
	64	't/compat/version.t',
	65	't/compat/failure.t',
	66	],
	67
	68	},
	69	{ options => 'hot',
	70	get_tests_args => [],
	71	expect => [
	72	't/compat/version.t',
	73	't/yamlish-writer.t',
	74	't/compat/env.t',
	75	],
	76	},
	77	{ options => 'adrian',
	78	get_tests_args => [],
	79	expect => [
	80	't/compat/version.t',
	81	't/yamlish-writer.t',
	82	't/compat/env.t',
	83	't/compat/failure.t',
	84	't/compat/inc_taint.t',
	85	't/source.t',
	86	],
	87	},
88	{ options => 'failed,passed',
89	get_tests_args => [],
90	expect => [
91	't/compat/inc_taint.t',
92	't/compat/version.t',
93	't/compat/env.t',
94	't/compat/failure.t',
95	't/source.t',
96	't/yamlish-writer.t',
97	],
98	},
99	{ options => [ 'failed', 'passed' ],
100	get_tests_args => [],
101	expect => [
102	't/compat/inc_taint.t',
103	't/compat/version.t',
104	't/compat/env.t',
105	't/compat/failure.t',
106	't/source.t',
107	't/yamlish-writer.t',
108	],
109	},
110	{ options => 'slow',
111	get_tests_args => [],
112	expect => [
113	't/yamlish-writer.t',
114	't/compat/env.t',
115	't/compat/inc_taint.t',
116	't/compat/version.t',
117	't/compat/failure.t',
118	't/source.t',
119	],
120	},
121	{ options => 'fast',
122	get_tests_args => [],
123	expect => [
124	't/source.t',
125	't/compat/failure.t',
126	't/compat/version.t',
127	't/compat/inc_taint.t',
128	't/compat/env.t',
129	't/yamlish-writer.t',
130	],
131	},
132	{ options => 'old',
133	get_tests_args => [],
134	expect => [
69f36734	135	't/source.t',
b965d173	136	't/compat/inc_taint.t',
b965d173	137	't/compat/version.t',
b965d173	138	't/yamlish-writer.t',
69f36734	139	't/compat/failure.t',
69f36734	140	't/compat/env.t',
b965d173	141	],
	142	},
	143	{ options => 'new',
	144	get_tests_args => [],
	145	expect => [
b965d173	146	't/compat/env.t',
b965d173	147	't/compat/failure.t',
69f36734	148	't/yamlish-writer.t',
	149	't/compat/version.t',
	150	't/compat/inc_taint.t',
	151	't/source.t',
b965d173	152	],
b965d173	153	},
27fc0087	154	{ options => 'fresh',
	155	get_tests_args => [],
	156	expect => [
	157	't/compat/env.t',
	158	't/compat/failure.t',
	159	],
	160	},
b965d173	161	);
	162
	163	plan tests => @schedule * 2;
	164
	165	for my $test (@schedule) {
	166	my $state = App::Prove::State->new;
	167	isa_ok $state, 'App::Prove::State';
	168
	169	my $desc = $test->{options};
	170
	171	# Naughty
	172	$state->{_} = get_state();
	173	my $options = $test->{options};
	174	$options = [$options] unless 'ARRAY' eq ref $options;
	175	$state->apply_switch(@$options);
	176
69f36734	177	my @got = $state->get_tests( @{ $test->{get_tests_args} } );
	178	my @expect = mn( @{ $test->{expect} } );
	179	unless ( is_deeply \@got, \@expect, "$desc: order OK" ) {
b965d173	180	use Data::Dumper;
69f36734	181	diag( Dumper( { got => \@got, want => \@expect } ) );
b965d173	182	}
	183	}
	184
	185	sub get_state {
27fc0087	186	return App::Prove::State::Result->new(
	187	{ generation => 51,
	188	last_run_time => 1196285439,
	189	tests => {
	190	mn('t/compat/failure.t') => {
	191	last_result => 0,
	192	last_run_time => 1196371471.57738,
	193	last_pass_time => 1196371471.57738,
	194	total_passes => 48,
	195	seq => 1549,
	196	gen => 51,
	197	elapsed => 0.1230,
	198	last_todo => 1,
	199	mtime => 1196285623,
	200	},
	201	mn('t/yamlish-writer.t') => {
	202	last_result => 0,
	203	last_run_time => 1196371480.5761,
	204	last_pass_time => 1196371480.5761,
	205	last_fail_time => 1196368609,
	206	total_passes => 41,
	207	seq => 1578,
	208	gen => 49,
	209	elapsed => 12.2983,
	210	last_todo => 0,
	211	mtime => 1196285400,
	212	},
	213	mn('t/compat/env.t') => {
	214	last_result => 0,
	215	last_run_time => 1196371471.42967,
	216	last_pass_time => 1196371471.42967,
	217	last_fail_time => 1196368608,
	218	total_passes => 48,
	219	seq => 1548,
	220	gen => 52,
	221	elapsed => 3.1290,
	222	last_todo => 0,
	223	mtime => 1196285739,
	224	},
	225	mn('t/compat/version.t') => {
	226	last_result => 2,
	227	last_run_time => 1196371472.96476,
	228	last_pass_time => 1196371472.96476,
	229	last_fail_time => 1196368609,
	230	total_passes => 47,
	231	seq => 1555,
	232	gen => 51,
	233	elapsed => 0.2363,
	234	last_todo => 4,
	235	mtime => 1196285239,
	236	},
	237	mn('t/compat/inc_taint.t') => {
	238	last_result => 3,
	239	last_run_time => 1196371471.89682,
	240	last_pass_time => 1196371471.89682,
	241	total_passes => 47,
	242	seq => 1551,
	243	gen => 51,
	244	elapsed => 1.6938,
	245	last_todo => 0,
	246	mtime => 1196185639,
	247	},
	248	mn('t/source.t') => {
	249	last_result => 0,
250	last_run_time => 1196371479.72508,
251	last_pass_time => 1196371479.72508,
252	total_passes => 41,
253	seq => 1570,
254	gen => 51,
255	elapsed => 0.0143,
256	last_todo => 0,
257	mtime => 1186285639,
258	},
259	}
b965d173	260	}
27fc0087	261	);
b965d173	262	}