[license-reconcile] 03/04: Consolidated TODO list

[Nicholas Bamber]

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

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

commit 56c84e02bf17ae3eb64d006d624d276219922ff5
Author: Nicholas Bamber <nicholas at periapt.co.uk>
Date:   Tue Nov 24 17:57:20 2015 +0000

    Consolidated TODO list
    
    * Consolidated TODO list
    * Started adding new tests
---
 debian/changelog    |   3 +-
 debian/control      |   3 +-
 t/08-licensecheck.t | 143 ++++++++++++++++++++++++++++++++++++++++++++++++++++
 3 files changed, 147 insertions(+), 2 deletions(-)

diff --git a/debian/changelog b/debian/changelog
index f6dec4e..5f14525 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,6 +1,7 @@
 license-reconcile (0.10) UNRELEASED; urgency=medium
 
-  * Conslidated TODO list
+  * Consolidated TODO list
+  * Started adding new tests
 
  -- Nicholas Bamber <nicholas at periapt.co.uk>  Wed, 18 Nov 2015 15:58:33 +0000
 
diff --git a/debian/control b/debian/control
index e2100f7..2b6cb32 100644
--- a/debian/control
+++ b/debian/control
@@ -30,7 +30,8 @@ Build-Depends-Indep: devscripts (>= 2.15.9~),
                      libtest-output-perl,
                      libtext-levenshteinxs-perl,
                      libuniversal-require-perl,
-                     libyaml-libyaml-perl
+                     libyaml-libyaml-perl,
+		     libsoftware-license-perl
 Standards-Version: 3.9.6
 Vcs-Browser: https://anonscm.debian.org/cgit/pkg-perl/packages/license-reconcile.git
 Vcs-Git: git://anonscm.debian.org/pkg-perl/packages/license-reconcile.git
diff --git a/t/08-licensecheck.t b/t/08-licensecheck.t
new file mode 100644
index 0000000..811adee
--- /dev/null
+++ b/t/08-licensecheck.t
@@ -0,0 +1,143 @@
+#!/usr/bin/perl
+
+use Test::More  tests=>3;
+use Test::Deep;
+use Test::NoWarnings;
+use Debian::LicenseReconcile::LicenseCheck;
+use Readonly;
+use File::Temp qw();
+use Software::License;
+use Data::Dumper;
+require UNIVERSAL::require;
+
+Readonly my @LICENSES => qw(
+    Apache_2_0
+    FreeBSD
+);
+#    GPL_1
+#    GPL_2
+#    GPL_3
+#    LGPL_2
+#    LGPL_2_1
+#    LGPL_3_0
+#    MIT
+#    Mozilla_2_0
+#    QPL_1_0
+#    Zlib
+
+    #CC0_1_0
+    #GFDL_1_3
+    #Artistic_1_0
+    #Artistic_2_0
+    #Mozilla_1_0
+    #None
+    #PostgreSQL
+    #AGPL_3
+    #SSLeay
+    #Apache_1_1
+    #Mozilla_1_1
+    #GFDL_1_2
+    #Sun
+    #BSD
+    #OpenSSL
+    #Perl_5
+
+my $dir = File::Temp->newdir('t/slgenXXXXX');
+my $year = 2000;
+foreach my $license (@LICENSES) {
+	my $slfile = $dir->dirname . "/$license";
+	my $module = "Software::License::$license";
+	$module->require;
+	my $slobj = $module->new({
+		holder => 'Testophilus Testownik <tester at testity.org>',
+		year=>$year,
+	});
+	open my $fh, '>', $slfile;
+	print $fh $slobj->notice;
+	print $fh $slobj->debian_text;
+	close $fh;
+	++$year;
+}
+
+Readonly my $LICENSECHECK => Debian::LicenseReconcile::LicenseCheck->new(
+	$dir->dirname,
+	[
+		'Apache (v2.0)'=>'test1',
+		'BSD (2 clause)'=>'test2',
+		'LGPL (v2.1)'=>'test1',
+		'LGPL (v2)'=>'test2',
+	],
+	1
+);
+
+isa_ok($LICENSECHECK, 'Debian::LicenseReconcile::LicenseCheck');
+my @data = $LICENSECHECK->get_info;
+print Dumper(@data);
+cmp_deeply(\@data, bag(
+    {
+        file=>'Apache_2_0',
+        license=>'test1',
+	copyright=>['Copyright: 2000 by Testophilus Testownik <tester at testity.org>'],
+    },
+    {
+        file=>'FreeBSD',
+        license=>'test2',
+	copyright=>['Copyright: 2001 by Testophilus Testownik <tester at testity.org>'],
+    },
+));
+#    {
+#        file=>ignore(),
+#        license=>ignore(),
+#        copyright=>[ignore()],
+#    },
+#    {
+#        file=>ignore(),
+#        license=>ignore(),
+#        copyright=>[ignore()],
+#    },
+#    {
+#        file=>ignore(),
+#        license=>ignore(),
+#        copyright=>[ignore()],
+#    },
+#    {
+#        file=>ignore(),
+#        license=>ignore(),
+#        copyright=>[ignore()],
+#    },
+#    {
+#        file=>ignore(),
+#        license=>ignore(),
+#        copyright=>[ignore()],
+#    },
+#    {
+#        file=>ignore(),
+#        license=>ignore(),
+#        copyright=>[ignore()],
+#    },
+#    {
+#        file=>ignore(),
+#        license=>ignore(),
+#        copyright=>[ignore()],
+#    },
+#    {
+#        file=>ignore(),
+#        license=>ignore(),
+#        copyright=>[ignore()],
+#    },
+#    {
+#        file=>ignore(),
+#        license=>ignore(),
+#        copyright=>[ignore()],
+#    },
+#    {
+#        file=>ignore(),
+#        license=>ignore(),
+#        copyright=>[ignore()],
+#    },
+#    {
+#        file=>ignore(),
+#        license=>ignore(),
+#        copyright=>[ignore()],
+#    },
+#

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