From ca3d6365987e84538cf528ff155629d49587a2bb Mon Sep 17 00:00:00 2001
From: "Eric S. Raymond" <esr@thyrsus.com>
Date: Sat, 15 Nov 2014 16:09:15 -0500
Subject: [PATCH] Regression test for branch deletion. All tests pass.

---
 src     |  2 ++
 srctest | 24 +++++++++++++-----------
 2 files changed, 15 insertions(+), 11 deletions(-)

diff --git a/src b/src
index 1ed78a2..11ff43c 100755
--- a/src
+++ b/src
@@ -1007,6 +1007,8 @@ def tag_helper(args, legend, validation_hook, delete_method, set_method):
             for arg in ctx.args:
                 metadata = History(arg)
                 if name not in metadata.symbols:
+                    croak("in %s, %s is not a symbol" % (arg, name))
+                elif backend.isbranch(metadata.symbols[name]) != (legend  == "branch"):
                     croak("in %s, %s is not a %s" % (arg, name, legend))
                 else:
                     with backend.lifter(arg):
diff --git a/srctest b/srctest
index b20bb73..5099841 100755
--- a/srctest
+++ b/srctest
@@ -577,14 +577,14 @@ src $TESTOPTS status newname1 newname2 >tryit
 diff -u statuslog tryit
 check "status after ignore"
 
-src $TESTOPTS branch delete GORP sample
+src $TESTOPTS branch delete trunk sample
 check "branch delete"
 
 cat >newlist <<EOF
 = sample ====================================================================
    0	trunk
    3	muggle
-   8	sample
+   7	sample
 EOF
 
 src $TESTOPTS branch -l sample >tryit
@@ -593,31 +593,31 @@ check "branch list check after delete" delete
 
 cat >newlog <<EOF
 = sample ====================================================================
-13   | 1970-01-02T00:12:00Z
+12   | 1970-01-02T00:11:00Z
 I see you
 ------------------------------------------------------------------------------
-12   | 1970-01-02T00:11:00Z
+11   | 1970-01-02T00:10:00Z
 That's good.
 ------------------------------------------------------------------------------
-11   | 1970-01-02T00:10:00Z
+10   | 1970-01-02T00:09:00Z
 No good.
 ------------------------------------------------------------------------------
-10   | 1970-01-02T00:09:00Z
+9    | 1970-01-02T00:08:00Z
 It' all good.
 ------------------------------------------------------------------------------
-9    | 1970-01-02T00:08:00Z
+8    | 1970-01-02T00:07:00Z
 All fixed up.
 ------------------------------------------------------------------------------
-8    | 1970-01-02T00:07:00Z
+7    | 1970-01-02T00:06:00Z
 Utterly fubar
 ------------------------------------------------------------------------------
-7    | 1970-01-02T00:06:00Z
+6    | 1970-01-02T00:05:00Z
 Totally chenille.
 ------------------------------------------------------------------------------
-6    | 1970-01-02T00:05:00Z
+5    | 1970-01-02T00:04:00Z
 Still utterly fubar
 ------------------------------------------------------------------------------
-5    | 1970-01-02T00:04:00Z
+4    | 1970-01-02T00:03:00Z
 Totally unfubared.
 ------------------------------------------------------------------------------
 3    | 1970-01-02T00:02:00Z
@@ -635,6 +635,8 @@ src $TESTOPTS log sample >tryit
 diff -u newlog tryit
 check "content after branch deletion"
 
+echo "srctest: all tests succeeded"
+
 rm -fr $SANDBOX
 
 # end
-- 
2.43.0