Просмотр исходного кода

scripts/t: Ignore stderr from «dpkg --compare-versions» if it does not fail

Since commit ed4ce62868d2d03d87b24741cae4ace5a0d6056a, the command will
emit warnings when using the deprecated operators '<' and '>'.
Guillem Jover лет назад: 11
Родитель
Сommit
dd0f24f2ed
1 измененных файлов с 8 добавлено и 1 удалено
  1. 8 1
      scripts/t/Dpkg_Version.t

+ 8 - 1
scripts/t/Dpkg_Version.t

@@ -19,6 +19,7 @@ use warnings;
 use Test::More;
 
 use Dpkg::ErrorHandling;
+use Dpkg::IPC;
 
 report_options(quiet_warnings => 1);
 
@@ -33,7 +34,13 @@ plan tests => scalar(@tests) * (3 * scalar(@ops) + 4) + 13;
 
 sub dpkg_vercmp {
      my ($a, $cmp, $b) = @_;
-     return system('dpkg', '--compare-versions', '--', $a, $cmp, $b) == 0;
+     my $stderr;
+
+     spawn(exec => [ 'dpkg', '--compare-versions', '--', $a, $cmp, $b ],
+           error_to_string => \$stderr, wait_child => 1, nocheck => 1);
+     diag("dpkg --compare-versions error=$?: $stderr") if $? and $? != 256;
+
+     return $? == 0;
 }
 
 sub obj_vercmp {