r56536 - /scripts/patchedit
carnil-guest at users.alioth.debian.org
carnil-guest at users.alioth.debian.org
Mon Apr 19 14:35:57 UTC 2010
Author: carnil-guest
Date: Mon Apr 19 14:35:47 2010
New Revision: 56536
URL: http://svn.debian.org/wsvn/?sc=1&rev=56536
Log:
add Applied-Upstream field
Modified:
scripts/patchedit
Modified: scripts/patchedit
URL: http://svn.debian.org/wsvn/scripts/patchedit?rev=56536&op=diff
==============================================================================
--- scripts/patchedit (original)
+++ scripts/patchedit Mon Apr 19 14:35:47 2010
@@ -120,6 +120,7 @@
Reviewed-by
Acked-by
Last-Update
+ Applied-Upstream
);
exit main() unless caller();
@@ -189,6 +190,7 @@
$patch_content->{'Reviewed-by'} ||= "*** FIXME ***\n"
unless $patch_content->{'Reviewed-by'} || $patch_content->{'Acked-by'};
$patch_content->{'Last-Update'} ||= DateTime->now->set_time_zone('local')->strftime('%Y-%m-%d')."\n";
+ $patch_content->{'Applied-Upstream'} ||= "*** FIXME ***\n";
}
_write_patch($patch, $patch_struct);
@@ -228,7 +230,7 @@
my $patch_struct = _read_patch($patch);
my $patch_content = $patch_struct->{fields};
my $tb = Test::Builder->new;
- $tb->plan('tests' => 8);
+ $tb->plan('tests' => 9);
$tb->ok($patch_content->{'Description'} || $patch_content->{'Subject'}, 'has Description or Subject');
$tb->ok($patch_content->{'Origin'} || $patch_content->{'Author'}, 'has Origin or Author');
if ($also_optional) {
@@ -237,9 +239,10 @@
$tb->ok($patch_content->{'Author'} || $patch_content->{'From'}, 'has Author or From');
$tb->ok($patch_content->{'Reviewed-by'} || $patch_content->{'Acked-by'}, 'has Reviewed-by or Acked-by');
$tb->ok($patch_content->{'Last-Update'}, 'has Last-Update');
+ $tb->ok($patch_content->{'Applied-Upstream'}, 'has Applied-Upstream');
}
else {
- $tb->skip('skipping optional') foreach (1..5);
+ $tb->skip('skipping optional') foreach (1..6);
}
my @extra_fields =
grep { $_ ne '_patch' } # _patch is ok
More information about the Pkg-perl-cvs-commits
mailing list