1#!perl -Tw
2
3use Test::More tests => 39;
4
5use Carp::Assert::More;
6
7my @funcs = ( @Carp::Assert::More::EXPORT, @Carp::Assert::More::EXPORT_OK );
8
9my %deduped;
10$deduped{$_}++ for @funcs;
11@funcs = sort keys %deduped;
12
13isnt( scalar @funcs, 0, 'There are no function names!' );
14
15for my $func ( @funcs ) {
16    my $filename = "t/$func.t";
17    ok( -e $filename, "$filename exists" );
18}
19