From: Simon McVittie <smcv@debian.org>
Date: Fri, 3 Aug 2012 11:49:20 +0000 (+0100)
Subject: map test: print maps' source as comments
X-Git-Tag: 3.20130504~74^2~3
X-Git-Url: http://git.vanrenterghem.biz/git.ikiwiki.info.git/commitdiff_plain/12ca01fd5c67c158e916c9068453271235a2a0e7?hp=3f27a9733660c811c6b8d640ddadbd811979e24c

map test: print maps' source as comments
---

diff --git a/t/map.t b/t/map.t
index 4c8e5ede6..e764457d1 100755
--- a/t/map.t
+++ b/t/map.t
@@ -56,6 +56,12 @@ foreach my $page (@pages) {
 	writefile("$page.mdwn", "t/tmp", "your ad here");
 }
 
+sub comment {
+	my $str = shift;
+	$str =~ s/^/# /gm;
+	print $str;
+}
+
 sub node {
 	my $name = shift;
 	my $kids = shift;
@@ -105,13 +111,14 @@ sub check_nodes {
 sub check {
 	my $pagespec = shift;
 	my $expected = shift;
-	print "*** $pagespec ***\n";
+	comment("*** $pagespec ***\n");
 
 	my $html = IkiWiki::Plugin::map::preprocess(pages => $pagespec,
 		page => 'map',
 		destpage => 'map');
+	comment($html);
 	my $tree = XML::Twig->new(pretty_print => 'indented');
-	eval { 
+	eval {
 		$tree->parse($html);
 	};
 	if ($@) {
@@ -131,7 +138,6 @@ sub check {
 	}
 
 	$tree->dispose;
-	print "<!-- -->\n";
 }
 
 check('doesnotexist', []);