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