Branch libreoffice-5-0-4
[LibreOffice.git] / solenv / bin / modules / t / installer-profiles.t
blob7817925986526b630a57adeefa1ae05a62d2c9be
2 # This file is part of the LibreOffice project.
4 # This Source Code Form is subject to the terms of the Mozilla Public
5 # License, v. 2.0. If a copy of the MPL was not distributed with this
6 # file, You can obtain one at http://mozilla.org/MPL/2.0/.
9 use strict;
10 use warnings;
12 use Test::More;
14 use lib '.';
16 use installer::profiles;
18 my @input = map { "$_\n" } split "\n", <<'END';
19   [foo]
21 NOT SEEN
22   [bar]
24   [foo]
26 [bar]
28 END
30 my @expected = map { "$_\n" } split "\n", <<'END';
31 [foo]
34 [bar]
37 END
39 my $result = installer::profiles::sorting_profile(\@input);
41 is_deeply($result, \@expected);
43 done_testing();