From 4b596ea5c67989b2d7f8a5ab90a73b19a4bb7d93 Mon Sep 17 00:00:00 2001
From: Amitai Schlair <schmonz-web-ikiwiki@schmonz.com>
Date: Sun, 5 Feb 2012 01:34:58 -0500
Subject: [PATCH] Test RCS Id keyword expansion on typical commit.

---
 t/cvs.t | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/t/cvs.t b/t/cvs.t
index cae3f8dc3..5717782a2 100755
--- a/t/cvs.t
+++ b/t/cvs.t
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 use warnings;
 use strict;
-use Test::More; my $total_tests = 52;
+use Test::More; my $total_tests = 53;
 use IkiWiki;
 
 my $default_test_methods = '^test_*';
@@ -170,9 +170,14 @@ sub test_rcs_add {
 
 	my $message = "add a top-level ASCII (non-UTF-8) page via VCS API";
 	my $file = q{test0.mdwn};
-	add_and_commit($file, $message, q{* some plain ASCII text});
+	add_and_commit($file, $message, qq{# \$Id\$\n* some plain ASCII text});
 	is_newly_added($file);
 	is_in_keyword_substitution_mode($file, undef);
+	like(
+		readfile($config{srcdir} . "/$file"),
+		qr/^# \$Id: $file,v 1.1 .+\$$/m,
+		q{can expand RCS Id keyword},
+	);
 	@changes = IkiWiki::rcs_recentchanges(3);
 	is_total_number_of_changes(\@changes, 1);
 	is_most_recent_change(\@changes, stripext($file), $message);
-- 
2.39.5