#! /usr/bin/perl -w
use lib '../lib';
use strict;
use Test::More tests => 2;

# test if the xgettext '-f' parameter stripts newlines from the filenames
# http://bugs.debian.org/307777

use_ok('Locale::Maketext::Extract::Run');

my $inputfile = "$$.in";
my $listfile  = "$$.list";
my $outfile   = "$$.out";

open(F, ">$inputfile") or die("create $inputfile failed: $!");
print F "loc('test')";
close F;

open(F, ">$listfile") or die("create $inputfile failed: $!");
print F "$inputfile\n/dev/null";
close F;

Locale::Maketext::Extract::Run::xgettext('-f', $listfile, '-o', $outfile);

ok(-s $outfile, "non-empty output for Locale::Maketext::Extract::Run::xgettext");

unlink $_ for ($inputfile, $listfile, $outfile);