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