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_barray
  12     test_common
  13     test_fasta
  14     test_filesys
  15     test_list
  16     test_mem
  17     test_seq
  18     test_strings
  19     test_ucsc
  20 );
  21
  22 print STDERR "\nRunning all unit tests:\n\n";
  23
  24 foreach $test ( @tests )
  25 {
  26     system( "$test_dir/$test" ) == 0 or print STDERR "FAILED\n\n" and exit;
  27 }
  28
  29 print STDERR "All unit tests OK.\n\n"