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