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