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