upstream/t/plugin_priorities.t

   1 #!/usr/bin/perl -T
   2
   3 use lib '.'; use lib 't';
   4 use SATest; sa_t_init("plugin_priorities");
   5 use Test::More tests => 2;
   6
   7 # ---------------------------------------------------------------------------
   8
   9 %patterns = (
  10   q{ META2_FOUND } => '',
  11 );
  12
  13 %anti_patterns = ();
  14
  15 tstlocalrules ("
  16   loadplugin myTestPlugin ../../../data/testplugin.pm
  17   loadplugin myTestPlugin2 ../../../data/testplugin2.pm
  18   header META2_FOUND Plugin-Meta-Test2 =~ /bar2/
  19 ");
  20
  21 ok (sarun ("-L -t < data/spam/gtube.eml", \&patterns_run_cb));
  22 ok_all_patterns();
  23