Regression test for named lookup.

diff --git a/srctest b/srctest
index 794d96ec4a30811783ab8ee261818d8615a3fa09..975ed02d34fda7a8fdb79eeab33d36febfaf2ceb 100755 (executable)
--- 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