r56536 - /scripts/patchedit

[carnil-guest at users.alioth.debian.org]

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