#!perl
use Test::Most;
use JavaScript::Const::Exporter;
eval "use HTTP::Status";
plan skip_all => "HTTP::Status required for this test" if $@;
my $exporter = JavaScript::Const::Exporter->new(
    module    => 'HTTP::Status',
    constants => [':constants'],
);
ok my $js = $exporter->process, 'process';
my @lines = split /\n/, $js;
cmp_deeply \@lines, array_each( re('const HTTP(_[A-Z]+)+ = [12345][0-9][0-9];') ),
    'expected output';
done_testing;