From: Eric S. Raymond <esr@thyrsus.com>
Date: Wed, 12 Nov 2014 21:22:17 +0000 (-0500)
Subject: Regression test for named lookup.
X-Git-Tag: 0.6~15
X-Git-Url: http://thyrsus.com/gitweb/?a=commitdiff_plain;h=8c7db4039d10c537e637ea5bef62f56bdb9fd763;p=src.git

Regression test for named lookup.
---

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