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

THALJEF / Pinto-0.14 / t / 02-bowels / 23-pull-multi.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

              
#!perl
use strict;
use warnings;
use Test::More;
use lib 't/lib';
use Pinto::Tester;
#------------------------------------------------------------------------------
my $source_1 = Pinto::Tester->new;
$source_1->populate(
    'JOHN/DistA-1 = PkgA~1 & PkgB~1',
    'JOHN/DistB-1 = PkgB~1 & PkgC~2',
    'JOHN/DistC-1 = PkgC~1',
    'JOHN/DistD-1 = PkgD~1 & PkgC~1'
);
my $source_2 = Pinto::Tester->new;
$source_2->populate( 'FRED/DistB-1 = PkgB~1', 'FRED/DistC-2 = PkgC~2' );
my $sources = sprintf '%s %s', $source_1->stack_url, $source_2->stack_url;
#------------------------------------------------------------------------------
subtest 'simple multi' => sub {
    # DistB-1 requires PkgC-2.  Source 1 only has PkgC-1, but source 2 has PkgC-2
    my $local = Pinto::Tester->new( init_args => { sources => $sources } );
    $local->run_ok( 'Pull', { targets => 'PkgA~1' } );
    $local->registration_ok('JOHN/DistA-1/PkgA~1');
    $local->registration_ok('JOHN/DistB-1/PkgB~1');
    $local->registration_ok('FRED/DistC-2/PkgC~2');
};
#------------------------------------------------------------------------------
subtest 'complex multi' => sub {
    # DistD-1 requires PkgC-1. Source 1 has PkgC-1, but source 2 has even
    # newer PkgC-2.  Since Source 1 is the first source, we should only get PkgC~1.
    my $local = Pinto::Tester->new( init_args => { sources => $sources } );
    $local->run_ok( 'Pull', { targets => 'PkgD~1' } );
    $local->registration_ok('JOHN/DistD-1/PkgD~1');
    $local->registration_ok('JOHN/DistC-1/PkgC~1');
};
#------------------------------------------------------------------------------
subtest 'complex multi cascade' => sub {
    # Same as last test but with cascade => 1, we should get newer PkgC~2
    # from Source 2, because it is the latest amongst all upstream repos.
    my $local = Pinto::Tester->new( init_args => { sources => $sources } );
    $local->run_ok( 'Pull', { targets => 'PkgD~1', cascade => 1 } );
    $local->registration_ok('JOHN/DistD-1/PkgD~1');
    $local->registration_ok('FRED/DistC-2/PkgC~2');
};
#------------------------------------------------------------------------------
done_testing;