test/t3002-introspection-io.pl

   1 #!/usr/bin/perl -w
   2 # -----------------------------------------------------------------------------
   3
   4 use strict;
   5 use lib ($0 =~ m|^(.*/)| ? $1 : ".");
   6 use GnumericTest;
   7
   8 &setup_python_environment ();
   9
  10 my $python_script = $0;
  11 $python_script =~ s/\.pl$/.py/;
  12
  13 for my $file ('format-tests.gnumeric') {
  14     my $src = "$samples/$file";
  15     my $dst = $file;
  16     $dst =~ s{\.([^./]+)$}{-copy.$1};
  17
  18     unlink $dst;
  19     &GnumericTest::junkfile ($dst);
  20
  21     &test_command ($PYTHON . ' ' .
  22                    &GnumericTest::quotearg ($python_script, $src, $dst),
  23                    sub { 1 });
  24
  25     &test_command (&GnumericTest::quotearg ($ssdiff, '--xml', $src, $dst),
  26                    sub { 1 });
  27
  28     &GnumericTest::removejunk ($dst);
  29 }