[libconfig-model-dpkg-perl] 02/02: test wrap-and-sort like dependency list sort

[dod at debian.org]

This is an automated email from the git hooks/post-receive script.

dod pushed a commit to branch master
in repository libconfig-model-dpkg-perl.

commit 21175348c56259c859273f97bc786e578f990ef0
Author: Dominique Dumont <dod at debian.org>
Date:   Sun Feb 4 10:59:33 2018 +0100

    test wrap-and-sort like dependency list sort
---
 t/dependency-check.t | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/t/dependency-check.t b/t/dependency-check.t
index 0c19ddd..511c542 100644
--- a/t/dependency-check.t
+++ b/t/dependency-check.t
@@ -378,6 +378,20 @@ is($control->grab('binary:libdist-zilla-plugins-cjm-perl Depends:8')->has_warnin
 is($control->grab('binary:libdist-zilla-plugins-cjm-perl Depends:9')->has_warning,
     1, "check that _unknown_ package do trigger a warning");
 
+# test dep list sort
+{
+    my $dep_list = $control->grab("binary:libdist-zilla-plugins-cjm-perl Depends");
+    my @all = $dep_list->fetch_all_values;
+    my @var = sort grep { /^\$/ } @all;
+    my @others = sort grep { ! /^\$/ } @all;
+    $dep_list->sort;
+    eq_or_diff( [ $dep_list->fetch_all_values ], [@var, @others],"test sorted list content");
+    # test against bug where sort behaved like reverse...
+    $dep_list->sort;
+    eq_or_diff( [ $dep_list->fetch_all_values ], [@var, @others],"test again sorted list content");
+}
+
+
 my $perl_bdi = $control->grab("source Build-Depends-Indep:1");
 
 my $bdi_val ;

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libconfig-model-dpkg-perl.git