sjero.net Git - wget/blob - tests/WgetFeature.pm

   1 package WgetFeature;
   2
   3 use strict;
   4 use warnings;
   5
   6 use WgetTest;
   7
   8 our %skip_messages;
   9 require 'WgetFeature.cfg';
  10
  11 sub import
  12 {
  13     my ($class, $feature) = @_;
  14
  15     my $output = `$WgetTest::WGETPATH --version`;
  16     my ($list) = $output =~ /^([\+\-]\S+(?:\s+[\+\-]\S+)+)/m;
  17     my %have_features = map {
  18         my $feature = $_;
  19            $feature =~ s/^.//;
  20           ($feature, /^\+/ ? 1 : 0);
  21     } split /\s+/, $list;
  22
  23     unless ($have_features{$feature}) {
  24         print $skip_messages{$feature}, "\n";
  25         exit 2; # skip
  26     }
  27 }
  28
  29 1;