Shutdown: help the style leak printer out a bit.
[gnumeric.git] / test / t3002-introspection-io.pl
blobb1cce2ae7c42f063aeb8bceeeb44840cb02ec1c7
1 #!/usr/bin/perl -w
2 # -----------------------------------------------------------------------------
4 use strict;
5 use lib ($0 =~ m|^(.*/)| ? $1 : ".");
6 use GnumericTest;
8 &setup_python_environment ();
10 my $python_script = $0;
11 $python_script =~ s/\.pl$/.py/;
13 for my $file ('format-tests.gnumeric') {
14 my $src = "$samples/$file";
15 my $dst = $file;
16 $dst =~ s{\.([^./]+)$}{-copy.$1};
18 unlink $dst;
19 &GnumericTest::junkfile ($dst);
21 &test_command ($PYTHON . ' ' .
22 &GnumericTest::quotearg ($python_script, $src, $dst),
23 sub { 1 });
25 &test_command (&GnumericTest::quotearg ($ssdiff, '--xml', $src, $dst),
26 sub { 1 });
28 &GnumericTest::removejunk ($dst);