use 5.008004; use Test2::V0 -no_srand => 1; use Test::Alien::Build; use Alien::Build::Plugin::Decode::HTML; use Path::Tiny; use Alien::Build::Util qw( _dump ); subtest 'updates requires' => sub { my $plugin = Alien::Build::Plugin::Decode::HTML->new; my $build = alienfile filename => 'corpus/blank/alienfile'; my $meta = $build->meta; $plugin->init($meta); is( $build->requires('share')->{'HTML::LinkExtor'}, 0 ); is( $build->requires('share')->{'URI'}, 0 ); note _dump $meta; }; subtest 'decode' => sub { my $plugin = Alien::Build::Plugin::Decode::HTML->new; my $build = alienfile filename => 'corpus/blank/alienfile'; my $meta = $build->meta; $plugin->init($meta); eval { $build->load_requires('share') }; skip_all 'test requires HTML::LinkExtor' if $@; foreach my $file (path('corpus/dir')->children(qr/\.html$/)) { subtest "parse $file" => sub { my $res1 = { type => 'html', base => "http://example.test/foo/bar/index.html", content => $file->slurp, }; my $res2 = $build->decode($res1); is( $res2, hash { field type => 'list'; field list => array { foreach my $filename (qw( foo-1.00 foo-1.00.tar foo-1.00.tar.Z foo-1.00.tar.bz2 foo-1.00.tar.gz foo-1.00.tar.xz foo-1.00.tgz foo-1.00.zip)) { item hash { field filename => $filename; field url => match qr{\Q$filename\E}; }; } }; }, ); note "filename = $_" for map { $_->{filename} } @{ $res2->{list} }; note "url = $_" for map { $_->{url} } @{ $res2->{list} }; }; } }; done_testing;