db_lint: check branch descriptions.

1 files changed, 11 insertions, 1 deletions

diff --git a/crawl-ref/source/util/db_lint b/crawl-ref/source/util/db_lint
index 6d04e1ce94..9a05c9825f 100755
--- a/crawl-ref/source/util/db_lint
+++ b/crawl-ref/source/util/db_lint
@@ -123,11 +123,21 @@ read_file("descript/items");
 read_file("descript/unident");
 read_file("descript/spells");
 read_file("descript/gods");
-read_file("descript/branches");
 read_file("descript/skills");
 read_file("descript/ability");
 read_file("descript/commands");
 
+if (read_file("descript/branches"))
+{
+    for (`util/gather_branches`)
+    {
+        chomp;
+        err "$file: No description for branch '$_'\n" unless $entries{$_};
+        delete $keys{$_};
+    }
+    err "$file: Unused description for branch '$_'\n" for sort keys %keys;
+}
+
 if (read_file("descript/features"))
 {
     $entries{"A gate leading to a distant place"} = 1;