test/t6151-gnumeric-syntax.pl

   1 #!/usr/bin/perl -w
   2 # -----------------------------------------------------------------------------
   3
   4 use strict;
   5 use lib ($0 =~ m|^(.*/)| ? $1 : ".");
   6 use GnumericTest;
   7
   8 &message ("Check that the gnumeric exporter produces valid files.");
   9
  10 my $schema = "$topsrc/gnumeric.xsd";
  11 &GnumericTest::report_skip ("Cannot find schema") unless -r $schema;
  12
  13 my $xmllint = &GnumericTest::find_program ("xmllint");
  14
  15 my @sources = &GnumericTest::corpus();
  16
  17 my $nskipped = 0;
  18 my $ngood = 0;
  19 my $nbad = 0;
  20
  21 foreach my $src (@sources) {
  22     if (!-r $src) {
  23         $nskipped++;
  24         next;
  25     }
  26
  27     print STDERR "Checking $src\n";
  28
  29     my $tmp = $src;
  30     $tmp =~ s|^.*/||;
  31     $tmp =~ s|\..*|.xml|;
  32     &GnumericTest::junkfile ($tmp);
  33     system ("$ssconvert $src $tmp");
  34     if (!-r $tmp) {
  35         print STDERR "ssconvert failed to produce $tmp\n";
  36         die "Fail\n";
  37     }
  38
  39     my $out = `$xmllint --noout --schema $schema $tmp 2>&1`;
  40     if ($out !~ /validates$/) {
  41         print STDERR "While checking $tmp:\n";
  42         &GnumericTest::dump_indented ($out);
  43         $nbad++;
  44     } else {
  45         $ngood++;
  46     }
  47
  48     &GnumericTest::removejunk ($tmp);
  49 }
  50
  51 &GnumericTest::report_skip ("No source files present") if $nbad + $ngood == 0;
  52
  53 if ($nskipped > 0) {
  54     print STDERR "$nskipped files skipped.\n";
  55 }
  56
  57 if ($nbad > 0) {
  58     die "Fail\n";
  59 } else {
  60     print STDERR "Pass\n";
  61 }