t/regexp_named_capture.t

#!/usr/bin/perl -T

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

use Test::More;
plan tests => 14;

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

%patterns = (
  q{ 1.0 TEST_CAPTURE_1 } => '',
  q{ 1.0 TEST_CAPTURE_2 } => '',
  q{ 1.0 TEST_CAPTURE_3 } => '',
  q{ 1.0 TEST_CAPTURE_4 } => '',
  q{ 1.0 TEST_CAPTURE_5 } => '',
  q{ 1.0 TEST_CAPTURE_6 } => '',
  q{ 1.0 TEST_CAPTURE_7 } => '',
  qr/tag TESTCAP1 is now ready, value: Ximian\n/ => '',
  qr/tag TESTCAP2 is now ready, value: Ximian\n/ => '',
  qr/tag TESTCAP3 is now ready, value: gnome\.org\n/ => '',
  qr/tag TESTCAP4 is now ready, value: milkplus\n/ => '',
  qr/tag TESTCAP5 is now ready, value: release\n/ => '',
);
%anti_patterns = (
  q{ warn: } => '',
  q{ 1.0 TEST_CAPTURE_8 } => '',
);

tstlocalrules (q{
   body TEST_CAPTURE_1 /release of (?<TESTCAP1>\w+)/
   rawbody TEST_CAPTURE_2 /release of (?<TESTCAP2>\w+)/
   uri TEST_CAPTURE_3 /ftp\.(?<TESTCAP3>[\w.]+)/
   header TEST_CAPTURE_4 Message-ID =~ /@(?<TESTCAP4>\w+)/
   full TEST_CAPTURE_5 /X-Spam-Status.* preview (?<TESTCAP5>\w+)/s

   # Use some captured tag
   body TEST_CAPTURE_6 m,www\.%{TESTCAP1}\.,i

   # We can also use common tags like HEADER()
   body TEST_CAPTURE_7 m{www\.%{HEADER(From:addr:domain)}/}

   # Should not hit
   body TEST_CAPTURE_8 m,www\.\%{TESTCAP1}\.,i
});

sarun ("-D check,config -L -t < data/nice/001 2>&1", \&patterns_run_cb);
ok_all_patterns();