t/lang_lint.t

#!/usr/bin/perl -T

use lib '.'; use lib 't';
use SATest; sa_t_init("lang_lint");

use Test::More;
plan skip_all => "Long running tests disabled" unless conf_bool('run_long_tests');
plan tests => 8;

# ---------------------------------------------------------------------------

my  @locales = qw( de es fr it nl pl pl pt_BR );
%patterns = ( q{  }, 'anything', );

for $locale (@locales) {
  $ENV{'LANGUAGE'} = $locale;

  sarun ("-L --lint", \&patterns_run_cb);
  ok_all_patterns();
}