test/t8010-valgrind-ods.pl

   1 #!/usr/bin/perl -w
   2 # -----------------------------------------------------------------------------
   3
   4 use strict;
   5 use lib ($0 =~ m|^(.*/)| ? $1 : ".");
   6 use GnumericTest;
   7
   8 $GnumericTest::default_corpus = 'random:5';
   9
  10 &message ("Check the ods importer/exporter with valgrind.");
  11
  12 my $xmllint = &GnumericTest::find_program ("xmllint");
  13 my $unzip = &GnumericTest::find_program ("unzip");
  14
  15 my $format = "Gnumeric_OpenCalc:odf";
  16
  17 my @sources = &GnumericTest::corpus ();
  18 my $nskipped = 0;
  19 my $ngood = 0;
  20 my $nbad = 0;
  21
  22 foreach my $src (@sources) {
  23     if (!-r $src) {
  24         $nskipped++;
  25         next;
  26     }
  27
  28     my $basename = &File::Basename::fileparse ($src);
  29     my $basenoext = $basename;
  30     $basenoext =~ s/\.[^.]+$//;
  31
  32     my $tmp1 = "$basenoext-tmp.ods";
  33     print STDERR "$basename -> $tmp1\n";
  34     &GnumericTest::junkfile ($tmp1);
  35     my $cmd = &GnumericTest::quotearg ($ssconvert, "-T", $format, $src, $tmp1);
  36     my $err = &test_valgrind ($cmd, 1, 1);
  37
  38     if (!$err && $basename !~ /\.ods$/) {
  39         my $tmp2 = "$basenoext-tmp.gnumeric";
  40         print STDERR "$tmp1 -> $tmp2\n";
  41         &GnumericTest::junkfile ($tmp2);
  42
  43         my $cmd = &GnumericTest::quotearg ($ssconvert, $tmp1, $tmp2);
  44         $err = &test_valgrind ($cmd, 1, 1);
  45         &GnumericTest::removejunk ($tmp2);
  46     }
  47
  48     $err ? $nbad++ : $ngood++;
  49     &GnumericTest::removejunk ($tmp1);
  50 }
  51
  52 &GnumericTest::report_skip ("No source files present") if $nbad + $ngood == 0;
  53
  54 if ($nskipped > 0) {
  55     print STDERR "$nskipped files skipped.\n";
  56 }
  57
  58 if ($nbad > 0) {
  59     die "Fail\n";
  60 } else {
  61     print STDERR "Pass\n";
  62 }
  63
  64 # -----------------------------------------------------------------------------