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

tests/formatconverter/formats.pl

@@ -0,0 +1,47 @@
+#!/usr/bin/perl -w
+#
+# Prints test formats for wxFormatConverter. The output is in two columns (tab
+# separated), the first is the test input and the second is the expected
+# output.
+#
+# run the output thought formattest like this:
+#   ./formats.pl | ./formattest
+#
+use strict;
+
+my %transform = (
+    s  => [ 'l', 's' ],
+    S  => [ '',  's' ],
+    hS => [ '',  's' ],
+    lS => [ 'l', 's' ],
+    c  => [ 'l', 'c' ],
+    C  => [ '',  'c' ],
+    hC => [ '',  'c' ],
+    lC => [ 'l', 'c' ]
+);
+
+print "%%\t%%\n";
+
+for my $type ('d', 's', 'S', 'c', 'C')
+{
+    for my $mod ('', 'h', 'l', 'hh', 'll', 'j') #, 'z', 't', 'L')
+    {
+        for my $prec ('', '.*', '.10')
+        {
+            for my $width ('', '*', '10')
+            {
+                for my $flag ('', '#') #, '0', '-', ' ', '+' )
+                {
+                    my ($newmod, $newtype) = ($mod, $type);
+
+                    if ($transform{$mod.$type}) {
+                        ($newmod, $newtype) = @{$transform{$mod.$type}};
+                    }
+
+                    print "%$flag$width$prec$mod$type\t".
+                          "%$flag$width$prec$newmod$newtype\n";
+                }
+            }
+        }
+    }
+}