From 3e0e30a2fab1b5770c770bbc4df3d55bef611d20 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Thu, 3 Aug 2017 09:53:58 +0100
Subject: test suite: dpkgsourceignores-docs: Check dgit-maint-merge(7) -i -I
 rune

Check that the rune we document is the same as dgit actually uses.

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---
 tests/tests/dpkgsourceignores-docs | 60 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 60 insertions(+)
 create mode 100755 tests/tests/dpkgsourceignores-docs

(limited to 'tests/tests')

diff --git a/tests/tests/dpkgsourceignores-docs b/tests/tests/dpkgsourceignores-docs
new file mode 100755
index 0000000..397b783
--- /dev/null
+++ b/tests/tests/dpkgsourceignores-docs
@@ -0,0 +1,60 @@
+#!/bin/bash
+set -e
+. tests/lib
+
+t-restriction-x-dgit-intree-only
+# we need the .pod source, which is not shipped
+
+cd $tmp
+
+: ----- extract args from document -----
+
+perl -ne '
+	BEGIN { print "\n=head1 dgit-test-title\n\n"; }
+	next unless
+		m/^=for dgit-test dpkg-source-ignores begin/..
+		m/^=for dgit-test dpkg-source-ignores end/;
+	next unless m/dpkg-buildpackage.*-i.*-I/;
+	s/\s*dpkg-buildpackage\s+//;
+	s/\s+-S\s*//;
+	print;
+' $root/dgit-maint-merge.7.pod >doc.pod
+
+pod2text doc.pod >doc.txt
+
+perl -ne '
+	next unless m/\S/;
+	next if m/dgit-test-title/;
+	print "for arg in ";
+	print;
+	print " do\n";
+' doc.txt >doc.sh
+
+cat >>doc.sh <<'END'
+	printf "%s\n" "$arg"
+done
+END
+
+chmod +x doc.sh
+./doc.sh >doc.args
+
+: ----- extract args from dgit -----
+
+perl -ne '
+	next unless m/^\s*our\s+\@dpkg_source_ignores\s*=/;
+	print;
+' $root/dgit >dgit.pl
+
+cat >>dgit.pl <<'END'
+	foreach my $arg (@dpkg_source_ignores) {
+		print $arg, "\n" or die $!;
+	}
+END
+
+perl dgit.pl >dgit.args
+
+: ----- compare -----
+
+diff -u dgit.args doc.args
+
+t-ok
-- 
cgit v1.2.3