puppet 0.24.9 → 0.25.0

data/test/ral/type/property.rb

@@ -1,388 +0,0 @@
-#!/usr/bin/env ruby
-
-require File.dirname(__FILE__) + '/../../lib/puppettest'
-
-require 'puppettest'
-
-class TestProperty < Test::Unit::TestCase
-	include PuppetTest
-
-    def newinst(property, resource = nil)
-        inst = nil
-        unless resource
-            resource = "fakeresource"
-            resource.meta_def(:pathbuilder) do [self.to_s] end
-            resource.meta_def(:provider) do nil end
-            resource.meta_def(:fakeproperty) do '' end
-        end
-        assert_nothing_raised {
-            newinst = property.new(:resource => resource)
-            def newinst.retrieve(); return @fakeprovidervalue; end;
-            return newinst
-        }
-    end
-    
-    def newproperty(name = :fakeproperty)
-        property = Class.new(Puppet::Property) do
-            @name = name
-        end
-        Object.const_set("FakeProperty", property)
-        property.initvars
-        cleanup do
-            Object.send(:remove_const, "FakeProperty")
-        end
-
-        return property
-    end
-
-    def newmodel(name)
-        # Create an object that responds to myproperty as an attr
-        provklass = Class.new { attr_accessor name
-            def pathbuilder
-                ["provklass"]
-            end
-        }
-        prov = provklass.new
-
-        klass = Class.new { attr_accessor :provider, :path
-            def pathbuilder
-                ["instklass"]
-            end
-        }
-        klassinst = klass.new
-        klassinst.path = "instpath"
-        klassinst.provider = prov
-
-        return prov, klassinst
-    end
-
-    # Make sure we correctly look up names.
-    def test_value_name
-        property = newproperty()
-
-        property.newvalue(:one)
-        property.newvalue(/\d+/)
-
-        name = nil
-        ["one", :one].each do |value|
-            assert_nothing_raised do
-                name = property.value_name(value)
-            end
-            assert_equal(:one, name)
-        end
-        ["42"].each do |value|
-            assert_nothing_raised do
-                name = property.value_name(value)
-            end
-            assert_equal(/\d+/, name)
-        end
-        # these values should not have a name
-        ["two", :three, ''].each do |value|
-            assert_nothing_raised do
-                name = property.value_name(value)
-            end
-            assert_nil(name)
-        end
-    end
-
-    # Test that we correctly look up options for values.
-    def test_value_option
-        property = newproperty()
-
-        options = {
-            :one => {:event => :yay, :call => :before},
-            /\d+/ => {:event => :fun, :call => :instead}
-        }
-        property.newvalue(:one, options[:one])
-        property.newvalue(/\d+/, options[/\d+/])
-
-        options.each do |name, opts|
-            opts.each do |param, value|
-                assert_equal(value, property.value_option(name, param))
-            end
-        end
-    end
-
-    def test_newvalue
-        property = newproperty()
-
-        # These are bogus because they don't define events. :/
-        assert_nothing_raised {
-            property.newvalue(:one) do
-                @fakeprovidervalue = 1
-            end
-        }
-
-        assert_nothing_raised {
-            property.newvalue("two") do
-                @fakeprovidervalue = 2
-            end
-        }
-
-        # Make sure we default to using the block instead
-        assert_equal(:instead, property.value_option(:one, :call),
-            ":call was not set to :instead when a block was provided")
-
-        inst = newinst(property)
-
-        assert_nothing_raised {
-            inst.should = "one"
-        }
-
-        assert_equal(:one, inst.should)
-        ret = nil
-        assert_nothing_raised { inst.set_one }
-        assert_equal(1, inst.retrieve)
-
-        assert_nothing_raised {
-            inst.should = :two
-        }
-
-        assert_equal(:two, inst.should)
-        assert_nothing_raised { inst.set_two }
-        assert_equal(2, inst.retrieve)
-    end
-
-    def test_newpropertyvaluewithregexes
-        property = newproperty()
-
-        assert_nothing_raised {
-            property.newvalue(/^\w+$/) do
-                return :regex_matched
-            end
-        }
-
-        inst = newinst(property)
-
-        assert_nothing_raised {
-            inst.should = "yayness"
-        }
-
-        assert_equal("yayness", inst.should)
-
-        assert_nothing_raised {
-            inst.sync
-        }
-
-        assert_equal("yayness".upcase, inst.retrieve)
-    end
-
-    def test_newvalue_event_option
-        property = newproperty()
-
-        assert_nothing_raised do
-            property.newvalue(:myvalue, :event => :fake_valued) do
-            end
-            property.newvalue(:other, :event => "fake_other") do
-            end
-        end
-        inst = newinst(property)
-
-        assert_nothing_raised {
-            inst.should = :myvalue
-        }
-
-        ret = nil
-        assert_nothing_raised {
-            ret = inst.sync
-        }
-
-        assert_equal(:fake_valued, ret,
-                     "Event did not get returned correctly")
-
-        assert_nothing_raised {
-            inst.should = :other
-        }
-
-        assert_nothing_raised {
-            ret = inst.sync
-        }
-
-        assert_equal(:fake_other, ret,
-                     "Event did not get returned correctly")
-    end
-
-    # We want to support values with no blocks, either regexes or strings.
-    # If there's no block provided, then we should call the provider mechanism
-    # like we would normally.
-    def test_newvalue_with_no_block
-        property = newproperty(:myproperty)
-
-        assert_nothing_raised {
-            property.newvalue(:value, :event => :matched_value)
-        }
-        assert_nothing_raised {
-            property.newvalue(/^\d+$/, :event => :matched_number)
-        }
-
-        assert_equal(:none, property.value_option(:value, :call),
-            ":call was not set to none when no block is provided")
-
-        prov, klassinst = newmodel(:myproperty)
-
-        inst = newinst(property, klassinst)
-
-        # Now make sure we can set the values, they get validated as normal,
-        # and they set the values on the resource rather than trying to call
-        # a method
-        {:value => :matched_value, "27" => :matched_number}.each do |value, event|
-            assert_nothing_raised do
-                inst.should = value
-            end
-            ret = nil
-            assert_nothing_raised do
-                ret = inst.sync
-            end
-            assert_equal(event, ret, "Did not return correct event for %s" % value)
-            assert_equal(value, prov.myproperty, "%s was not set right" % value)
-        end
-
-        # And make sure we still fail validations
-        assert_raise(ArgumentError) do
-            inst.should = "invalid"
-        end
-    end
-
-    def test_tags
-        obj = "yay"
-        metaobj = class << obj; self; end
-
-        metaobj.send(:attr_accessor, :tags)
-
-        tags = [:some, :tags, :for, :testing]
-        obj.tags = tags
-
-        propertyklass = newproperty
- 
-        inst = nil
-        assert_nothing_raised do
-            inst = propertyklass.new(:resource => obj)
-        end
-
-        assert_nothing_raised do
-            assert_equal(tags + [inst.name], inst.tags)
-        end
-    end
-
-    def test_failure
-        s = Struct.new(:line, :file, :path, :pathbuilder, :name)
-        p = s.new(1, "yay", "rah", "struct", "name")
-
-        myprovider = Class.new(Puppet::Provider)
-  
-        def p.provider; nil; end;
-        myproperty = Class.new(Puppet::Property) do 
-            @name = 'name'
-        end
-        myproperty.initvars
-
-        myproperty.newvalue :mkfailure do
-            raise "It's all broken"
-        end
-        property = myproperty.new(:resource => p)
-
-        assert_raise(Puppet::Error) do
-            property.set(:mkfailure)
-        end
-    end
-
-    # Make sure 'set' behaves correctly WRT to call order.  This tests that the
-    # :call value is handled correctly in all cases.
-    def test_set
-        property = newproperty(:myproperty)
-
-        $setting = []
-
-        newval = proc do |name, call|
-            options = {}
-            if call
-                options[:call] = name
-                block = proc { $setting << name }
-            end
-            assert_nothing_raised("Could not create %s value" % name) {
-                if block
-                    property.newvalue(name, options, &block)
-                else
-                    property.newvalue(name, options)
-                end
-            }
-        end
-
-        newval.call(:none, false)
-
-        # Create a value with no block; it should default to :none
-        newval.call(:before, true)
-
-        # One with a block but after
-        newval.call(:after, true)
-
-        # One with an explicit instead
-        newval.call(:instead, true)
-
-        # And one with an implicit instead
-        assert_nothing_raised do
-            property.newvalue(:implicit) do
-                $setting << :implicit
-            end
-        end
-
-        # Now create a provider
-        prov, model = newmodel(:myproperty)
-        inst = newinst(property, model)
-
-        # Mark when we're called
-        prov.meta_def(:myproperty=) do |value| $setting << :provider end
-
-        # Now run through the list and make sure everything is correct
-        {:before => [:before, :provider],
-            :after => [:provider, :after],
-            :instead => [:instead],
-            :none => [:provider],
-            :implicit => [:implicit]
-        }.each do |name, result|
-            inst.set(name)
-
-            assert_equal(result, $setting, "%s was not handled right" % name)
-            $setting.clear
-        end
-    end
-
-    # Make sure we can specify that we want to use the whole array, rather
-    # than just individual values.
-    def test_array_handling
-        property = newproperty(:arraytests)
-
-        prov, model = newmodel(:array_testing)
-        inst = newinst(property, model)
-
-        # Make sure it defaults to first
-        assert_equal(:first, property.array_matching, "Property did not default to matching first value in an array")
-        assert(! inst.match_all?, "match_all? returned true when array_matching is :first")
-
-        vals = %w{one two three}
-        inst.should = vals
-
-        # Make sure we only get the first value back
-        assert_equal("one", inst.should, "Returned wrong value when array_matching == first")
-
-        # And make sure any of these values is considered in sync
-        vals.each do |value|
-            assert(inst.insync?(value), "#{value} was not considered in sync when array_matching == first")
-        end
-
-        # Now change it to all
-        property.array_matching = :all
-        assert_equal(:all, property.array_matching, "Property did not change value of array_matching")
-        assert(inst.match_all?, "match_all? returned false when array_matching is :all")
-
-        # Make sure we only get the first value back
-        assert_equal(vals, inst.should, "Returned wrong value when array_matching == all")
-
-        # And make sure any of these values is considered in sync
-        %w{one two three}.each do |value|
-            assert(! inst.insync?(value), "individual value #{value} was considered in sync when array_matching == all")
-        end
-        assert(inst.insync?(vals), "value array was not considered in sync when array_matching == all")
-    end
-end
-

