From 8c7db4039d10c537e637ea5bef62f56bdb9fd763 Mon Sep 17 00:00:00 2001
From: "Eric S. Raymond" <esr@thyrsus.com>
Date: Wed, 12 Nov 2014 16:22:17 -0500
Subject: [PATCH] Regression test for named lookup.

---
 srctest | 14 ++++++++++++--
 1 file changed, 12 insertions(+), 2 deletions(-)

diff --git a/srctest b/srctest
index 794d96e..975ed02 100755
--- a/srctest
+++ b/srctest
@@ -242,12 +242,14 @@ src $TESTOPTS list 3 newname1 | grep "Amended comment" >/dev/null
 check "amended comment content"
 
 # Introduce a test history with some branchiness, so
-# we can test traversal across branch joins.
+# we can test traversal across branch joins. Also has tags.
 cat >.src/sample,v <<EOF
 head	1.4;
 branch	1.3.1.4.1;
 access;
 symbols
+	BLARGH:1.4
+	GORP:1.3.1.4
 	sample:1.3.1.4.0.1
 	muggle:1.3.0.1;
 locks
@@ -384,7 +386,6 @@ log
 text
 @d2 1
 @
-
 EOF
 
 cat >sample.seqlog <<EOF
@@ -426,10 +427,19 @@ Second comment.
 ------------------------------------------------------------------------------
 EOF
 
+cat >sample.taglog <<EOF
+= sample ====================================================================
+4     - 1970-01-02T00:03:00Z On a branch?
+EOF
+
 src $TESTOPTS log 2..6 sample >tryit
 diff -u tryit sample.branchlog
 check "traversal by .."
 
+src $TESTOPTS list @BLARGH sample >tryit
+diff -u tryit sample.taglog
+check "named-tag lookup with @"
+
 
 rm -fr $SANDBOX
 
-- 
2.43.0