t/02is_satisfied.t

   1 #!/usr/bin/perl
   2 use strict;
   3 use warnings;
   4 use lib qw(..);
   5
   6 use Test::Simple tests => 4 + 5;
   7
   8 use Fedora::Rebuild::RPM;
   9
  10 # The ok() labels have format "REQUIRES ? COMMA_SEPARATED_PROVIDES".
  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 # Matrix cases. See module comments for the matrices. There should be 3*5*5
  51 # cases in total.
  52 sub matrix_test {
  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 matrix_test(0, Fedora::Rebuild::RPM::LESS, Fedora::Rebuild::RPM::LESS, 1);
  76 matrix_test(0, Fedora::Rebuild::RPM::LESS,
  77     Fedora::Rebuild::RPM::LESS|Fedora::Rebuild::RPM::EQUAL, 1);
  78 matrix_test(0, Fedora::Rebuild::RPM::LESS, Fedora::Rebuild::RPM::EQUAL, 0);
  79 matrix_test(0, Fedora::Rebuild::RPM::LESS,
  80     Fedora::Rebuild::RPM::GREATER|Fedora::Rebuild::RPM::EQUAL, 0);
  81 matrix_test(0, Fedora::Rebuild::RPM::LESS, Fedora::Rebuild::RPM::GREATER, 0);
  82