t/16_usertags.t

   1 # -*- mode: cperl;-*-
   2
   3 use Test::More;
   4
   5 use warnings;
   6 use strict;
   7
   8 plan tests => 4;
   9
  10 use_ok('Debbugs::CGI::Pkgreport');
  11
  12 my @usertags = ('severity=serious,severity=grave,severity=critical',
  13                 'tag=second',
  14                 'tag=third',
  15                 '',
  16                );
  17
  18 my @bugs =
  19     ({severity => 'normal',
  20       tag => 'wrongtag',
  21       order => 3,
  22      },
  23     {severity => 'critical',
  24      tag => 'second',
  25      order => 0,
  26     },
  27     {severity => 'normal',
  28      tag => 'third',
  29      order => 2,
  30     },
  31     );
  32
  33 for my $bug (@bugs) {
  34     ok(Debbugs::CGI::Pkgreport::get_bug_order_index(\@usertags,$bug) == $bug->{order},
  35        "order is actually $bug->{order}",
  36       );
  37 }
  38
  39