tests/formatconverter/formats2.pl

   1 #!/usr/bin/perl -w
   2 #
   3 # Creates longer test formats for wxFormatConverter, containing two '%'s. The
   4 # output is basically the cross product of the output of two './formats.pl's.
   5 #
   6 #   ./formats2.pl | ./formattest
   7 #
   8 use strict;
   9
  10 open IN, './formats.pl |';
  11
  12 while (<IN>) {
  13     chomp;
  14     my ($format, $expected) = split "\t";
  15     open IN2, './formats.pl |';
  16
  17     while (<IN2>) {
  18         chomp;
  19         my ($format2, $expected2) = split "\t";
  20         print "$format $format2\t$expected $expected2\n";
  21     }
  22
  23     close IN2;
  24 }
  25
  26 close IN;