t/02is_satisfied.t

   1 #!/usr/bin/perl
   2 use strict;
   3 use warnings;
   4
   5 use Test::Simple tests => 4 + 3*5*5 + 3;
   6
   7 use Fedora::Rebuild::RPM;
   8
   9 # The ok() labels have format "REQUIRES ? COMMA_SEPARATED_PROVIDES".
  10
  11 # Non-flag-qualified cases
  12 ok(
  13     Fedora::Rebuild::RPM::is_satisfied(
  14         'a', Fedora::Rebuild::RPM::ANY, '',
  15         {
  16             'a' => [ [Fedora::Rebuild::RPM::ANY, ''] ]
  17         }
  18     ), 'a ? a'
  19 );
  20
  21 ok(
  22     ! Fedora::Rebuild::RPM::is_satisfied(
  23         'a', Fedora::Rebuild::RPM::ANY, '',
  24         {
  25             'b' => [ [Fedora::Rebuild::RPM::ANY, ''] ]
  26         }
  27     ), 'a ? b'
  28 );
  29
  30 ok(
  31     Fedora::Rebuild::RPM::is_satisfied(
  32         'a', Fedora::Rebuild::RPM::ANY, '',
  33         {
  34             'b' => [ [Fedora::Rebuild::RPM::ANY, ''] ],
  35             'a' => [ [Fedora::Rebuild::RPM::ANY, ''] ],
  36             'c' => [ [Fedora::Rebuild::RPM::ANY, ''] ]
  37         }
  38     ), 'a ? b, a, c'
  39 );
  40
  41 ok(
  42     ! Fedora::Rebuild::RPM::is_satisfied(
  43         'a', Fedora::Rebuild::RPM::ANY, '',
  44         {
  45         }
  46     ), 'a ? '
  47 );
  48
  49
  50 # A matrix case. See module comments for the matrices. There should be 3*5*5
  51 # cases in total.
  52 sub test_matrix_cell {
  53     my ($order, $rflag, $pflag, $result) = @_;
  54
  55     my ($rversion, $pversion) = ('1', '1');
  56     if ($order < 0) {
  57         $rversion = '0';
  58     } elsif ($order > 0) {
  59         $rversion = '2';
  60     }
  61
  62     ok(
  63         $result == Fedora::Rebuild::RPM::is_satisfied(
  64             'a', $rflag, $rversion,
  65             {
  66                 'a' => [ [$pflag, $pversion] ]
  67             }
  68         ),
  69         'a ' . Fedora::Rebuild::RPM::flag_as_string($rflag) . " $rversion" .
  70             ' ? a ' . Fedora::Rebuild::RPM::flag_as_string($pflag) .
  71             " $pversion"
  72     );
  73 }
  74
  75 # Test whole matrix of flags (5*5) for given version order
  76 sub test_matrix {
  77     my ($order, @results) = @_;
  78
  79     my @flags = (
  80         Fedora::Rebuild::RPM::LESS,
  81         Fedora::Rebuild::RPM::LESS|Fedora::Rebuild::RPM::EQUAL,
  82         Fedora::Rebuild::RPM::EQUAL,
  83         Fedora::Rebuild::RPM::GREATER|Fedora::Rebuild::RPM::EQUAL,
  84         Fedora::Rebuild::RPM::GREATER
  85     );
  86
  87     my $i = 0;
  88     for my $rflag (@flags) {
  89         for my $pflag (@flags) {
  90             test_matrix_cell($order, $rflag, $pflag, $results[$i++]);
  91         }
  92     }
  93 }
  94
  95
  96 test_matrix(
  97     # (labelCompare($rversion,$pversion) = $order) == 0:
  98         0,
  99     #           pflag
 100     #   <   <=  ==  >=  >
 101         1,  1,  0,  0,  0,  # rflag <
 102         1,  1,  1,  1,  0,  #       <=
 103         0,  1,  1,  1,  0,  #       ==
 104         0,  1,  1,  1,  1,  #       =>
 105         0,  0,  0,  1,  1   #       >
 106 );
 107
 108 test_matrix(
 109     # (labelCompare($rversion,$pversion) = $order) > 0:
 110         1,
 111     #           pflag
 112     #   <   <=  ==  >=  >
 113         1,  1,  1,  1,  1,  # rflag <
 114         1,  1,  1,  1,  1,  #       <=
 115         0,  0,  0,  1,  1,  #       ==
 116         0,  0,  0,  1,  1,  #       =>
 117         0,  0,  0,  1,  1   #       >
 118 );
 119
 120 test_matrix(
 121     # (labelCompare($rversion,$pversion) = $order) < 0:
 122         -1,
 123     #           pflag
 124     #           <   <=  ==  >=  >
 125         1,  1,  0,  0,  0,  # rflag <
 126         1,  1,  0,  0,  0,  #       <=
 127         1,  1,  0,  0,  0,  #       ==
 128         1,  1,  1,  1,  1,  #       =>
 129         1,  1,  1,  1,  1   #       >
 130 );
 131
 132
 133 # Some generic tests
 134 ok(
 135     Fedora::Rebuild::RPM::is_satisfied(
 136         'a', Fedora::Rebuild::RPM::GREATER|Fedora::Rebuild::RPM::EQUAL, '1',
 137         {
 138             'a' => [ [Fedora::Rebuild::RPM::ANY, ''] ]
 139         }
 140     ), 'a >= 1 ? a'
 141 );
 142
 143 ok(
 144     Fedora::Rebuild::RPM::is_satisfied(
 145         'a', Fedora::Rebuild::RPM::GREATER|Fedora::Rebuild::RPM::EQUAL, '1',
 146         {
 147             'a' => [ [Fedora::Rebuild::RPM::EQUAL, '2'] ]
 148         }
 149     ), 'a >= 1 ? a = 2'
 150 );
 151
 152 ok(
 153     ! Fedora::Rebuild::RPM::is_satisfied(
 154         'a', Fedora::Rebuild::RPM::GREATER|Fedora::Rebuild::RPM::EQUAL, '1',
 155         {
 156             'a' => [ [Fedora::Rebuild::RPM::EQUAL, '0'] ]
 157         }
 158     ), 'a >= 1 ? a = 0'
 159 );
 160