#!@PERL@ -w

#  Selftest for intltool
#
#  Copyright (C) 2000 Free Software Foundation.
#
#  This library is free software; you can redistribute it and/or
#  modify it under the terms of the GNU General Public License as
#  published by the Free Software Foundation; either version 2 of the
#  License, or (at your option) any later version.
#
#  This script is distributed in the hope that it will be useful,
#  but WITHOUT ANY WARRANTY; without even the implied warranty of
#  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
#  General Public License for more details.
#
#  You should have received a copy of the GNU General Public License
#  along with this library; if not, write to the Free Software
#  Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
#
#  Author(s): Kenneth Christiansen

## Release information
my $PROGRAM  = "selftest";
my $VERSION  = "0.1";
my $result;
my $case;

## Loaded modules
use strict;

## Always print as the first thing
$| = 1;

my $failed = 0;

my $srcdir = $ENV{"srcdir"} || ".";

sub check_result($)
{
    my ($testcase) = @_;

    my $result =`cmp -s $srcdir/results/$testcase.h cases/$testcase.h`;
    
    if ($? == 0 && $result eq "") { 
        print "[OK]\n"; ## files were equal
    } else { 
        print "[FAILED] ($testcase)\n"; 
        $failed = 1;
    }
}

sub check_result_output($)
{
    my ($testcase) = @_;

    $testcase =~ s/\.in$//;
    my $result =`diff -u $srcdir/results/$testcase cases/$testcase`;

    if ($? == 0 && $result eq "") {
        print "[OK]\n"; ## diff was empty, ie. files were equal
    } else {
        print "[FAILED] ($testcase)\n";
        open OUT, ">>errors";
        print OUT $result;
        close OUT;
        $failed = 1;
    }
}


## SELFTESTS

## Welcome notice

print "Running self test of the intltool module\n\n";
unlink "errors";

system("cp $srcdir/cases/*.* cases") if $srcdir ne ".";

## 1. Extract/Simple desktop file

print "1. Checking output from simple desktop file:                     ";

$case = "extract1.desktop";
system("/usr/bin/perl ../intltool-extract --type=gettext/ini --quiet --update cases/$case") == 0 or $failed = 1;
check_result($case);

## 2. Extract/Simple desktop-like file

print "2. Checking output from simple desktop-like file:                ";

$case = "extract2.keyprop";
system("/usr/bin/perl ../intltool-extract --type=gettext/ini --quiet --update cases/$case") == 0 or $failed = 1;
check_result($case);

## 3. Extract/Simple desktop-like file

print "3. Checking output from simple xml-file:                         ";

$case = "merge1.xml";
system("/usr/bin/perl ../intltool-merge -o -p --quiet cases cases/$case.in cases/$case") == 0 or $failed = 1;
check_result_output($case);

print "4. Checking output from simple xml-file:                         ";

$case = "extract3.xml.in";
system("/usr/bin/perl ../intltool-extract --type=gettext/xml --quiet --update cases/$case") == 0 or $failed = 1;
check_result($case);

print "5. Checking output from simple pong style xml-file:              ";

$case = "merge4.xml";
system("/usr/bin/perl ../intltool-merge -x -p --quiet cases cases/$case.in cases/$case") == 0 or $failed = 1;
check_result_output($case);

print "6. Checking output from glade style xml-file:                    ";

$case = "extract6.glade";
system("/usr/bin/perl ../intltool-extract --type=gettext/glade --quiet --update cases/$case") == 0 or $failed = 1;
check_result($case);

print "7u. Checking output from dia sheet style xml-file:               ";

$case = "merge5u.sheet";
system("/usr/bin/perl ../intltool-merge -x -u --quiet cases cases/$case.in cases/$case") == 0 or $failed = 1;
check_result_output($case);

print "7p. Checking output from dia sheet style xml-file [broken XML]:  ";
$case = "merge5p.sheet";
system("/usr/bin/perl ../intltool-merge -x -p --quiet cases cases/$case.in cases/$case") == 0 or $failed = 1;
check_result_output($case);

print "8. Checking output from xml-file with escaped PO strings:        ";
$case = "merge6.xml";
system("/usr/bin/perl ../intltool-merge -x -u --quiet cases cases/$case.in cases/$case") == 0 or $failed = 1;
check_result_output($case);


exit $failed;