#!/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; # --------------------------------------------------------------------------- tstpre (" loadplugin Mail::SpamAssassin::Plugin::AWL "); my @locales = qw( de es fr it nl pl pl pt_BR ); %patterns = ( qr/^/, 'anything', ); for $locale (@locales) { $ENV{'LANGUAGE'} = $locale; sarun ("-L --lint", \&patterns_run_cb); ok_all_patterns(); }