diff options
author | Joey Hess <joey@kodama.kitenet.net> | 2008-07-25 19:40:28 -0400 |
---|---|---|
committer | Joey Hess <joey@kodama.kitenet.net> | 2008-07-25 19:40:28 -0400 |
commit | 88e9ef449dda8faaeb7780086a972c279133d4db (patch) | |
tree | d28acc9b49af8ced88fef6040274188b84e89310 /t/permalink.t | |
parent | b7bf566f55ec844a1d472b2efb8a2863638aacdc (diff) | |
download | ikiwiki-88e9ef449dda8faaeb7780086a972c279133d4db.tar ikiwiki-88e9ef449dda8faaeb7780086a972c279133d4db.tar.gz |
add a regression test to ensure that permalinks never change
Diffstat (limited to 't/permalink.t')
-rwxr-xr-x | t/permalink.t | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/t/permalink.t b/t/permalink.t new file mode 100755 index 000000000..9b44cd72e --- /dev/null +++ b/t/permalink.t @@ -0,0 +1,13 @@ +#!/usr/bin/perl +use warnings; +use strict; +use Test::More 'no_plan'; + +ok(! system("mkdir t/tmp")); +ok(! system("make -s ikiwiki.out")); +ok(! system("LC_ALL=C perl -T -I. ./ikiwiki.out -plugin inline -url=http://example.com -cgiurl=http://example.com/ikiwiki.cgi -rss -atom -underlaydir=underlays/basewiki -templatedir=templates t/tinyblog t/tmp/out")); +# This guid should never, ever change, for any reason whatsoever! +my $guid="http://example.com/post/"; +ok(length `grep '<guid>$guid</guid>' t/tmp/out/index.rss`); +ok(length `grep '<id>$guid</id>' t/tmp/out/index.atom`); +ok(! system("rm -rf t/tmp t/tinyblog/.ikiwiki")); |