From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

THALJEF / Pinto-0.14 / t / 02-bowels / 50-diff.t 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96

              
#!perl
use strict;
use warnings;
use Test::More;
use Pinto::Difference;
use lib 't/lib';
use Pinto::Tester;
use Pinto::Constants qw(:diff);
#------------------------------------------------------------------------------
my $t = Pinto::Tester->new;
$t->populate('AUTHOR/Dist-1 = PkgA~1; PkgB~1');
$t->populate('AUTHOR/Dist-2 = PkgB~2; PkgC~2');
#------------------------------------------------------------------------------
subtest 'detailed diff' => sub {
    local $ENV{PINTO_DIFF_STYLE} = $PINTO_DIFF_STYLE_DETAILED;
    my $fmt = '%a/%D/%P/%y';
    my $right = $t->get_stack->head;
    my $left  = ( $right->parents )[0];
    my $expect_adds = [ 'AUTHOR/Dist-2/PkgB~2/-', 'AUTHOR/Dist-2/PkgC~2/-' ];
    my $expect_dels = [ 'AUTHOR/Dist-1/PkgA~1/-', 'AUTHOR/Dist-1/PkgB~1/-' ];
    my $diff = Pinto::Difference->new( left => $left, right => $right );
    my @adds = map { $_->to_string($fmt) } $diff->additions;
    my @dels = map { $_->to_string($fmt) } $diff->deletions;
    is_deeply \@adds, $expect_adds, 'Got expected additions';
    is_deeply \@dels, $expect_dels, 'Got expected deletions';
    # If we reverse the direction of the diff, then
    # we should always get the opposite results...
    ( $right,       $left )        = ( $left,        $right );
    ( $expect_adds, $expect_dels ) = ( $expect_dels, $expect_adds );
    $diff = Pinto::Difference->new( left => $left, right => $right );
    @adds = map { $_->to_string($fmt) } $diff->additions;
    @dels = map { $_->to_string($fmt) } $diff->deletions;
    is_deeply \@adds, $expect_adds, 'Got expected additions';
    is_deeply \@dels, $expect_dels, 'Got expected deletions';
};
#------------------------------------------------------------------------------
subtest 'concise diff' => sub {
    local $ENV{PINTO_DIFF_STYLE} = $PINTO_DIFF_STYLE_CONCISE;
    my $fmt = '%a/%f';
    my $right = $t->get_stack->head;
    my $left  = ( $right->parents )[0];
    my $expect_adds = [ 'AUTHOR/Dist-2.tar.gz' ];
    my $expect_dels = [ 'AUTHOR/Dist-1.tar.gz' ];
    my $diff = Pinto::Difference->new( left => $left, right => $right );
    my @adds = map { $_->to_string($fmt) } $diff->additions;
    my @dels = map { $_->to_string($fmt) } $diff->deletions;
    is_deeply \@adds, $expect_adds, 'Got expected additions';
    is_deeply \@dels, $expect_dels, 'Got expected deletions';
    # If we reverse the direction of the diff, then we should always
    # get the opposite results.
    ( $right, $left ) = ( $left, $right );
    ( $expect_adds, $expect_dels ) = ( $expect_dels, $expect_adds );
    $diff = Pinto::Difference->new( left => $left, right => $right );
    @adds = map { $_->to_string($fmt) } $diff->additions;
    @dels = map { $_->to_string($fmt) } $diff->deletions;
    is_deeply \@adds, $expect_adds, 'Got expected additions';
    is_deeply \@dels, $expect_dels, 'Got expected deletions';
};
#------------------------------------------------------------------------------
done_testing;