diff options
Diffstat (limited to 't/scripts/harness/get-tagnames.t')
-rw-r--r-- | t/scripts/harness/get-tagnames.t | 63 |
1 files changed, 63 insertions, 0 deletions
diff --git a/t/scripts/harness/get-tagnames.t b/t/scripts/harness/get-tagnames.t new file mode 100644 index 0000000..bed1966 --- /dev/null +++ b/t/scripts/harness/get-tagnames.t @@ -0,0 +1,63 @@ +#!/usr/bin/perl + +# Copyright (C) 2019 Felix Lechner +# +# This program is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program. If not, you can find it on the World Wide +# Web at https://www.gnu.org/copyleft/gpl.html, or write to the Free +# Software Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, +# MA 02110-1301, USA + +use strict; +use warnings; + +BEGIN { $ENV{'LINTIAN_BASE'} //= q{.}; } + +use List::SomeUtils qw(uniq); +use Path::Tiny; +use Test::More; + +use lib "$ENV{'LINTIAN_BASE'}/lib"; +use Test::Lintian::Output::Universal qw(get_tag_names); + +# dummy hints +my $hintstext =<<'EOSTR'; +distribution-multiple-bad (changes): bad-distribution-in-changes-file foo-backportss +distribution-multiple-bad (changes): bad-distribution-in-changes-file foo +distribution-multiple-bad (changes): bad-distribution-in-changes-file bar +distribution-multiple-bad (changes): backports-upload-has-incorrect-version-number 1.0 +distribution-multiple-bad (changes): backports-changes-missing +EOSTR +my $hintspath = Path::Tiny->tempfile; +$hintspath->spew($hintstext); + +# read tag names from file +my @actual = sort +uniq +get_tag_names($hintspath->stringify); + +my @expected = qw( + backports-changes-missing + backports-upload-has-incorrect-version-number + bad-distribution-in-changes-file +); + +# test plan +plan tests => 1; + +# check when hints match +is_deeply(\@actual, \@expected, 'Tags read via get_tag_names match'); + +# Local Variables: +# indent-tabs-mode: nil +# cperl-indent-level: 4 +# End: +# vim: syntax=perl sw=4 sts=4 sr et |