Tests for Requirement DSL

This commit is contained in:
Jack Nagel 2013-01-15 18:39:19 -06:00
parent 175820af69
commit 968782a31b

View File

@ -25,4 +25,20 @@ class RequirementTests < Test::Unit::TestCase
dep = Requirement.new(:build, "bar") dep = Requirement.new(:build, "bar")
assert_equal [:build, "bar"], dep.tags assert_equal [:build, "bar"], dep.tags
end end
def test_dsl_env_single_argument
req = Class.new(Requirement) { env :userpaths }.new
assert req.env.userpaths?
end
def test_dsl_env_multiple_arguments
req = Class.new(Requirement) { env :userpaths, :std }.new
assert req.env.userpaths?
assert req.env.std?
end
def test_dsl_fatal
req = Class.new(Requirement) { fatal true }.new
assert req.fatal?
end
end end