diff options
Diffstat (limited to '')
-rw-r--r-- | scripts/t/Dpkg_BuildFlags.t | 93 |
1 files changed, 93 insertions, 0 deletions
diff --git a/scripts/t/Dpkg_BuildFlags.t b/scripts/t/Dpkg_BuildFlags.t new file mode 100644 index 0000000..b087e0a --- /dev/null +++ b/scripts/t/Dpkg_BuildFlags.t @@ -0,0 +1,93 @@ +#!/usr/bin/perl +# +# 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, see <https://www.gnu.org/licenses/>. + +use strict; +use warnings; + +use Test::More tests => 26; + +BEGIN { + use_ok('Dpkg::BuildFlags'); +} + +my $bf = Dpkg::BuildFlags->new(); + +ok($bf->has('CPPFLAGS'), 'CPPFLAGS is present'); +is($bf->get_origin('CPPFLAGS'), 'vendor', 'CPPFLAGS has a vendor origin'); + +$bf->set('DPKGFLAGS', '-Wflag -On -fsome', 'system'); +is($bf->get('DPKGFLAGS'), '-Wflag -On -fsome', 'get flag'); +is($bf->get_origin('DPKGFLAGS'), 'system', 'flag has a system origin'); +ok(!$bf->is_maintainer_modified('DPKGFLAGS'), 'set marked flag as non-maint modified'); + +$bf->strip('DPKGFLAGS', '-On', 'user', undef); +is($bf->get('DPKGFLAGS'), '-Wflag -fsome', 'get stripped flag'); +is($bf->get_origin('DPKGFLAGS'), 'user', 'flag has a user origin'); +ok(!$bf->is_maintainer_modified('DPKGFLAGS'), 'strip marked flag as non-maint modified'); + +$bf->append('DPKGFLAGS', '-Wl,other', 'vendor', 0); +is($bf->get('DPKGFLAGS'), '-Wflag -fsome -Wl,other', 'get appended flag'); +is($bf->get_origin('DPKGFLAGS'), 'vendor', 'flag has a vendor origin'); +ok(!$bf->is_maintainer_modified('DPKGFLAGS'), 'append marked flag as non-maint modified'); + +$bf->prepend('DPKGFLAGS', '-Idir', 'env', 1); +is($bf->get('DPKGFLAGS'), '-Idir -Wflag -fsome -Wl,other', 'get prepended flag'); +is($bf->get_origin('DPKGFLAGS'), 'env', 'flag has an env origin'); +ok($bf->is_maintainer_modified('DPKGFLAGS'), 'prepend marked flag as maint modified'); + +my %known_features = ( + future => [ qw( + lfs + ) ], + hardening => [ qw( + bindnow + format + fortify + pie + relro + stackprotector + stackprotectorstrong + ) ], + qa => [ qw( + bug + canary + ) ], + reproducible => [ qw( + fixdebugpath + fixfilepath + timeless + ) ], + sanitize => [ qw( + address + leak + thread + undefined + ) ], +); + +is_deeply([ sort $bf->get_feature_areas() ], [ sort keys %known_features ], + 'supported feature areas'); + +foreach my $area (sort keys %known_features) { + ok($bf->has_features($area), "has feature area $area"); + my %features = $bf->get_features($area); + is_deeply([ sort keys %features ], + $known_features{$area}, + "supported features for area $area"); +} + +# TODO: Add more test cases. + +1; |