THALJEF / Pinto-0.14 / t / 03-remote / 04-install-with-auth.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
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114

              
#!perl
use strict;
use warnings;
use Test::More;
use Test::File;
use Test::Exception;
use Plack::Test;
use File::Temp;
use Path::Class;
use Capture::Tiny qw(capture_stderr);
use Pinto::Remote;
use lib 't/lib';
use Pinto::Server::Tester;
use Pinto::Tester::Util qw(make_htpasswd_file has_cpanm);
use Pinto::Constants qw($PINTO_MINIMUM_CPANM_VERSION);
use Pinto::Util qw(tempdir);
#------------------------------------------------------------------------------
# To prevent mucking with user's ~/.cpanm. See GH #170.
local $ENV{PERL_CPANM_HOME} = tempdir->stringify();
# To prevent failures due to a proxy. See GH #202.
local $ENV{no_proxy} = "localhost";
#------------------------------------------------------------------------------
plan skip_all => "Need cpanm $PINTO_MINIMUM_CPANM_VERSION or newer"
    unless has_cpanm($PINTO_MINIMUM_CPANM_VERSION);
#------------------------------------------------------------------------------
# Setup the server
my $htpasswd = make_htpasswd_file(qw(my_login my_password));
my @auth     = ( qw(--auth backend=Passwd --auth), "path=$htpasswd" );
my $t        = Pinto::Server::Tester->new( pintod_opts => \@auth )->start_server;
plan skip_all => "Can't open connection to $t" unless $t->can_connect;
$t->populate('JOHN/DistA-1 = PkgA~1 & PkgB~1; PkgC~1');
$t->populate('PAUL/DistB-1 = PkgB~1 & PkgD~2');
$t->populate('MARK/DistC-1 = PkgC~1');
$t->populate('MARK/DistC-2 = PkgC~2; PkgD~2');
#------------------------------------------------------------------------------
subtest 'Remote install succeeds with valid credentials' => sub {
    my %creds = ( username => 'my_login', password => 'my_password' );
    my $remote = Pinto::Remote->new( root => $t->server_url, %creds );
    my $sandbox    = File::Temp->newdir;
    my $p5_dir     = dir( $sandbox, qw(lib perl5) );
    my %cpanm_opts = ( cpanm_options => { q => undef, L => $sandbox->dirname } );
    my $result;
    capture_stderr {
        $result = $remote->run( Install => ( targets => ['PkgA'], %cpanm_opts ) );
    };
    is $result->was_successful, 1;
    file_exists_ok( $p5_dir->file('PkgA.pm') );
    file_exists_ok( $p5_dir->file('PkgB.pm') );
    file_exists_ok( $p5_dir->file('PkgC.pm') );
    file_exists_ok( $p5_dir->file('PkgD.pm') );
};
#------------------------------------------------------------------------------
subtest 'Remote install fails with invalid credentials' => sub {
    my %creds = ( username => 'my_login', password => 'bogus' );
    my $remote = Pinto::Remote->new( root => $t->server_url, %creds );
    my $sandbox    = File::Temp->newdir;
    my $p5_dir     = dir( $sandbox, qw(lib perl5) );
    my %cpanm_opts = ( cpanm_options => { q => undef, L => $sandbox->dirname } );
    my $result;
    capture_stderr {
        $result = $remote->run( Install => ( targets => ['PkgA'], %cpanm_opts ) );
    };
    is $result->was_successful, 0;
    like $result, qr/Installation failed/;
};
#------------------------------------------------------------------------------
subtest 'Remote install fails with no credentials' => sub {
    diag "You will see an error message here. Do not be alarmed.";
    my %creds = ();
    my $remote = Pinto::Remote->new( root => $t->server_url, %creds );
    my $sandbox    = File::Temp->newdir;
    my $p5_dir     = dir( $sandbox, qw(lib perl5) );
    my %cpanm_opts = ( cpanm_options => { q => undef, L => $sandbox->dirname } );
    my $result;
    capture_stderr {
        $result = $remote->run( Install => ( targets => ['PkgA'], %cpanm_opts ) );
    };
    is $result->was_successful, 0;
    like $result, qr/Installation failed/;
};
#------------------------------------------------------------------------------
done_testing;