t6104-finfuns-ods.pl 466 Bytes
Newer Older
1 2 3 4 5 6 7 8 9 10
#!/usr/bin/perl -w
# -----------------------------------------------------------------------------

use strict;
use lib ($0 =~ m|^(.*/)| ? $1 : ".");
use GnumericTest;

&message ("Check the ods exporter.");

my $src = "$samples/excel/finfuns.xls";
11
&GnumericTest::report_skip ("file $src does not exist") unless -r $src;
12 13 14 15 16 17 18 19

my $tmp = $src;
$tmp =~ s|^.*/||;
$tmp =~ s|\..*|.ods|;
&GnumericTest::junkfile ($tmp);
system ("$ssconvert $src $tmp");

&test_exporter ($tmp);