The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

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

              
#!perl
use strict;
use warnings;
use Test::More;
use lib 't/lib';
use Pinto::Tester;
use Pinto::Tester::Util qw(make_dist_archive);
#------------------------------------------------------------------------------
my $source = Pinto::Tester->new;
$source->populate('AUTHOR/Dist-1 = PkgA~1');
$source->populate('AUTHOR/Dist-2 = PkgB~2');
#------------------------------------------------------------------------------
subtest 'exact version' => sub {
    my $local = Pinto::Tester->new( init_args => { sources => $source->stack_url } );
    $local->run_ok( Pull => {targets => 'PkgA@1'} );
    $local->registration_ok('AUTHOR/Dist-1/PkgA~1');
    $local->run_ok( Pull => {targets => 'PkgB==2'} );
    $local->registration_ok('AUTHOR/Dist-2/PkgB~2');
};
#------------------------------------------------------------------------------
subtest 'not version' => sub {
    my $local = Pinto::Tester->new( init_args => { sources => $source->stack_url } );
    $local->run_ok( Pull => {targets => 'PkgA!=2'} );
    $local->registration_ok('AUTHOR/Dist-1/PkgA~1');
    $local->run_throws_ok( Pull => {targets => 'PkgB!=2'}, qr/Cannot find PkgB!=2/ );
};
#------------------------------------------------------------------------------
subtest 'complex' => sub {
    my $local = Pinto::Tester->new( init_args => { sources => $source->stack_url } );
    $local->run_ok( Pull => {targets => 'PkgA>0.5,!=2,<=4'} );
    $local->registration_ok('AUTHOR/Dist-1/PkgA~1');
    $local->run_throws_ok( Pull => {targets => 'PkgB>=1,<5,!=2,!=3'}, qr/Cannot find PkgB>=1,<5,!=2,!=3/ );
};
#------------------------------------------------------------------------------
done_testing;