[license-reconcile] 01/01: Fix random order issues in t/20-copyright_extract.t

Axel Beckert abe at deuxchevaux.org
Sat Sep 28 16:47:07 UTC 2013


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

abe pushed a commit to branch master
in repository license-reconcile.

commit 6d21548c77088e38cdb22db3f10a2b0a3be1f073
Author: Axel Beckert <abe at deuxchevaux.org>
Date:   Sat Sep 28 18:46:06 2013 +0200

    Fix random order issues in t/20-copyright_extract.t
---
 debian/changelog         |    3 ++-
 t/20-copyright_extract.t |    8 ++++----
 2 files changed, 6 insertions(+), 5 deletions(-)

diff --git a/debian/changelog b/debian/changelog
index a273c44..86afa00 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -2,7 +2,8 @@ license-reconcile (0.4) UNRELEASED; urgency=low
 
   TODO: Fix $VERSION in all files, most of them are still set to 0.1!
 
-  * Fix random order issues in t/17-copyright.t
+  * Fix random order issues in t/17-copyright.t and
+    t/20-copyright_extract.t.
   * Fix t/17-copyright.t for usage with recent libset-intspan-perl, add
     version to build-dependency.
 
diff --git a/t/20-copyright_extract.t b/t/20-copyright_extract.t
index f5ddd8f..b722328 100644
--- a/t/20-copyright_extract.t
+++ b/t/20-copyright_extract.t
@@ -13,10 +13,10 @@ my @data = $LICENSECHECK->get_info('copyright_extract1');
 cmp_deeply(\@data, [{
     file=>'copyright_extract1',
     license=>'GPL-2',
-    copyright=>[
-        'Copyright: 2007 Google Inc',
-        '2008 MySQL AB, 2008-2009 Sun Microsystems, Inc'
-    ],
+    copyright=>bag(
+        re('2007 Google Inc'),
+        re('2008 MySQL AB, 2008-2009 Sun Microsystems, Inc')
+    ),
 }]);
 
 @data = $LICENSECHECK->get_info('copyright_extract1', $RE);

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/license-reconcile.git



More information about the Pkg-perl-cvs-commits mailing list