File Coverage

blib/lib/Test/File/IsSorted.pm

Criterion	Covered	Total	%
statement	37	37	100.0
branch			n/a
condition			n/a
subroutine	11	11	100.0
pod	2	2	100.0
total	50	50	100.0

package Test::File::IsSorted;
$Test::File::IsSorted::VERSION = '0.2.0';
use strict;
use warnings;

use parent 'Test::Builder::Module';

use List::Util 1.34 qw/ all /;
use File::IsSorted ();

my $CLASS = __PACKAGE__;

sub are_sorted
{
    my ( $paths, $name ) = @_;
    local $Test::Builder::Level = $Test::Builder::Level + 1;

    no locale;
    return are_sorted2( [ sort @$paths ], $name );
}

sub are_sorted2
{
    my ( $paths, $name ) = @_;

    #    local $Test::Builder::Level = $Test::Builder::Level + 1;

    no locale;
    my $paths_text = join "\n", @$paths, "";
    my $tb = $CLASS->builder;

    my $checker = File::IsSorted->new;
    open my $fh, '<', \$paths_text;
    scalar( $checker->is_filehandle_sorted( { fh => $fh, } ) );
    close($fh);

    # $tb->plan(2);
    my $ok = $tb->ok(
        scalar( all { $checker->is_file_sorted( +{ path => $_ } ); } @$paths ),
        $name
    );

    return !$ok;
}

1;

__END__