#!/usr/bin/perl

$cut  = "/usr/bin/cut";
$grep = "/usr/bin/grep";
$sort = "/usr/bin/sort";
$diff = "/usr/bin/diff";

system "$grep '^sub ' lib/Apache/Logmonster.pm | $cut -f2 -d' ' | $sort > t/tmp_subs";
system "$grep '^## '  t/Logmonster.t | $cut -f2 -d' ' | $sort -u > t/tmp_tests";

#print "          the following subs are missing tests\n";
system "$diff --suppress-common-lines t/tmp_subs t/tmp_tests";