From: Eric S. Raymond <esr@thyrsus.com>
Date: Fri, 7 Nov 2014 22:34:29 +0000 (-0500)
Subject: Tag list check suvcceeded.
X-Git-Tag: 0.2~36
X-Git-Url: http://thyrsus.com/gitweb/?a=commitdiff_plain;h=25680ec427a35378945567634b9698e25e57e744;p=src.git

Tag list check suvcceeded.
---

diff --git a/src b/src
index b74fb79..715cd12 100755
--- a/src
+++ b/src
@@ -540,8 +540,6 @@ def set_tags(args):
     if not args:
         croak("setting tags requires a tagname argument")
     tagname = args.pop(0)
-    if not args:
-        croak("setting tags requires a revision-spec after the tag name")    
     (revspec, args) = preamble("tag", args)
     for arg in args:
         master = RCSLog(arg)
diff --git a/srctest b/srctest
index a6c843a..6cedd93 100755
--- a/srctest
+++ b/srctest
@@ -117,6 +117,18 @@ do
     check "revision $rev content test"
 done
 
+src $TESTOPTS tag sampletag
+check "tag set to default tip revision"
+
+cat >testfile8 <<EOF
+= testfile1 =================================================================
+   3	sampletag
+EOF
+src $TESTOPTS tag >testfile9
+diff testfile8 testfile9
+check "tag list check"
+
+
 # to do: tag, fast-export
 
 # end