Applied patch [ 853850 ] Fixes for wxFormatConverter
(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
This commit is contained in:
26
tests/formatconverter/formats2.pl
Normal file
26
tests/formatconverter/formats2.pl
Normal file
@@ -0,0 +1,26 @@
|
||||
#!/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;
|
Reference in New Issue
Block a user