[licensecheck] 76/112: Add license pattern wtfpl.

[Jonas Smedegaard]

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

js pushed a commit to branch master
in repository licensecheck.

commit d5428b70620b3c70ff70e14145e964282cf86eec
Author: Jonas Smedegaard <dr at jones.dk>
Date:   Wed Nov 23 17:51:42 2016 +0100

    Add license pattern wtfpl.
---
 lib/App/Licensecheck.pm       | 14 ++------------
 lib/Regexp/Pattern/License.pm |  8 ++++++++
 t/SPDX.t                      |  1 +
 t/SPDX/WTFPL.txt              | 11 +++++++++++
 t/grant.t                     |  7 +++++++
 t/grant/WTFPL/COPYING.WTFPL   | 12 ++++++++++++
 6 files changed, 41 insertions(+), 12 deletions(-)

diff --git a/lib/App/Licensecheck.pm b/lib/App/Licensecheck.pm
index 971a00e..f1204d2 100755
--- a/lib/App/Licensecheck.pm
+++ b/lib/App/Licensecheck.pm
@@ -974,18 +974,8 @@ sub parse_license
 
 	# WTFPL
 	given ($licensetext) {
-		when ( /Do What The Fuck You Want To Public License,? $L{re}{version}{-keep}/i ) {
-			$gen_license->( 'WTFPL', $1 );
-		}
-	}
-	given ($licensetext) {
-		when ( /Do what The Fuck You Want To Public License/i ) {
-			$gen_license->('WTFPL');
-		}
-	}
-	given ($licensetext) {
-		when ( /(License WTFPL|Under (the|a) WTFPL)/i ) {
-			$gen_license->('WTFPL');
+		when ( /$L{re}{wtfpl},? $L{re}{version}{-keep}/i ) {
+			$gen_license->( 'wtfpl', $1 );
 		}
 	}
 	#>>>
diff --git a/lib/Regexp/Pattern/License.pm b/lib/Regexp/Pattern/License.pm
index 68d391e..1e3a91a 100644
--- a/lib/Regexp/Pattern/License.pm
+++ b/lib/Regexp/Pattern/License.pm
@@ -146,6 +146,8 @@ Patterns each covering a single license.
 
 =item * unicode_tou
 
+=item * wtfpl
+
 =item * zlib
 
 =item * zlib_acknowledgement
@@ -552,6 +554,12 @@ END
 		pat =>
 			qr/distribute all documents and files solely for informational/,
 	},
+	wtfpl => {
+		name    => 'WTFPL',
+		caption => 'do What The Fuck you want to Public License',
+		pat =>
+			qr/$the?(?:[Dd]o What The Fuck [Yy]ou [Ww]ant [Tt]o Public License|DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE(?: \(WTFPL\))?|WTFPL)/,
+	},
 	zlib => {
 		name    => 'Zlib',
 		caption => 'zlib/libpng',
diff --git a/t/SPDX.t b/t/SPDX.t
index f3625a3..39bf954 100644
--- a/t/SPDX.t
+++ b/t/SPDX.t
@@ -23,6 +23,7 @@ my %Debian2SPDX = (
 	'LGPL-2+'      => 'LGPL-2.0',
 	'LGPL-2.1+'    => 'LGPL-2.1',
 	'Python-2'     => 'Python-2.0',
+	'WTFPL-2'      => 'WTFPL',
 );
 
 path("t/SPDX")->visit(
diff --git a/t/SPDX/WTFPL.txt b/t/SPDX/WTFPL.txt
new file mode 100644
index 0000000..7a3094a
--- /dev/null
+++ b/t/SPDX/WTFPL.txt
@@ -0,0 +1,11 @@
+DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE
+Version 2, December 2004
+
+Copyright (C) 2004 Sam Hocevar <sam at hocevar.net>
+
+Everyone is permitted to copy and distribute verbatim or modified copies of this license document, and changing it is allowed as long as the name is changed.
+
+DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE
+TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
+
+  0. You just DO WHAT THE FUCK YOU WANT TO.
diff --git a/t/grant.t b/t/grant.t
index 10e53a9..6c304d4 100644
--- a/t/grant.t
+++ b/t/grant.t
@@ -185,4 +185,11 @@ run_me(
 	}
 );
 
+# WTFPL
+run_me(
+	{   license => 'WTFPL-1.0',
+		corpus  => 'WTFPL/COPYING.WTFPL'
+	}
+);
+
 done_testing;
diff --git a/t/grant/WTFPL/COPYING.WTFPL b/t/grant/WTFPL/COPYING.WTFPL
new file mode 100644
index 0000000..c971e27
--- /dev/null
+++ b/t/grant/WTFPL/COPYING.WTFPL
@@ -0,0 +1,12 @@
+do What The Fuck you want to Public License
+
+Version 1.0, March 2000
+Copyright (C) 2000 Banlu Kemiyatorn (]d).
+136 Nives 7 Jangwattana 14 Laksi Bangkok
+Everyone is permitted to copy and distribute verbatim copies
+of this license document, but changing it is not allowed.
+
+Ok, the purpose of this license is simple
+and you just
+
+DO WHAT THE FUCK YOU WANT TO.

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