[libstring-copyright-perl] 04/08: Add tests for broken copyright sign and boilerplate chatter.

[Jonas Smedegaard]

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

js pushed a commit to branch master
in repository libstring-copyright-perl.

commit 511853a7bb5af1bd435e2efa7f743195d7dcbfa4
Author: Jonas Smedegaard <dr at jones.dk>
Date:   Wed Nov 30 19:28:36 2016 +0100

    Add tests for broken copyright sign and boilerplate chatter.
---
 t/50_context.t | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/t/50_context.t b/t/50_context.t
index 6b4a64c..3f7ba84 100644
--- a/t/50_context.t
+++ b/t/50_context.t
@@ -2,7 +2,7 @@ use strict;
 use warnings;
 use utf8;
 
-use Test::More tests => 21;
+use Test::More tests => 23;
 
 use String::Copyright {
 	format => sub { join ':', $_->[0] || '', $_->[1] || '' }
@@ -81,3 +81,12 @@ is copyright(
 	"=head1 COPYRIGHT AND LICENSE\n\nThis software is (c) copyright 2016 by Foo"
 	), '2016:Foo',
 	'chatter then copyright';
+
+is copyright( "Copyright ?1991-2012 Unicode, Inc." ),
+	'1991-2012:Unicode, Inc.',
+	'broken copyright sign';
+
+is copyright(
+	"Copyright 1991-2012 Unicode, Inc. All rights reserved. Distributed under the Terms of Use in http://www.unicode.org/copyright.html."
+	), '1991-2012:Unicode, Inc.',
+	'boilerplate then chatter';

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