t/01adddeps.t

   1 #!/usr/bin/perl
   2 use strict;
   3 use warnings;
   4 use Test::Simple tests => 5;
   5 use Data::Compare;
   6
   7 use Fedora::Rebuild::RPM;
   8
   9 sub test {
  10     my ($name, $stash, $needles, $result) = @_;
  11     Fedora::Rebuild::RPM::adddeps($stash, $needles);
  12     ok(Compare($stash, $result), $name);
  13 }
  14
  15 test(
  16     'Disjunct',
  17     {
  18         n1 => [ ['f1', 'v1'] ]
  19     },
  20     {
  21         n2 => [ ['f2', 'v2'] ]
  22     },
  23     {
  24         n1 => [ ['f1', 'v1'] ],
  25         n2 => [ ['f2', 'v2'] ]
  26     },
  27 );
  28
  29 test(
  30     'Identic',
  31     {
  32         n1 => [ ['f1', 'v1'] ]
  33     },
  34     {
  35         n1 => [ ['f1', 'v1'] ]
  36     },
  37     {
  38         n1 => [ ['f1', 'v1'] ]
  39     }
  40 );
  41
  42 test(
  43     'Identic name, different flags',
  44     {
  45         n1 => [ ['f1', 'v1'] ]
  46     },
  47     {
  48         n1 => [ ['f2', 'v1'] ]
  49     },
  50     {
  51         n1 => [ ['f1', 'v1'], ['f2', 'v1'] ]
  52     }
  53 );
  54
  55 test(
  56     'Identic name, different versions',
  57     {
  58         n1 => [ ['f1', 'v1'] ]
  59     },
  60     {
  61         n1 => [ ['f1', 'v2'] ]
  62     },
  63     {
  64         n1 => [ ['f1', 'v1'], ['f1', 'v2'] ]
  65     }
  66 );
  67
  68 test(
  69     'Identic name, some versions differ',
  70     {
  71         n1 => [ ['f1', 'v1'], ['f1', 'v2'], ['f1', 'v3'] ]
  72     },
  73     {
  74         n1 => [ ['f1', 'v1'], ['f1', 'v4'], ['f1', 'v3'] ]
  75     },
  76     {
  77         n1 => [ ['f1', 'v1'], ['f1', 'v2'], ['f1', 'v3'], ['f1', 'v4'] ]
  78     }
  79 );