1#!/usr/bin/perl -T
2use 5.006;
3use strict;
4use warnings;
5use Test::Tester;
6use Test::Version version_all_ok => { ignore_unindexable => 0 };
7use Test::More;
8
9my ( $premature, @results ) = run_tests(
10	sub {
11		version_all_ok('corpus');
12	}
13);
14
15is( scalar(@results), 18, 'correct number of results' );
16
17my @oks;
18
19foreach my $result ( @results ) {
20	push @oks, $result->{ok};
21}
22
23my $sorted = [ sort @oks ];
24
25my $expected = [ ( 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 ) ];
26
27note( 'unsorted oks: ', @oks );
28
29is_deeply( $sorted, $expected, 'oks are ok' );
30done_testing;
31