data/test/ral/type/tidy.rb

@@ -1,291 +0,0 @@
-#!/usr/bin/env ruby
-
-require File.dirname(__FILE__) + '/../../lib/puppettest'
-
-require 'puppettest'
-require 'puppettest/support/utils'
-
-class TestTidy < Test::Unit::TestCase
-    include PuppetTest::Support::Utils
-    include PuppetTest::FileTesting
-    def mktmpfile
-        # because luke's home directory is on nfs, it can't be used for testing
-        # as root
-        tmpfile = tempfile()
-        File.open(tmpfile, "w") { |f| f.puts rand(100) }
-        @@tmpfiles.push tmpfile
-        return tmpfile
-    end
-
-    def mktmpdir
-        dir = File.join(tmpdir(), "puppetlinkdir")
-        unless FileTest.exists?(dir)
-            Dir.mkdir(dir)
-        end
-        @@tmpfiles.push dir
-        return dir
-    end
-
-    def test_tidydirs
-        dir = mktmpdir
-        file = File.join(dir, "file")
-        File.open(file, "w") { |f|
-            f.puts "some stuff"
-        }
-
-        tidy = Puppet.type(:tidy).create(
-            :name => dir,
-            :size => "1b",
-            :rmdirs => true,
-            :recurse => true
-        )
-
-        assert_events([:file_tidied, :file_tidied], tidy)
-
-        assert(!FileTest.exists?(file), "Tidied %s still exists" % file)
-        assert(!FileTest.exists?(dir), "Tidied %s still exists" % dir)
-
-    end
-
-    def disabled_test_recursion
-        source = mktmpdir()
-        FileUtils.cd(source) {
-            mkranddirsandfiles()
-        }
-
-        link = nil
-        assert_nothing_raised {
-            link = newlink(:target => source, :recurse => true)
-        }
-        comp = mk_catalog("linktest",link)
-        cycle(comp)
-
-        path = link.name
-        list = file_list(path)
-        FileUtils.cd(path) {
-            list.each { |file|
-                unless FileTest.directory?(file)
-                    assert(FileTest.symlink?(file))
-                    target = File.readlink(file)
-                    assert_equal(target,File.join(source,file.sub(/^\.\//,'')))
-                end
-            }
-        }
-    end
-
-    # Test the different age iterations.
-    def test_age_conversions
-        tidy = Puppet::Type.type(:tidy).create :path => tempfile(), :age => "1m"
-
-        convertors = {
-            :second => 1,
-            :minute => 60
-        }
-
-        convertors[:hour] = convertors[:minute] * 60
-        convertors[:day] = convertors[:hour] * 24
-        convertors[:week] = convertors[:day] * 7
-
-        # First make sure we default to days
-        assert_nothing_raised do
-            tidy[:age] = "2"
-        end
-
-        assert_equal(2 * convertors[:day], tidy.should(:age),
-            "Converted 2 wrong")
-
-        convertors.each do |name, number|
-            init = name.to_s[0..0] # The first letter
-            [0, 1, 5].each do |multi|
-                [init, init.upcase].each do |letter|
-                    age = multi.to_s + letter.to_s
-                    assert_nothing_raised do
-                        tidy[:age] = age
-                    end
-
-                    assert_equal(multi * convertors[name], tidy.should(:age),
-                        "Converted %s wrong" % age)
-                end
-            end
-        end
-    end
-
-    def test_size_conversions
-        convertors = {
-            :b => 0,
-            :kb => 1,
-            :mb => 2,
-            :gb => 3
-        }
-
-        tidy = Puppet::Type.type(:tidy).create :path => tempfile(), :age => "1m"
-
-        # First make sure we default to kb
-        assert_nothing_raised do
-            tidy[:size] = "2"
-        end
-
-        assert_equal(2048, tidy.should(:size),
-            "Converted 2 wrong")
-
-        convertors.each do |name, number|
-            init = name.to_s[0..0] # The first letter
-            [0, 1, 5].each do |multi|
-                [init, init.upcase].each do |letter|
-                    size = multi.to_s + letter.to_s
-                    assert_nothing_raised do
-                        tidy[:size] = size
-                    end
-
-                    total = multi
-                    number.times do total *= 1024 end
-
-                    assert_equal(total, tidy.should(:size),
-                        "Converted %s wrong" % size)
-                end
-            end
-        end
-    end
-
-    def test_agetest
-        tidy = Puppet::Type.type(:tidy).create :path => tempfile(), :age => "1m"
-
-        age = tidy.property(:age)
-
-        # Set it to something that should be fine
-        assert(age.insync?(Time.now.to_i - 5), "Tried to tidy a low age")
-
-        # Now to something that should fail
-        assert(! age.insync?(Time.now.to_i - 120), "Incorrectly skipped tidy")
-    end
-
-    def test_sizetest
-        tidy = Puppet::Type.type(:tidy).create :path => tempfile(), :size => "1k"
-
-        size = tidy.property(:size)
-
-        # Set it to something that should be fine
-        assert(size.insync?(50), "Tried to tidy a low size")
-
-        # Now to something that should fail
-        assert(! size.insync?(2048), "Incorrectly skipped tidy")
-    end
-
-    # Make sure we can remove different types of files
-    def test_tidytypes
-        path = tempfile()
-        tidy = Puppet::Type.type(:tidy).create :path => path, :size => "1b", :age => "1s"
-
-        # Start with a file
-        File.open(path, "w") { |f| f.puts "this is a test" }
-        assert_events([:file_tidied], tidy)
-        assert(! FileTest.exists?(path), "File was not removed")
-
-        # Then a link
-        dest = tempfile
-        File.open(dest, "w") { |f| f.puts "this is a test" }
-        File.symlink(dest, path)
-        assert_events([:file_tidied], tidy)
-        assert(! FileTest.exists?(path), "Link was not removed")
-        assert(FileTest.exists?(dest), "Destination was removed")
-
-        # And a directory
-        Dir.mkdir(path)
-        tidy[:rmdirs] = true
-        assert_events([:file_tidied], tidy)
-        assert(! FileTest.exists?(path), "File was not removed")
-    end
-    
-    # Make sure we can specify either attribute and get appropriate behaviour.
-    # I found that the original implementation of this did not work unless both
-    # size and age were specified.
-    def test_one_attribute
-        path = tempfile()
-        File.open(path, "w") { |f| 10.times { f.puts "yayness " } }
-        tidy = Puppet::Type.type(:tidy).create :path => path, :size => "1b"
-        
-        assert_apply(tidy)
-        assert(! FileTest.exists?(path), "file did not get tidied")
-        
-        tidy.class.clear
-
-        # Now try one with just an age attribute.
-        time = Time.now - 10
-        stat = stub 'stat', :mtime => time, :atime => time, :ftype => "file"
-        File.stubs(:lstat)
-        File.stubs(:lstat).with(path).returns(stat)
-
-        File.open(path, "w") { |f| 10.times { f.puts "yayness " } }
-        tidy = Puppet::Type.type(:tidy).create :path => path, :age => "5s"
-        
-
-        assert_apply(tidy)
-        assert(! FileTest.exists?(path), "file did not get tidied")
-    end
-    
-    # Testing #355.
-    def test_remove_dead_links
-        dir = tempfile()
-        link = File.join(dir, "link")
-        target = tempfile()
-        Dir.mkdir(dir)
-        File.symlink(target, link)
-        
-        tidy = Puppet::Type.type(:tidy).create :path => dir, :size => "1b", :recurse => true
-        assert_apply(tidy)
-        assert(! FileTest.symlink?(link), "link was not tidied")
-    end
-
-    def test_glob_matches_single
-        dir = mktmpdir
-        files = {
-          :remove => File.join(dir, "01-foo"),
-          :keep   => File.join(dir, "default")
-        }
-        files.each do |tag, file|
-          File.open(file, "w") { |f|
-              f.puts "some stuff"
-          }
-        end
-
-        tidy = Puppet.type(:tidy).create(
-            :name => dir,
-            :size => "1b",
-            :rmdirs => true,
-            :recurse => true,
-            :matches => "01-*"
-        )
-        assert_apply(tidy)
-
-        assert(FileTest.exists?(files[:keep]), "%s was tidied" % files[:keep])
-        assert(!FileTest.exists?(files[:remove]), "Tidied %s still exists" % files[:remove])
-    end
-
-    def test_glob_matches_multiple
-        dir = mktmpdir
-        files = {
-          :remove1 => File.join(dir, "01-foo"),
-          :remove2 => File.join(dir, "02-bar"),
-          :keep1   => File.join(dir, "default")
-        }
-        files.each do |tag, file|
-          File.open(file, "w") { |f|
-              f.puts "some stuff"
-          }
-        end
-
-        tidy = Puppet.type(:tidy).create(
-            :name => dir,
-            :size => "1b",
-            :rmdirs => true,
-            :recurse => true,
-            :matches => ["01-*", "02-*"]
-        )
-        assert_apply(tidy)
-
-        assert(FileTest.exists?(files[:keep1]), "%s was tidied" % files[:keep1])
-        assert(!FileTest.exists?(files[:remove1]), "Tidied %s still exists" % files[:remove1])
-        assert(!FileTest.exists?(files[:remove2]), "Tidied %s still exists" % files[:remove2])
-    end
-end
-