scripts/t/Dpkg_BuildFlags_Ubuntu.t

   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
  16 use strict;
  17 use warnings;
  18
  19 use Test::More tests => 21;
  20
  21 BEGIN {
  22     use_ok('Dpkg::BuildFlags');
  23 }
  24
  25 sub test_optflag
  26 {
  27     my ($bf, $optflag) = @_;
  28
  29     foreach my $flag (qw(CFLAGS CXXFLAGS OBJCFLAGS OBJCXXFLAGS GCJFLAGS
  30                          FFLAGS FCFLAGS)) {
  31         my $value = $bf->get($flag);
  32         ok($value =~ m/$optflag/, "$flag contains $optflag: $value");
  33     }
  34 }
  35
  36 sub test_ltoflag
  37 {
  38     my $bf = shift;
  39
  40     # Test the LTO flags enabled by default on some arches.
  41     ok($bf->get('LDFLAGS') =~ m/-flto=auto -ffat-lto-objects/,
  42         "LDFLAGS contains LTO flags on $ENV{DEB_HOST_ARCH}");
  43 }
  44
  45 sub test_no_ltoflag
  46 {
  47     my $bf = shift;
  48
  49     # Test the LTO flags not being enabled.
  50     ok($bf->get('LDFLAGS') !~ m/-flto=auto -ffat-lto-objects/,
  51         "LDFLAGS does not contain LTO flags on $ENV{DEB_HOST_ARCH}");
  52 }
  53
  54 my $bf;
  55
  56 # Force loading the Dpkg::Vendor::Ubuntu module.
  57 $ENV{DEB_VENDOR} = 'Ubuntu';
  58
  59 # Test the optimization flag inherited from the Dpkg::Vendor::Debian module.
  60 $ENV{DEB_HOST_ARCH} = 'amd64';
  61 $bf = Dpkg::BuildFlags->new();
  62
  63 test_optflag($bf, '-O2');
  64 test_ltoflag($bf);
  65
  66 # Test the overlaid Ubuntu-specific linker flag.
  67 ok($bf->get('LDFLAGS') =~ m/-Wl,-Bsymbolic-functions/,
  68    'LDFLAGS contains -Bsymbolic-functions');
  69
  70 # Test the optimization flag override only for ppc64el.
  71 $ENV{DEB_HOST_ARCH} = 'ppc64el';
  72 $bf = Dpkg::BuildFlags->new();
  73
  74 test_optflag($bf, '-O3');
  75 test_ltoflag($bf);
  76
  77 # Test the optimization flag not enabled for riscv64.
  78 $ENV{DEB_HOST_ARCH} = 'riscv64';
  79 $bf = Dpkg::BuildFlags->new();
  80
  81 test_no_ltoflag($bf);
  82
  83 # Test the optimization flag override by DEB_BUILD_MAINT_OPTIONS.
  84 $ENV{DEB_BUILD_MAINT_OPTIONS} = 'optimize=+lto';
  85 $bf = Dpkg::BuildFlags->new();
  86
  87 test_ltoflag($bf);
  88
  89 $ENV{DEB_HOST_ARCH} = 'amd64';
  90 $ENV{DEB_BUILD_MAINT_OPTIONS} = 'optimize=-lto';
  91 $bf = Dpkg::BuildFlags->new();
  92 test_no_ltoflag($bf);