Alien-Build
view release on metacpan or search on metacpan
t/alien_build_plugin_fetch_curlcommand.t view on Meta::CPAN
probe sub { 'share' };
share {
plugin 'Fetch::CurlCommand';
};
};
alien_install_type_is 'share';
subtest 'directory listing' => sub {
my $list = capture_note { $build->fetch };
is(
$list,
hash {
field type => 'html';
field base => "$base/html_test.html";
field content => "<html><head><title>Hello World</title></head><body><p>Hello World</p></body></html>\n";
field protocol => 'http';
end;
},
'list'
);
};
subtest 'file' => sub {
my $file = capture_note { $build->fetch("$base/foo-1.01.tar") };
is(
$file,
hash {
field type => 'file';
field filename => 'foo-1.01.tar';
field path => T();
field protocol => 'http';
end;
},
'file meta',
);
is(
scalar path($file->{path})->slurp,
"content:foo-1.01\n",
'file content',
);
};
subtest '404' => sub {
my($file, $error) = capture_note {
my $file = eval {
$build->fetch("$base/bogus.html");
};
($file, $@);
};
isnt $error, '', 'throws error';
note "error is: $error";
};
};
#subtest 'fetch from ftp' => sub {
#
# my $config = test_config 'ftpd';
#
# skip_all 'Test requires ftp config' unless $config;
#
# my $base = $config->{url};
#
# my $build = alienfile_ok qq{
# use alienfile;
#
# meta->prop->{start_url} = '$base/html_test.html';
#
# probe sub { 'share' };
#
# share {
# plugin 'Fetch::CurlCommand';
# };
# };
#
# alien_install_type_is 'share';
#
# subtest 'get directory listing with trailing slash' => sub {
#
# my $list = capture_note { $build->fetch("$base/") };
#
# is(
# $list,
# hash {
# field type => 'list';
# field list => array {
# foreach my $filename (qw( foo-1.00.tar foo-1.01.tar foo-1.02.tar html_test.html ))
# {
# item hash {
# field filename => $filename;
# field url => "$base/$filename";
# end;
# };
# };
# end;
# };
# },
# 'list',
# );
#
# };
#
# subtest 'get non-existant directory listing with trailing slash' => sub {
#
# my $error = capture_note {
# eval {
# $build->fetch("$base/bogus/")
# };
# $@;
# };
#
# isnt $error, '', 'throws error';
# note "error = $error";
#
# };
#
# subtest 'get file' => sub {
#
# my $file = capture_note { $build->fetch("$base/foo-1.01.tar") };
#
# is(
# $file,
# hash {
# field type => 'file';
# field filename => 'foo-1.01.tar';
# field path => T();
# end;
# },
# 'file meta',
# );
#
# is(
# scalar path($file->{path})->slurp,
# "content:foo-1.01\n",
# 'file content',
# );
#
# };
#
# subtest 'get missing file' => sub {
#
# my($error) = capture_note {
# eval {
# $build->fetch("$base/bogus.txt");
# };
# $@;
# };
#
# isnt $error, '', 'throws error';
# note "error is : $error";
#
# };
#
# subtest 'get directory listing sans trailing slash' => sub {
#
# my $list = capture_note { $build->fetch("$base") };
#
# is(
# $list,
# hash {
# field type => 'list';
# field list => array {
# foreach my $filename (qw( foo-1.00.tar foo-1.01.tar foo-1.02.tar html_test.html ))
# {
# item hash {
# field filename => $filename;
# field url => "$base/$filename";
# end;
# };
# };
# end;
# };
# },
# 'list',
# );
#
# };
#
#};
subtest 'live test' => sub {
skip_all 'set ALIEN_BUILD_LIVE_TEST=1 to enable test' unless $ENV{ALIEN_BUILD_LIVE_TEST};
my $curl = which('curl');
is $curl, T();
note "curl = $curl";
my $pok = Alien::Build::Plugin::Fetch::CurlCommand->protocol_ok('https');
is $pok, T();
require Alien::Build::Plugin::Download::Negotiate;
my $mock = mock 'Alien::Build::Plugin::Download::Negotiate' => (
override => [
pick => sub {
('Fetch::CurlCommand', 'Decode::Mojo');
},
],
);
alienfile_ok q{
use alienfile;
probe sub { 'share' };
share {
plugin Download => (
url => 'https://alienfile.org/dontpanic/',
version => qr/([0-9\.]+)\.tar\.gz$/,
);
( run in 0.514 second using v1.01-cache-2.11-cpan-cdf2f3d4e48 )