view release on metacpan or  search on metacpan

t/preserve-spaces.t  view on Meta::CPAN

#!/usr/bin/env perl

use strict;
use warnings;

use lib 't/lib';

use Test::Differences qw( eq_or_diff );
use TestHelper        qw( doc );
use Test::More import => [qw( done_testing subtest )];
use Test::Needs qw( HTTP::Status );

subtest 'tidy_whitespace' => sub {
    my $expected = <<'EOF';
use strict;
use warnings;

use Carp    ();
use HTTP::Status qw( HTTP_FOUND );

print HTTP_FOUND;
EOF
    my ($doc) = doc(
        filename        => 'test-data/preserve-spaces.pl',
        tidy_whitespace => 1,
    );

    eq_or_diff(
        $doc->tidied_document,
        $expected,
        'arbitrary spacing is preserved'
    );
};

subtest 'disable tidy_whitespace' => sub {
    my $expected = <<'EOF';
use strict;
use warnings;

use Carp    ();
use HTTP::Status qw ( HTTP_FOUND );

print HTTP_FOUND;
EOF
    my ($doc) = doc(
        filename        => 'test-data/preserve-spaces.pl',
        tidy_whitespace => 0,
    );

    eq_or_diff(
        $doc->tidied_document,
        $expected,
        'arbitrary spacing is preserved'
    );
};

done_testing();