aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAmitai Schlair <schmonz-web-ikiwiki@schmonz.com>2012-02-05 01:34:58 -0500
committerAmitai Schlair <schmonz-web-ikiwiki@schmonz.com>2012-02-05 01:34:58 -0500
commit4b596ea5c67989b2d7f8a5ab90a73b19a4bb7d93 (patch)
tree33fc2cca768477dc9fcd57410722279cdae90931
parentd7ff0326b4321289be846589f31db5670dc33841 (diff)
downloadikiwiki-4b596ea5c67989b2d7f8a5ab90a73b19a4bb7d93.tar
ikiwiki-4b596ea5c67989b2d7f8a5ab90a73b19a4bb7d93.tar.gz
Test RCS Id keyword expansion on typical commit.
-rwxr-xr-xt/cvs.t9
1 files 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);