1#!/usr/bin/perl -w
2# -----------------------------------------------------------------------------
3
4use strict;
5use lib ($0 =~ m|^(.*/)| ? $1 : ".");
6use GnumericTest;
7
8&message ("Check the ods exporter.");
9
10my $src = "$samples/excel/lookfuns.xls";
11&GnumericTest::report_skip ("file $src does not exist") unless -r $src;
12
13my $tmp = $src;
14$tmp =~ s|^.*/||;
15$tmp =~ s|\..*|.ods|;
16&GnumericTest::junkfile ($tmp);
17system ("$ssconvert $src $tmp");
18
19&test_exporter ($tmp);
20