"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "test/GnumericTest.pm" between
gnumeric-1.12.49.tar.xz and gnumeric-1.12.50.tar.xz

About: Gnumeric - The GNOME office spreadsheet.

GnumericTest.pm  (gnumeric-1.12.49.tar.xz):GnumericTest.pm  (gnumeric-1.12.50.tar.xz)
skipping to change at line 309 skipping to change at line 309
} }
} }
# ----------------------------------------------------------------------------- # -----------------------------------------------------------------------------
sub sstest { sub sstest {
my $test = shift @_; my $test = shift @_;
my $expected = shift @_; my $expected = shift @_;
my $cmd = &quotearg ($sstest, $test); my $cmd = &quotearg ($sstest, $test);
print STDERR "# $cmd\n" if $verbose;
my $actual = `$cmd 2>&1`; my $actual = `$cmd 2>&1`;
my $err = $?; my $err = $?;
die "Failed command: $cmd\n" if $err; die "Failed command: $cmd\n" if $err;
my $ok; my $ok;
if (ref $expected) { if (ref $expected) {
local $_ = $actual; local $_ = $actual;
$ok = &$expected ($_); $ok = &$expected ($_);
if (!$ok) { if (!$ok) {
foreach (split ("\n", $actual)) { foreach (split ("\n", $actual)) {
skipping to change at line 812 skipping to change at line 813
&report_skip ("file $file does not exist") unless -r $file; &report_skip ("file $file does not exist") unless -r $file;
my $xmlfile = fileparse ($file); my $xmlfile = fileparse ($file);
$xmlfile =~ s/\.[a-zA-Z0-9]+$/.xml/; $xmlfile =~ s/\.[a-zA-Z0-9]+$/.xml/;
unlink $xmlfile; unlink $xmlfile;
die "Cannot remove $xmlfile.\n" if -f $xmlfile; die "Cannot remove $xmlfile.\n" if -f $xmlfile;
&junkfile ($xmlfile); &junkfile ($xmlfile);
{ {
my $cmd = &quotearg ($ssindex, "--index", $file); my $cmd = &quotearg ($ssindex, "--index", $file);
print STDERR "# $cmd\n" if $verbose;
my $output = `$cmd 2>&1 >'$xmlfile'`; my $output = `$cmd 2>&1 >'$xmlfile'`;
my $err = $?; my $err = $?;
&dump_indented ($output); &dump_indented ($output);
die "Failed command: $cmd\n" if $err; die "Failed command: $cmd\n" if $err;
} }
my $parser = new XML::Parser ('Style' => 'Tree'); my $parser = new XML::Parser ('Style' => 'Tree');
my $tree = $parser->parsefile ($xmlfile); my $tree = $parser->parsefile ($xmlfile);
&removejunk ($xmlfile); &removejunk ($xmlfile);
 End of changes. 2 change blocks. 
0 lines changed or deleted 2 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)