27 lines
532 B
Perl
27 lines
532 B
Perl
|
#!/usr/bin/perl -w
|
||
|
|
#
|
||
|
|
# Creates longer test formats for wxFormatConverter, containing two '%'s. The
|
||
|
|
# output is basically the cross product of the output of two './formats.pl's.
|
||
|
|
#
|
||
|
|
# ./formats2.pl | ./formattest
|
||
|
|
#
|
||
|
|
use strict;
|
||
|
|
|
||
|
|
open IN, './formats.pl |';
|
||
|
|
|
||
|
|
while (<IN>) {
|
||
|
|
chomp;
|
||
|
|
my ($format, $expected) = split "\t";
|
||
|
|
open IN2, './formats.pl |';
|
||
|
|
|
||
|
|
while (<IN2>) {
|
||
|
|
chomp;
|
||
|
|
my ($format2, $expected2) = split "\t";
|
||
|
|
print "$format $format2\t$expected $expected2\n";
|
||
|
|
}
|
||
|
|
|
||
|
|
close IN2;
|
||
|
|
}
|
||
|
|
|
||
|
|
close IN;
|