| #!/usr/bin/perl -T |
| |
| use lib '.'; use lib 't'; |
| use SATest; sa_t_init("html_obfu"); |
| use Test::More tests => 9; |
| |
| # --------------------------------------------------------------------------- |
| |
| %patterns = ( |
| q{ MILLION_EMAIL } => 'MILLION_EMAIL', |
| q{ GUARANTEE } => 'GUARANTEE', |
| q{ NATURAL } => 'NATURAL', |
| q{ OUR_AFFILIATE_PARTNERS } => 'OUR_AFFILIATE_PARTNERS', |
| q{ VIAGRA } => 'VIAGRA', |
| ); |
| |
| %anti_patterns = ( |
| q{ OPPORTUNITY } => 'OPPORTUNITY', |
| q{ BUG5749_P_H2 } => 'BUG5749_P_H2', |
| q{ BUG5749_H2_H3 } => 'BUG5749_H2_H3', |
| q{ BUG6168_EXAMPLE } => 'BUG6168_EXAMPLE', |
| ); |
| |
| tstlocalrules (' |
| body NATURAL /\b(?:100.|completely|totally|all) natural/i |
| body GUARANTEE /\bGUARANTEE\b/ |
| body MILLION_EMAIL /million (?:\w+ )?(?:e-?mail )?addresses/i |
| body OUR_AFFILIATE_PARTNERS /our affiliate partners/i |
| body VIAGRA /viagra/i |
| body OPPORTUNITY /OPPORTUNITY/ |
| |
| body BUG5749_P_H2 /foobar/ |
| body BUG5749_H2_H3 /foobaz/ |
| body BUG6168_EXAMPLE /example.orgexample.net/ |
| |
| '); |
| |
| sarun ("-L -t < data/spam/011", \&patterns_run_cb); |
| ok_all_patterns(); |