Added mspec tag --list TAG and --list-all.

lib/mspec/commands/mspec-tag.rb

@@ -12,6 +12,7 @@ def initialize
     config[:tagger]  = :add
     config[:tag]     = 'fails:'
     config[:outcome] = :fail
+    config[:ltags]   = []
   end
 
   def options(argv=ARGV)
@@ -38,7 +39,33 @@ def options(argv=ARGV)
     options.verbose
 
     options.doc "\n What action to perform and when to perform it"
-    options.tagging
+    options.on("-N", "--add", "TAG",
+       "Add TAG with format 'tag' or 'tag(comment)' (see -Q, -F, -L)") do |o|
+      config[:tagger] = :add
+      config[:tag] = "#{o}:"
+    end
+    options.on("-R", "--del", "TAG",
+       "Delete TAG (see -Q, -F, -L)") do |o|
+      config[:tagger] = :del
+      config[:tag] = "#{o}:"
+      config[:outcome] = :pass
+    end
+    options.on("-Q", "--pass", "Apply action to specs that pass (default for --del)") do
+      config[:outcome] = :pass
+    end
+    options.on("-F", "--fail", "Apply action to specs that fail (default for --add)") do
+      config[:outcome] = :fail
+    end
+    options.on("-L", "--all", "Apply action to all specs") do
+      config[:outcome] = :all
+    end
+    options.on("--list", "TAG", "Display descriptions of any specs tagged with TAG") do |t|
+      config[:tagger] = :list
+      config[:ltags] << t
+    end
+    options.on("--list-all", "Display descriptions of any tagged specs") do
+      config[:tagger] = :list_all
+    end
 
     options.doc "\n Help!"
     options.version MSpec::VERSION
@@ -60,12 +87,21 @@ def options(argv=ARGV)
   end
 
   def register
-    super
-
-    tag = SpecTag.new config[:tag]
-    tagger = TagAction.new(config[:tagger], config[:outcome], tag.tag, tag.comment,
-                           config[:atags], config[:astrings])
+    case config[:tagger]
+    when :add, :del
+      tag = SpecTag.new config[:tag]
+      tagger = TagAction.new(config[:tagger], config[:outcome], tag.tag, tag.comment,
+                             config[:atags], config[:astrings])
+    when :list, :list_all
+      tagger = TagListAction.new config[:tagger] == :list_all ? nil : config[:ltags]
+      MSpec.register_mode :pretend
+      config[:formatter] = nil
+    else
+      raise ArgumentError, "No recognized action given"
+    end
     tagger.register
+
+    super
   end
 
   def run

lib/mspec/runner/actions.rb

@@ -2,5 +2,6 @@
 require 'mspec/runner/actions/timer'
 require 'mspec/runner/actions/filter'
 require 'mspec/runner/actions/tag'
+require 'mspec/runner/actions/taglist'
 require 'mspec/runner/actions/debug'
 require 'mspec/runner/actions/gdb'

lib/mspec/runner/actions/filter.rb

@@ -24,7 +24,7 @@ def load
     @tfilter = nil
     return if @tags.empty?
 
-    desc = MSpec.read_tags(*@tags).map { |t| t.description }
+    desc = MSpec.read_tags(@tags).map { |t| t.description }
     return if desc.empty?
 
     @tfilter = MatchFilter.new(nil, *desc)

lib/mspec/runner/actions/taglist.rb

@@ -0,0 +1,56 @@
+require 'mspec/runner/actions/filter'
+
+# TagListAction - prints out the descriptions for any specs
+# tagged with +tags+. If +tags+ is an empty list, prints out
+# descriptions for any specs that are tagged.
+class TagListAction
+  def initialize(tags=nil)
+    @tags = tags.nil? || tags.empty? ? nil : Array(tags)
+    @filter = nil
+  end
+
+  # Returns true. This enables us to match any tag when loading
+  # tags from the file.
+  def include?(arg)
+    true
+  end
+
+  # Returns true if any tagged descriptions matches +string+.
+  def ===(string)
+    @filter === string
+  end
+
+  # Prints a banner about matching tagged specs.
+  def start
+    if @tags
+      print "\nListing specs tagged with #{@tags.map { |t| "'#{t}'" }.join(", ") }\n\n"
+    else
+      print "\nListing all tagged specs\n\n"
+    end
+  end
+
+  # Creates a MatchFilter for specific tags or for all tags.
+  def load
+    @filter = nil
+    desc = MSpec.read_tags(@tags || self).map { |t| t.description }
+    @filter = MatchFilter.new(nil, *desc) unless desc.empty?
+  end
+
+  # Prints the spec description if it matches the filter.
+  def after(state)
+    return unless self === state.description
+    print state.description, "\n"
+  end
+
+  def register
+    MSpec.register :start, self
+    MSpec.register :load,  self
+    MSpec.register :after, self
+  end
+
+  def unregister
+    MSpec.unregister :start, self
+    MSpec.unregister :load,  self
+    MSpec.unregister :after, self
+  end
+end

lib/mspec/runner/filters/tag.rb

@@ -7,7 +7,7 @@ def initialize(what, *tags)
   end
 
   def load
-    desc = MSpec.read_tags(*@tags).map { |t| t.description }
+    desc = MSpec.read_tags(@tags).map { |t| t.description }
 
     @filter = MatchFilter.new(@what, *desc)
     @filter.register

lib/mspec/runner/mspec.rb

@@ -237,7 +237,9 @@ def self.tags_file
     end
   end
 
-  def self.read_tags(*keys)
+  # Returns a list of tags matching any tag string in +keys+ based
+  # on the return value of <tt>keys.include?("tag_name")</tt>
+  def self.read_tags(keys)
     tags = []
     file = tags_file
     if File.exist? file

lib/mspec/utils/options.rb

@@ -369,29 +369,6 @@ def verify
     end
   end
 
-  def tagging
-    on("-N", "--add", "TAG",
-       "Add TAG with format 'tag' or 'tag(comment)' (see -Q, -F, -L)") do |o|
-      config[:tagger] = :add
-      config[:tag] = "#{o}:"
-    end
-    on("-R", "--del", "TAG",
-       "Delete TAG (see -Q, -F, -L)") do |o|
-      config[:tagger] = :del
-      config[:tag] = "#{o}:"
-      config[:outcome] = :pass
-    end
-    on("-Q", "--pass", "Apply action to specs that pass (default for --del)") do
-      config[:outcome] = :pass
-    end
-    on("-F", "--fail", "Apply action to specs that fail (default for --add)") do
-      config[:outcome] = :fail
-    end
-    on("-L", "--all", "Apply action to all specs") do
-      config[:outcome] = :all
-    end
-  end
-
   def action_filters
     on("-K", "--action-tag", "TAG",
        "Spec descriptions marked with TAG will trigger the specified action") do |o|

lib/mspec/utils/script.rb

@@ -27,6 +27,7 @@ def initialize
     config[:xprofiles] = []
     config[:atags]     = []
     config[:astrings]  = []
+    config[:ltags]     = []
     config[:abort]     = true
   end
 
@@ -51,7 +52,7 @@ def load(name)
   end
 
   def register
-    config[:formatter].new(config[:output]).register
+    config[:formatter].new(config[:output]).register if config[:formatter]
 
     MatchFilter.new(:include, *config[:includes]).register    unless config[:includes].empty?
     MatchFilter.new(:exclude, *config[:excludes]).register    unless config[:excludes].empty?