#!/usr/bin/perl -T
use
Test::More;
plan
skip_all
=>
"Net tests disabled"
unless
conf_bool(
'run_net_tests'
);
plan
tests
=> 2;
# ---------------------------------------------------------------------------
%patterns
= (
qr/^/
,
'anything'
,
);
%anti_patterns
= (
q{ warn: }
,
'warning'
,
);
# override locale for this test!
$ENV
{
'LANGUAGE'
} =
$ENV
{
'LC_ALL'
} =
'C'
;
sarun (
"--lint --net"
, \
&patterns_run_cb
);
ok_all_patterns();