#!/usr/bin/perl use lib '.'; use lib 't'; use SATest; sa_t_init("ifversion"); use Test; BEGIN { plan tests => 4 }; # --------------------------------------------------------------------------- %patterns = ( q{ GTUBE }, 'gtube', q{ SHOULD_BE_CALLED }, 'should_be_called' ); %anti_patterns = ( q{ SHOULD_NOT_BE_CALLED }, 'should_not_be_called' ); tstlocalrules (" if (version > 9.99999) body SHOULD_NOT_BE_CALLED /./ endif if (version <= 9.99999) body SHOULD_BE_CALLED /./ endif "); ok (sarun ("-L -t < data/spam/gtube.eml", \&patterns_run_cb)); ok_all_patterns();