use strict;
use warnings;
use Test::More tests => 3;
use Test::Warn;

use Module::CPANTS::Analyse;
use File::Spec::Functions;
use Cwd qw(cwd);

my $a=Module::CPANTS::Analyse->new({
    dist=>'t/eg/not_extractable.gz',
    _dont_cleanup=>$ENV{DONT_CLEANUP},
});

my $dir = cwd;
my $rv;
warnings_like {$rv=$a->unpack} [
            qr/^No handler available for/,
            ]
            , 'unpack warns';

like($rv,qr/Can.t call method .extract./,'unpack failed');
is($a->d->{extractable},0,'extractable');

END {
    chdir $dir; # work around RT #67509
}