git.sur5r.net Git - i3/i3status/blob - travis/run-tests.pl

   1 #!/usr/bin/env perl
   2
   3 use v5.10;
   4 use strict;
   5 use warnings;
   6 use English;
   7 use Term::ANSIColor qw(:constants);
   8 use File::Basename;
   9
  10 sub TestCase {
  11     my ($dir) = @_;
  12
  13     if ( -f "@_/setup.pl") {
  14         system($EXECUTABLE_NAME, "@_/setup.pl", ($dir));
  15     }
  16
  17     my $conf = "$dir/i3status.conf";
  18     my $testres = `./i3status --run-once -c $conf`;
  19     my $refres = "";
  20
  21     if ( -f "@_/expected_output.txt") {
  22         $refres = `cat "@_/expected_output.txt"`;
  23     } elsif ( -f "@_/expected_output.pl") {
  24         $refres = `$EXECUTABLE_NAME @_/expected_output.pl`;
  25     }
  26
  27     if ( -f "@_/cleanup.pl") {
  28         system($EXECUTABLE_NAME, "@_/cleanup.pl", ($dir));
  29     }
  30
  31     if ( "$testres" eq "$refres" ) {
  32         say "Testing test case '", basename($dir), "'… ", BOLD, GREEN, "OK", RESET;
  33         return 1;
  34     } else {
  35         say "Testing test case '", basename($dir), "'… ", BOLD, RED, "Failed!", RESET;
  36         return 0;
  37     }
  38 }
  39
  40 my $testcases = 'testcases';
  41 my $testresults = 1;
  42
  43 opendir(my $dir, $testcases) or die "Could not open directory $testcases: $!";
  44
  45 while (my $entry = readdir($dir)) {
  46     next unless (-d "$testcases/$entry");
  47     next if ($entry =~ m/^\./);
  48     $testresults = $testresults && TestCase("$testcases/$entry");
  49 }
  50 closedir($dir);
  51 exit 0;