From: Amitai Schlair <schmonz-web-ikiwiki@schmonz.com>
Date: Sun, 5 Feb 2012 06:34:58 +0000 (-0500)
Subject: Test RCS Id keyword expansion on typical commit.
X-Git-Tag: 3.20130212~7^2~14
X-Git-Url: http://git.vanrenterghem.biz/git.ikiwiki.info.git/commitdiff_plain/4b596ea5c67989b2d7f8a5ab90a73b19a4bb7d93?ds=sidebyside;hp=-c

Test RCS Id keyword expansion on typical commit.
---

4b596ea5c67989b2d7f8a5ab90a73b19a4bb7d93
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);