The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.
use strict;
use warnings;

# This test was generated via Dist::Zilla::Plugin::Test::Compile 2.018

use Test::More 0.88;



use Capture::Tiny qw{ capture };

my @module_files = qw(
HTTP/Throwable.pm
HTTP/Throwable/Factory.pm
HTTP/Throwable/Role/BoringText.pm
HTTP/Throwable/Role/Generic.pm
HTTP/Throwable/Role/NoBody.pm
HTTP/Throwable/Role/Redirect.pm
HTTP/Throwable/Role/Status/BadGateway.pm
HTTP/Throwable/Role/Status/BadRequest.pm
HTTP/Throwable/Role/Status/Conflict.pm
HTTP/Throwable/Role/Status/ExpectationFailed.pm
HTTP/Throwable/Role/Status/Forbidden.pm
HTTP/Throwable/Role/Status/Found.pm
HTTP/Throwable/Role/Status/GatewayTimeout.pm
HTTP/Throwable/Role/Status/Gone.pm
HTTP/Throwable/Role/Status/HTTPVersionNotSupported.pm
HTTP/Throwable/Role/Status/ImATeapot.pm
HTTP/Throwable/Role/Status/InternalServerError.pm
HTTP/Throwable/Role/Status/LengthRequired.pm
HTTP/Throwable/Role/Status/MethodNotAllowed.pm
HTTP/Throwable/Role/Status/MovedPermanently.pm
HTTP/Throwable/Role/Status/MultipleChoices.pm
HTTP/Throwable/Role/Status/NotAcceptable.pm
HTTP/Throwable/Role/Status/NotFound.pm
HTTP/Throwable/Role/Status/NotImplemented.pm
HTTP/Throwable/Role/Status/NotModified.pm
HTTP/Throwable/Role/Status/PreconditionFailed.pm
HTTP/Throwable/Role/Status/ProxyAuthenticationRequired.pm
HTTP/Throwable/Role/Status/RequestEntityTooLarge.pm
HTTP/Throwable/Role/Status/RequestTimeout.pm
HTTP/Throwable/Role/Status/RequestURITooLong.pm
HTTP/Throwable/Role/Status/RequestedRangeNotSatisfiable.pm
HTTP/Throwable/Role/Status/SeeOther.pm
HTTP/Throwable/Role/Status/ServiceUnavailable.pm
HTTP/Throwable/Role/Status/TemporaryRedirect.pm
HTTP/Throwable/Role/Status/Unauthorized.pm
HTTP/Throwable/Role/Status/UnsupportedMediaType.pm
HTTP/Throwable/Role/Status/UseProxy.pm
HTTP/Throwable/Role/TextBody.pm
);

my @scripts = qw(

);

# no fake home requested

my @warnings;
for my $lib (@module_files)
{
    my ($stdout, $stderr, $exit) = capture {
        system($^X, '-Mblib', '-e', qq{require q[$lib]});
    };
    is($?, 0, "$lib loaded ok");
    warn $stderr if $stderr;
    push @warnings, $stderr if $stderr;
}



is(scalar(@warnings), 0, 'no warnings found') if $ENV{AUTHOR_TESTING};



done_testing;