[debsums] 03/07: Add check for -s option

Axel Beckert abe at deuxchevaux.org
Thu Mar 26 01:30:26 UTC 2015


This is an automated email from the git hooks/post-receive script.

abe pushed a commit to branch master
in repository debsums.

commit d81ceacc28a8f90fca280becf99ed2de38ebcd7c
Author: Axel Beckert <abe at deuxchevaux.org>
Date:   Thu Mar 26 02:15:07 2015 +0100

    Add check for -s option
---
 t/debsums.t | 16 +++++++++++++++-
 1 file changed, 15 insertions(+), 1 deletion(-)

diff --git a/t/debsums.t b/t/debsums.t
index d2372f9..604e0a8 100644
--- a/t/debsums.t
+++ b/t/debsums.t
@@ -38,6 +38,12 @@ EOT
     $expected = remove_failed($expected)
         if $state eq 'clean';
 
+    my $expected_s = <<"EOT";
+debsums: changed file $chroot/usr/share/doc/fakepkg/README (from fakepkg package)
+EOT
+    $expected_s = remove_failed($expected_s)
+        if $state eq 'clean';
+
     my $expected_conffiles = <<"EOT";
 $chroot/etc/fakepkg.cfg                                           OK
 $chroot/etc/fakepkg-broken.cfg                                FAILED
@@ -70,6 +76,14 @@ EOT
            'STDOUT as expected');
         expected_rc($exit_code);
 
+        # Test option -s
+        run(@command, '-s');
+        is(stderr,
+           $state eq 'clean' ? '' : $expected_s,
+           'STDERR as expected');
+        is(stdout, '', 'STDOUT is empty');
+        expected_rc($exit_code);
+
         # Test option -e
         run(@command, '-e');
         is(stderr, '', 'STDERR is empty');
@@ -103,7 +117,7 @@ sub sort_lines {
 sub remove_failed {
     my $string = shift;
     return join("\n",
-                grep { !/FAILED/ }
+                grep { !/FAILED|^debsums: changed file/ }
                 split("\n", $string))
         . trailing_line_break_if_present($string);
 }

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/debsums.git



More information about the Pkg-perl-cvs-commits mailing list