Commit 9d8c9b3d authored by Morten Welinder's avatar Morten Welinder

tests: new tests for ods.

parent 6434a050
......@@ -43,6 +43,7 @@ Morten:
* Inhibit typing underline style in format dialog.
* Allow pattern matching for VLOOKUP/HLOOKUP. [#672319]
* Fix pattern matching for VLOOKUP/HLOOKUP/MATCH.
* Improve test suite for ods.
--------------------------------------------------------------------------
Gnumeric 1.11.2
......
2012-03-21 Morten Welinder <terra@gnome.org>
* GnumericTest.pm (test_exporter): Skip if file doesn't exist.
* t6000, t610[0-4]: new tests.
2012-03-14 Morten Welinder <terra@gnome.org>
* t6000-statfuns.pl, t6001-mathfuns.pl, t6002-objs.pl,
......
......@@ -313,6 +313,8 @@ sub test_importer {
sub test_exporter {
my ($file) = @_;
&report_skip ("file $file does not exist") unless -r $file;
my $tmp = fileparse ($file);
$tmp =~ s/\.([a-zA-Z0-9]+)$// or die "Must have extension for export test.";
my $ext = $1;
......
#!/usr/bin/perl -w
# -----------------------------------------------------------------------------
use strict;
use lib ($0 =~ m|^(.*/)| ? $1 : ".");
use GnumericTest;
&message ("Check the xls exporter.");
&test_exporter ("$samples/excel/finfuns.xls");
#!/usr/bin/perl -w
# -----------------------------------------------------------------------------
use strict;
use lib ($0 =~ m|^(.*/)| ? $1 : ".");
use GnumericTest;
&message ("Check the ods exporter.");
my $src = "$samples/excel/statfuns.xls";
&report_skip ("file $src does not exist") unless -r $src;
my $tmp = $src;
$tmp =~ s|^.*/||;
$tmp =~ s|\..*|.ods|;
&GnumericTest::junkfile ($tmp);
system ("$ssconvert $src $tmp");
&test_exporter ($tmp);
#!/usr/bin/perl -w
# -----------------------------------------------------------------------------
use strict;
use lib ($0 =~ m|^(.*/)| ? $1 : ".");
use GnumericTest;
&message ("Check the ods exporter.");
my $src = "$samples/excel/mathfuns.xls";
&report_skip ("file $src does not exist") unless -r $src;
my $tmp = $src;
$tmp =~ s|^.*/||;
$tmp =~ s|\..*|.ods|;
&GnumericTest::junkfile ($tmp);
system ("$ssconvert $src $tmp");
&test_exporter ($tmp);
#!/usr/bin/perl -w
# -----------------------------------------------------------------------------
use strict;
use lib ($0 =~ m|^(.*/)| ? $1 : ".");
use GnumericTest;
&message ("Check the ods exporter.");
my $src = "$samples/excel/objs.xls";
&report_skip ("file $src does not exist") unless -r $src;
my $tmp = $src;
$tmp =~ s|^.*/||;
$tmp =~ s|\..*|.ods|;
&GnumericTest::junkfile ($tmp);
system ("$ssconvert $src $tmp");
&test_exporter ($tmp);
#!/usr/bin/perl -w
# -----------------------------------------------------------------------------
use strict;
use lib ($0 =~ m|^(.*/)| ? $1 : ".");
use GnumericTest;
&message ("Check the ods exporter.");
my $src = "$samples/excel/lookfuns.xls";
&report_skip ("file $src does not exist") unless -r $src;
my $tmp = $src;
$tmp =~ s|^.*/||;
$tmp =~ s|\..*|.ods|;
&GnumericTest::junkfile ($tmp);
system ("$ssconvert $src $tmp");
&test_exporter ($tmp);
#!/usr/bin/perl -w
# -----------------------------------------------------------------------------
use strict;
use lib ($0 =~ m|^(.*/)| ? $1 : ".");
use GnumericTest;
&message ("Check the ods exporter.");
my $src = "$samples/excel/finfuns.xls";
&report_skip ("file $src does not exist") unless -r $src;
my $tmp = $src;
$tmp =~ s|^.*/||;
$tmp =~ s|\..*|.ods|;
&GnumericTest::junkfile ($tmp);
system ("$ssconvert $src $tmp");
&test_exporter ($tmp);
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment