1#!/usr/bin/perl 2# 3# This program is free software; you can redistribute it and/or modify 4# it under the terms of the GNU General Public License as published by 5# the Free Software Foundation; either version 2 of the License, or 6# (at your option) any later version. 7# 8# This program is distributed in the hope that it will be useful, 9# but WITHOUT ANY WARRANTY; without even the implied warranty of 10# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 11# GNU General Public License for more details. 12# 13# You should have received a copy of the GNU General Public License 14# along with this program. If not, see <https://www.gnu.org/licenses/>. 15 16use strict; 17use warnings; 18 19use Test::More tests => 7; 20 21use_ok('Dpkg::Package'); 22 23ok(pkg_name_is_illegal(undef), 'package name is undef'); 24ok(pkg_name_is_illegal(''), 'package name is empty'); 25ok(pkg_name_is_illegal('%_&'), 'package name has invalid chars'); 26ok(pkg_name_is_illegal('ABC'), 'package name has uppercase chars'); 27ok(pkg_name_is_illegal('-abc'), 'package name has a dash'); 28 29is(pkg_name_is_illegal('pkg+name-1.0'), undef, 'package name is valid'); 30 311; 32