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 => 6; 20 21BEGIN { 22 use_ok('Dpkg::Vars'); 23} 24 25eval { set_source_package('foo%bar') }; 26ok($@, 'cannot set invalid source package name'); 27is(get_source_package(), undef, 'invalid source package name unset'); 28 29set_source_package('source'); 30is(get_source_package(), 'source', 'set/get source package name'); 31 32set_source_package('source'); 33is(get_source_package(), 'source', 'reset/get same source package name'); 34 35eval { set_source_package('other') }; 36ok($@, 'cannot set different source package name'); 37 381; 39