[Po4a-commits] "po4a/t 23-man.t,1.6,1.7"

[Nicolas FRANCOIS]

Update of /cvsroot/po4a/po4a/t
In directory haydn:/tmp/cvs-serv26886/t

Modified Files:
	23-man.t 
Log Message:
Another fix for "when a font modifier if followed by another font modifier"
Add a test case for various strange font usages.


Index: 23-man.t
===================================================================
RCS file: /cvsroot/po4a/po4a/t/23-man.t,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- 23-man.t	26 Oct 2005 10:54:26 -0000	1.6
+++ 23-man.t	18 Mar 2006 22:24:38 -0000	1.7
@@ -100,7 +100,18 @@
   'doc'  => "translate this document",
 };
 
-use Test::More tests => 36; # $formats * $tests * 2 
+# Fonts
+push @tests, {
+  'run'  => "LC_ALL=C perl ../po4a-gettextize -f #format# -m data-23/fonts -p tmp/fonts.pot 2>/dev/null",
+  'test' => "diff -u $diff_po_flags  data-23/fonts.pot tmp/fonts.pot",
+  'doc'  => "gettextize well fonts",
+}, {
+  'run'  => "perl ../po4a-translate -f #format# -m data-23/fonts -p data-23/fonts.en.po -l tmp/fonts.en",
+  'test' => "diff -u $diff_pod_flags data-23/fonts.en tmp/fonts.en",
+  'doc'  => "translate this document",
+};
+
+use Test::More tests => 40; # $formats * $tests * 2 
 
 foreach my $format (@formats) {
     for (my $i=0; $i<scalar @tests; $i++) {