1 #!/usr/bin/perl

     2 #

     3 # Copyright (C) 2009 Gustavo Noronha Silva <gns@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 system "gtester -k @unitTests"