code_c/Maasha/src/testall.pl

   1 #!/usr/bin/env perl
   2
   3 use warnings;
   4 use strict;
   5
   6 my ( $test_dir, @tests, $test );
   7
   8 $test_dir = "test";
   9
  10 @tests = qw(
  11     test_common
  12     test_fasta
  13     test_filesys
  14     test_mem
  15     test_strings
  16 );
  17
  18 print STDERR "\nRunning all unit tests:\n\n";
  19
  20 foreach $test ( @tests )
  21 {
  22     system( "$test_dir/$test" ) == 0 or print STDERR "FAILED\n\n" and exit;
  23 }
  24
  25 print STDERR "All unit tests OK.\n\n"