summaryrefslogtreecommitdiffstats
path: root/test
diff options
context:
space:
mode:
authorLuke Kanies <luke@reductivelabs.com>2010-01-04 16:44:44 -0800
committertest branch <puppet-dev@googlegroups.com>2010-02-17 06:50:53 -0800
commit6bf19532710fdb0e5619e00d6656e6b535297247 (patch)
tree1b2735f51b338ddf17f0df49c0a9752841a592d7 /test
parentdf2d39248dd0bb2adc7b4f723722079cad2749ad (diff)
downloadpuppet-6bf19532710fdb0e5619e00d6656e6b535297247.tar.gz
puppet-6bf19532710fdb0e5619e00d6656e6b535297247.tar.xz
puppet-6bf19532710fdb0e5619e00d6656e6b535297247.zip
Removing old, never-used DSL code
Signed-off-by: Luke Kanies <luke@reductivelabs.com>
Diffstat (limited to 'test')
-rwxr-xr-xtest/other/dsl.rb215
1 files changed, 0 insertions, 215 deletions
diff --git a/test/other/dsl.rb b/test/other/dsl.rb
deleted file mode 100755
index deafca791..000000000
--- a/test/other/dsl.rb
+++ /dev/null
@@ -1,215 +0,0 @@
-#!/usr/bin/env ruby
-
-require File.dirname(__FILE__) + '/../lib/puppettest'
-
-require 'puppet'
-require 'puppet/dsl'
-require 'puppettest'
-
-class TestDSL < Test::Unit::TestCase
- include PuppetTest
- include Puppet::DSL
-
- def teardown
- super
- Puppet::DSL::Aspect.clear
- end
-
- def test_aspect
- a = nil
- assert_nothing_raised do
- a = aspect :yaytest do
- end
- end
-
- assert_equal(a, Puppet::DSL::Aspect[:yaytest])
-
- # Now make a child aspect
- b = nil
- assert_nothing_raised do
- b = aspect :child, :inherits => :yaytest do
- end
- end
-
- assert(b.child_of?(a), "Parentage not set up correctly")
- assert(b.child_of?(:yaytest), "Parentage not set up for symbols")
-
- # Now make another subclass
- c = nil
- assert_nothing_raised do
- c = aspect :kid, :inherits => :child do
- end
- end
-
- assert(c.child_of?(b), "Parentage not set up correctly")
- assert(c.child_of?(a), "Parentage is not inherited")
-
- # Lastly, make a separate aspect
- x = nil
- assert_nothing_raised do
- x = aspect :other do
- end
- end
-
- assert(! x.child_of?(a), "Parentage came from nowhere")
- assert(! x.child_of?(b), "Parentage came from nowhere")
- assert(! x.child_of?(c), "Parentage came from nowhere")
-
- # Make sure we can specify the name or the aspect
- y = nil
- assert_nothing_raised do
- x = aspect :naming, :inherits => a do
- end
- end
- assert(x.child_of?(a), "Parentage not set up correctly")
-
- # And make sure the parent must exist
- z = nil
- assert_raise(RuntimeError) do
- z = aspect :noparent, :inherits => :nosuchaspect do
- end
- end
- assert(x.child_of?(a), "Parentage not set up correctly")
- end
-
- def test_evaluate
- parent = child = nil
- parenteval = childeval = nil
-
- assert_nothing_raised do
- parent = aspect :parent do
- if parenteval
- raise "parent already evaluated"
- end
- parenteval = true
- end
-
- child = aspect :child, :inherits => parent do
- if childeval
- raise "child already evaluated"
- end
- childeval = true
- end
- end
-
- assert_nothing_raised do
- parent.evaluate()
- end
-
- assert(parenteval, "Parent was not evaluated")
- assert(parent.evaluated?, "parent was not considered evaluated")
-
- # Make sure evaluating twice silently does nothing
- assert_nothing_raised do
- parent.evaluate()
- end
-
- # Now evaluate the child
- assert_nothing_raised do
- child.evaluate
- end
-
- assert(childeval, "child was not evaluated")
- assert(child.evaluated?, "child was not considered evaluated")
-
- # Now reset them both
- parenteval = childeval = nil
- parent.evaluated = false
- child.evaluated = false
-
- # evaluate the child
- assert_nothing_raised do
- child.evaluate
- end
-
- # and make sure both get evaluated
- assert(parenteval, "Parent was not evaluated")
- assert(parent.evaluated?, "parent was not considered evaluated")
- assert(childeval, "child was not evaluated")
- assert(child.evaluated?, "child was not considered evaluated")
- end
-
- def test_acquire
- evalled = false
- a = aspect :test do
- evalled = true
- end
-
- assert_nothing_raised do
- acquire :test
- end
-
- assert(evalled, "Did not evaluate aspect")
-
- assert_nothing_raised do
- acquire :test
- end
- end
-
- def test_newresource
- filetype = Puppet::Type.type(:file)
- path = tempfile()
-
- a = aspect :testing
-
- resource = nil
- assert_nothing_raised do
- resource = a.newresource filetype, path, :content => "yay", :mode => "640"
- end
-
- assert_instance_of(Puppet::Parser::Resource, resource)
-
- assert_equal("yay", resource[:content])
- assert_equal("640", resource[:mode])
- assert_equal(:testing, resource.source.name)
-
- # Now try exporting our aspect
- assert_nothing_raised do
- a.evaluate
- end
-
- result = nil
- assert_nothing_raised do
- result = a.export
- end
-
- assert_equal([resource], result)
-
- # Then try the DSL export
- assert_nothing_raised do
- result = export
- end
-
- assert_instance_of(Puppet::TransBucket, result)
-
- # And just for kicks, test applying everything
- assert_nothing_raised do
- apply()
- end
-
- assert(FileTest.exists?(path), "File did not get created")
- assert_equal("yay", File.read(path))
- end
-
- def test_typemethods
- Puppet::Type.loadall
- filetype = Puppet::Type.type(:file)
- path = tempfile()
-
- a = aspect :testing
-
- Puppet::Type.eachtype do |type|
- next if type.name.to_s =~ /test/
- assert(a.respond_to?(type.name),
- "Aspects do not have a %s method" % type.name)
- end
-
- file = nil
- assert_nothing_raised do
- file = a.file path,
- :content => "yay", :mode => "640"
- end
-
- assert_instance_of(Puppet::Parser::Resource, file)
- end
-end