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_list
  15     test_mem
  16     test_strings
  17 );
  18
  19 print STDERR "\nRunning all unit tests:\n\n";
  20
  21 foreach $test ( @tests )
  22 {
  23     system( "$test_dir/$test" ) == 0 or print STDERR "FAILED\n\n" and exit;
  24 }
  25
  26 print STDERR "All unit tests OK.\n\n"