package main;

use 5.006;

use strict;
use warnings;

use ExtUtils::Manifest qw{ maniread };
use PPIx::Regexp::Constant qw{ @CARP_NOT };
use Test::More 0.88;	# Because of done_testing();

my @modules;
foreach my $fn ( sort keys %{ maniread() } ) {
    local $_ = $fn;
    s< \A lib/ ><>smx
	or next;
    s< [.] pm \z ><>smx
	or next;
    s< / ><::>smxg;
    push @modules, $_;

    local $/ = undef;
    open my $fh, '<:encoding(utf-8)', $fn
	or do {
	fail "Unable to open $fn: $!";
	next;
    };
    my $content = <$fh>;
    close $fh;

    ok $content =~ m/ \@CARP_NOT \b /smx,
	"$_ assigns \@CARP_NOT";
}
is_deeply \@CARP_NOT, \@modules,
    'Ensure that @PPIx::Regexp::Constant::CARP_NOT is correct';

done_testing;

1;

# ex: set textwidth=72 :
