2 #sub Locale::Maketext::DEBUG () {10}
6 BEGIN { plan tests => 19 };
8 print "#\n# Testing non-tight insertion of super-ordinate language tags...\n#\n";
10 my @in = grep m/\S/, split /[\n\r]/, q{
17 pt-br fr => pt-br fr pt
18 pt-br fr pt => pt-br fr pt pt
19 pt-br fr pt de => pt-br fr pt de pt
20 de pt-br fr pt => de pt-br fr pt pt
21 de pt-br fr => de pt-br fr pt
22 hai pt-br fr => hai pt-br fr pt
24 # Now test multi-part complicateds:
25 pt-br-janeiro fr => pt-br-janeiro fr pt-br pt
26 pt-br-janeiro de fr => pt-br-janeiro de fr pt-br pt
27 pt-br-janeiro de pt fr => pt-br-janeiro de pt fr pt-br pt
29 ja pt-br-janeiro fr => ja pt-br-janeiro fr pt-br pt
30 ja pt-br-janeiro de fr => ja pt-br-janeiro de fr pt-br pt
31 ja pt-br-janeiro de pt fr => ja pt-br-janeiro de pt fr pt-br pt
33 pt-br-janeiro de pt-br fr => pt-br-janeiro de pt-br fr pt-br pt pt
34 # an odd case, since we don't filter for uniqueness in this sub
38 $Locale::Maketext::MATCH_SUPERS_TIGHTLY = 0;
40 foreach my $in (@in) {
44 next unless $in =~ m/\S/;
48 die "What kind of line is <$in>?!"
49 unless $in =~ m/^(.+)=>(.+)$/s;
52 @in = ($i =~ m/(\S+)/g);
53 @should = ($s =~ m/(\S+)/g);
54 #print "{@in}{@should}\n";
56 my @out = Locale::Maketext->_add_supers(
57 ("@in" eq 'NIX') ? () : @in
59 #print "O: ", join(' ', map "<$_>", @out), "\n";
60 @out = 'NIX' unless @out;
64 and lc( join "\e", @out ) eq lc( join "\e", @should )
66 print "# Happily got [@out] from [$in]\n";
70 print "#!!Got: [@out]\n",
71 "#!! but wanted: [@should]\n",
72 "#!! from \"$in\"\n#\n";
76 print "#\n#\n# Bye-bye!\n";