11 open(my $fh, "<", "$FindBin::Bin/../../sql/Pg/950.data.seed-values.sql")
12 or die "Can't open 950.data.seed-values.sql: $!";
17 my $findi18n = qr/oils_i18n_gettext\((.*?)\'\s*\)/;
18 my $intkey = qr/\s*(\d+)\s*,\s*E?\'(.+?)\',\s*\'(.+?)\',\s*\'(.+?)$/;
19 my $textkey = qr/\s*\'(.*?)\'\s*,\s*E?\'(.+?)\',\s*\'(.+?)\',\s*\'(.+?)$/;
22 my @caps = $data =~ m/$findi18n/gms;
23 foreach my $cap (@caps) {
25 my @matches = $cap =~ m/$intkey/gms;
26 if (length($matches[0])) {
27 $unique = join('', $matches[0], $matches[2], $matches[3]);
29 @matches = $cap =~ m/$textkey/gms;
30 $unique = join('', $matches[0], $matches[2], $matches[3]);
32 isnt(exists($found{$unique}), 1, "oils_18n_gettext duplicate key: $cap'");
33 $found{"$unique"} = 1;
38 done_testing($num_tests);