1#!/usr/bin/perl -w 2# ----------------------------------------------------------------------------- 3 4use strict; 5use lib ($0 =~ m|^(.*/)| ? $1 : "."); 6use GnumericTest; 7 8&message ("Check style optimizer."); 9$ENV{'GNM_DEBUG'} = 'style-optimize:style-optimize-verify'; 10 11my $src = "$samples/excel/statfuns.xls"; 12&GnumericTest::report_skip ("file $src does not exist") unless -r $src; 13 14my $tmp = "statfuns.gnumeric"; 15&GnumericTest::junkfile ($tmp); 16 17&test_command ("$ssconvert $src $tmp", sub { 1 } ); 18