Home | History | Annotate | Download | only in Scripts 
      1 #!/usr/bin/perl
      2 #
      3 # Copyright (C) 2009 Gustavo Noronha Silva <gns (at] gnome.org>
      4 #
      5 # This library is free software; you can redistribute it and/or
      6 # modify it under the terms of the GNU Library General Public
      7 # License as published by the Free Software Foundation; either
      8 # version 2 of the License, or (at your option) any later version.
      9 #
     10 # This library is distributed in the hope that it will be useful,
     11 # but WITHOUT ANY WARRANTY; without even the implied warranty of
     12 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
     13 # Library General Public License for more details.
     14 #
     15 # You should have received a copy of the GNU Library General Public License
     16 # along with this library; see the file COPYING.LIB.  If not, write to
     17 # the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
     18 # Boston, MA 02110-1301, USA.
     19 
     20 use strict;
     21 use warnings;
     22 
     23 use FindBin;
     24 use lib $FindBin::Bin;
     25 use webkitdirs;
     26 
     27 # This initializes the correct configuration (Release/Debug)
     28 setConfiguration();
     29 
     30 my $productDir = productDir();
     31 my @unitTests = glob  $productDir . "/Programs/unittests/*";
     32 if ($#unitTests < 1) {
     33     die "ERROR: tests not found in $productDir.\n";
     34 }
     35 
     36 my $exitStatus = 0;
     37 foreach my $unitTest (@unitTests)
     38 {
     39     system "gtester $unitTest";
     40     if ($?) {
     41         $exitStatus = $?;
     42     }
     43 }
     44 
     45 if ($exitStatus) {
     46     print "Tests failed\n";
     47     exit $exitStatus;
     48 }
     49