2 # Time-stamp: "2004-03-30 18:02:24 AST"
3 #sub Locale::Maketext::DEBUG () {10}
7 BEGIN { plan tests => 19 };
9 print "#\n# Testing non-tight insertion of super-ordinate language tags...\n#\n";
11 my @in = grep m/\S/, split /[\n\r]/, q{
18 pt-br fr => pt-br fr pt
19 pt-br fr pt => pt-br fr pt
20 pt-br fr pt de => pt-br fr pt de
21 de pt-br fr pt => de pt-br fr pt
22 de pt-br fr => de pt-br fr pt
23 hai pt-br fr => hai pt-br fr pt
25 # Now test multi-part complicateds:
26 pt-br-janeiro fr => pt-br-janeiro fr pt-br pt
27 pt-br-janeiro de fr => pt-br-janeiro de fr pt-br pt
28 pt-br-janeiro de pt fr => pt-br-janeiro de pt fr pt-br
30 ja pt-br-janeiro fr => ja pt-br-janeiro fr pt-br pt
31 ja pt-br-janeiro de fr => ja pt-br-janeiro de fr pt-br pt
32 ja pt-br-janeiro de pt fr => ja pt-br-janeiro de pt fr pt-br
34 pt-br-janeiro de pt-br fr => pt-br-janeiro de pt-br fr pt
35 # an odd case, since we don't filter for uniqueness in this sub
39 $Locale::Maketext::MATCH_SUPERS_TIGHTLY = 0;
41 foreach my $in (@in) {
45 next unless $in =~ m/\S/;
49 die "What kind of line is <$in>?!"
50 unless $in =~ m/^(.+)=>(.+)$/s;
53 @in = ($i =~ m/(\S+)/g);
54 @should = ($s =~ m/(\S+)/g);
55 #print "{@in}{@should}\n";
57 my @out = Locale::Maketext->_add_supers(
58 ("@in" eq 'NIX') ? () : @in
60 #print "O: ", join(' ', map "<$_>", @out), "\n";
61 @out = 'NIX' unless @out;
65 and lc( join "\e", @out ) eq lc( join "\e", @should )
67 print "# Happily got [@out] from [$in]\n";
71 print "#!!Got: [@out]\n",
72 "#!! but wanted: [@should]\n",
73 "#!! from \"$in\"\n#\n";
77 print "#\n#\n# Bye-bye!\n";