c_cpp/lib/uthash/libut/tests/do_tests

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 my @tests;
   7 for (glob "test*[0-9]") {
   8     push @tests, $_ if -e "$_.ans";
   9 }
  10
  11 my $num_failed=0;
  12
  13 for my $test (@tests) {
  14     `./$test > $test.out`;
  15     `diff $test.out $test.ans`;
  16     print "$test failed\n" if $?;
  17     $num_failed++ if $?;
  18 }
  19
  20 print scalar @tests . " tests conducted, $num_failed failed.\n";
  21 exit $num_failed;