Tag list check suvcceeded.

diff --git a/src b/src
index b74fb792993475d6bc7e295a2a224425b33b3611..715cd12cdf9a5e4d3f4aafc2d61ac2edbd0da150 100755 (executable)
--- 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 a6c843a466da0d97948c8afad56ecb27e764d758..6cedd93fb0beae46eca71e1fb075a8f70011d8d0 100755 (executable)
--- 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