2003-09-19 02:48:46 +00:00
|
|
|
# Author:: Nathaniel Talbott.
|
|
|
|
# Copyright:: Copyright (c) 2000-2003 Nathaniel Talbott. All rights reserved.
|
|
|
|
# License:: Ruby license.
|
|
|
|
|
|
|
|
module Test
|
|
|
|
module Unit
|
|
|
|
module Collector
|
|
|
|
class ObjectSpace
|
|
|
|
NAME = 'collected from the ObjectSpace'
|
|
|
|
|
|
|
|
def initialize(source=::ObjectSpace)
|
|
|
|
@source = source
|
2003-10-03 04:04:26 +00:00
|
|
|
@filters = []
|
2003-09-19 02:48:46 +00:00
|
|
|
end
|
|
|
|
|
|
|
|
def collect(name=NAME)
|
|
|
|
suite = TestSuite.new(name)
|
|
|
|
tests = []
|
|
|
|
@source.each_object(Class) do |klass|
|
|
|
|
tests.concat(klass.suite.tests) if(Test::Unit::TestCase > klass)
|
|
|
|
end
|
2003-10-02 02:20:42 +00:00
|
|
|
tests.sort_by{|t| t.name}.each{|test| suite << test if(include(test))}
|
2003-09-19 02:48:46 +00:00
|
|
|
suite
|
|
|
|
end
|
|
|
|
|
|
|
|
def include(test)
|
2003-10-03 04:04:26 +00:00
|
|
|
return true if(@filters.empty?)
|
2003-09-19 02:48:46 +00:00
|
|
|
@filters.each do |filter|
|
|
|
|
return true if(filter.call(test))
|
|
|
|
end
|
|
|
|
false
|
|
|
|
end
|
|
|
|
|
|
|
|
def filter=(filters)
|
|
|
|
@filters = case(filters)
|
|
|
|
when Proc
|
|
|
|
[filters]
|
|
|
|
when Array
|
|
|
|
filters
|
|
|
|
end
|
|
|
|
end
|
|
|
|
end
|
|
|
|
end
|
|
|
|
end
|
|
|
|
end
|