cfee166d4e
(M.J.Wetherell) Added wxConvertFormat function in debug mode to allow for unit testing Added tests/formatconverter git-svn-id: https://svn.wxwidgets.org/svn/wx/wxWidgets/trunk@25116 c3d73ce0-8a6f-49c7-b76d-6d57e0e08775
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;
|