r55953 - in /scripts: patchedit t/patchedit/01_patchedit.t t/patchedit/with-utf8-meta.ok t/patchedit/with-utf8-meta.ok-o t/patchedit/with-utf8-meta.orig

jozef-guest at users.alioth.debian.org jozef-guest at users.alioth.debian.org
Sun Apr 11 14:38:08 UTC 2010


Author: jozef-guest
Date: Sun Apr 11 14:37:26 2010
New Revision: 55953

URL: http://svn.debian.org/wsvn/?sc=1&rev=55953
Log:
utf-8 tests and handling

Added:
    scripts/t/patchedit/with-utf8-meta.ok
    scripts/t/patchedit/with-utf8-meta.ok-o
    scripts/t/patchedit/with-utf8-meta.orig
Modified:
    scripts/patchedit
    scripts/t/patchedit/01_patchedit.t

Modified: scripts/patchedit
URL: http://svn.debian.org/wsvn/scripts/patchedit?rev=55953&op=diff
==============================================================================
--- scripts/patchedit (original)
+++ scripts/patchedit Sun Apr 11 14:37:26 2010
@@ -86,7 +86,6 @@
  * "Subject:" has a special formating
  * preserve the extra fields
  * handle patches with comments
- * test handling of UTF-8
 
 =head1 COPYRIGHT AND LICENSE
 
@@ -108,6 +107,8 @@
 use Test::Builder;
 use DateTime;
 use List::MoreUtils 'none';
+
+use open ':encoding(UTF-8)';
 
 our @standard_fields = qw(
 	Description

Modified: scripts/t/patchedit/01_patchedit.t
URL: http://svn.debian.org/wsvn/scripts/t/patchedit/01_patchedit.t?rev=55953&op=diff
==============================================================================
--- scripts/t/patchedit/01_patchedit.t (original)
+++ scripts/t/patchedit/01_patchedit.t Sun Apr 11 14:37:26 2010
@@ -4,7 +4,7 @@
 use warnings;
 
 #use Test::More 'no_plan';
-use Test::More tests => 8;
+use Test::More tests => 10;
 use Test::Differences;
 use Test::Exception;
 use File::Slurp 'read_file';
@@ -20,7 +20,7 @@
 
 sub maint {
 	local $ENV{'EDITOR'} = '/bin/true';
-	foreach my $type (qw(no-meta no-meta2 with-meta with-meta-and-extra-fields)) {
+	foreach my $type (qw(no-meta no-meta2 with-meta with-meta-and-extra-fields with-utf8-meta)) {
 		foreach my $sub_type ('', '-o') {
 			copy("t/patchedit/$type.orig", 't/patchedit/'.$type);
 			local @ARGV = (($sub_type ? $sub_type : ()), '-f', 'edit', 't/patchedit/'.$type);

Added: scripts/t/patchedit/with-utf8-meta.ok
URL: http://svn.debian.org/wsvn/scripts/t/patchedit/with-utf8-meta.ok?rev=55953&op=file
==============================================================================
--- scripts/t/patchedit/with-utf8-meta.ok (added)
+++ scripts/t/patchedit/with-utf8-meta.ok Sun Apr 11 14:37:26 2010
@@ -1,0 +1,6 @@
+Description: utf-8 test
+Author: Lars Dɪᴇᴄᴋᴏᴡ 迪拉斯
+
+doesn't matter
+ščťžôáĺ
+

Added: scripts/t/patchedit/with-utf8-meta.ok-o
URL: http://svn.debian.org/wsvn/scripts/t/patchedit/with-utf8-meta.ok-o?rev=55953&op=file
==============================================================================
--- scripts/t/patchedit/with-utf8-meta.ok-o (added)
+++ scripts/t/patchedit/with-utf8-meta.ok-o Sun Apr 11 14:37:26 2010
@@ -1,0 +1,10 @@
+Description: utf-8 test
+Bug: *** FIXME ***
+Forwarded: *** FIXME ***
+Author: Lars Dɪᴇᴄᴋᴏᴡ 迪拉斯
+Reviewed-by: *** FIXME ***
+Last-Update: 2004-02-02
+
+doesn't matter
+ščťžôáĺ
+

Added: scripts/t/patchedit/with-utf8-meta.orig
URL: http://svn.debian.org/wsvn/scripts/t/patchedit/with-utf8-meta.orig?rev=55953&op=file
==============================================================================
--- scripts/t/patchedit/with-utf8-meta.orig (added)
+++ scripts/t/patchedit/with-utf8-meta.orig Sun Apr 11 14:37:26 2010
@@ -1,0 +1,6 @@
+Description: utf-8 test
+Author: Lars Dɪᴇᴄᴋᴏᴡ 迪拉斯
+
+doesn't matter
+ščťžôáĺ
+




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