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