test/t9002-ssdiff-self.pl

   1 #!/usr/bin/perl -w
   2 # -----------------------------------------------------------------------------
   3
   4 use strict;
   5 use lib ($0 =~ m|^(.*/)| ? $1 : ".");
   6 use GnumericTest;
   7
   8 &message ("Check ssdiff on identical files");
   9
  10 my @sources = &GnumericTest::corpus();
  11
  12 my $ngood = 0;
  13 my $nbad = 0;
  14 my $nskipped = 0;
  15
  16 for my $src (@sources) {
  17     if (!-r $src) {
  18         $nskipped += 2;
  19         next;
  20     }
  21
  22     print STDERR "$src...\n";
  23
  24     my $cmd = "$ssdiff --xml $src $src";
  25     my $output = `$cmd 2>&1`;
  26     my $err = $?;
  27     if ($err) {
  28         &GnumericTest::dump_indented ($output);
  29         $nbad++;
  30         die "Failed command: $cmd [$err]\n" if $err > (1 << 8);
  31     } else {
  32         if ($output =~ m'<\?xml version="1\.0" encoding="UTF-8"\?>
  33 <s:Diff xmlns:s=".*">
  34 (  <s:Sheet Name=".*" Old="\d+" New="\d+"/>
  35 )*</s:Diff>') {
  36             $ngood++;
  37         } else {
  38             &GnumericTest::dump_indented ($output);
  39             $nbad++;
  40         }
  41     }
  42 }
  43
  44 &GnumericTest::report_skip ("No source files present") if $nbad + $ngood == 0;
  45
  46 if ($nskipped > 0) {
  47     print STDERR "$nskipped files skipped.\n";
  48 }
  49
  50 if ($nbad > 0) {
  51     die "Fail\n";
  52 } else {
  53     print STDERR "Pass\n";
  54 }