fairchild-poolparty 1.1.3

data/lib/poolparty/schema.rb

@@ -0,0 +1,64 @@
+module PoolParty
+  class Schema
+    attr_accessor :hsh
+    def initialize(h={})
+      @hsh = {}
+      case h
+      when Hash
+        h.each {|k,v| self[k] = v}
+      when String        
+        JSON.parse(h).each {|k,v| self[k.to_sym] = v}
+      end
+    end
+
+    def [](k)
+      hsh[k]
+    end
+    
+    def []=(k,v)
+      if v.is_a?(Hash)
+        hsh[k.to_sym] = self.class.new(v)
+      else
+        hsh[k.to_sym] = v
+      end      
+    end
+
+    def to_hash
+      @hsh
+    end
+    
+    def save!
+      ::File.open("#{Default.base_config_directory}/#{Default.properties_hash_filename}", "w") {|f| f << self.to_json }
+    end
+    
+    def method_missing(sym, *args, &block)
+      if @hsh.has_key?(sym.to_sym)
+        @hsh.fetch(sym)
+      elsif @hsh.has_key?(sym.to_s)
+        @hsh.fetch(sym.to_s)
+      else
+        @hsh.send(sym, *args, &block)
+      end
+    end
+  end
+end
+# class Hash
+#   def [](k=nil)
+#     if self.has_key?(k.to_sym)
+#       fetch(k.to_sym)
+#     elsif self.has_key?(k.to_s)
+#       fetch(k.to_s)
+#     else
+#       nil
+#     end
+#   end
+#   def method_missing(sym, *args, &block)
+#     if has_key?(sym.to_sym)
+#       fetch(sym)
+#     elsif has_key?(sym.to_s)
+#       fetch(sym.to_s)
+#     else
+#       super
+#     end
+#   end  
+# end

data/lib/poolparty/services/conditional.rb

@@ -0,0 +1,46 @@
+module PoolParty
+  def working_conditional
+    @working_conditional ||= []
+  end
+  
+  def case_of o, &block
+    c = Conditional.new({:name => "case_of_#{o}", :attribute => o}, &block)
+    add_service c
+    c
+  end
+  
+  class Conditional < PoolParty::Service
+    default_options({})
+    
+    def initialize(opts={}, &block)
+      super(opts, &block)
+      dsl_options(opts)
+      options.freeze
+    end
+    
+    def when_is o, &block
+      add(o, &block)
+    end  
+    def otherwise &block
+      add(nil, &block)
+    end
+    
+    def add(o, &block)
+      service = PoolParty::Service.new(&block)
+      obj = (o ? o : :default).to_sym
+      when_statements.merge!({obj => service})
+    end
+    
+    def when_statements
+      @when_statement ||= {}
+    end
+    def to_properties_hash
+      {
+        :options => {:variable => (dsl_options.attribute)},
+        :resources => {},
+        :services => {:control_statements => when_statements}
+      }
+    end
+  end
+  
+end

data/lib/poolparty/services/gem_package.rb

@@ -0,0 +1,52 @@
+module PoolParty    
+  # module Resources
+        
+    class Gempackage < Service
+      
+      # When we call gempackage, we want the exec to run on the directory we suggest
+      # we also only want it to run if there is NOT a local gem already installed with
+      # the package details (version and name)
+      # 
+      # TODO: Add it so that it tries to pull the gem off the master fileserver first...
+      def loaded(opts={})
+        if download_url
+                    
+          case_of "hostname"
+          when_is "master" do
+            has_exec(:name => "download-#{name}", :cwd => Default.remote_storage_path, :command => "wget #{download_url} -O #{name}.gem", :ifnot => "test -f #{Default.remote_storage_path}/#{name}.gem")
+          end
+          end_of
+          
+          has_file({
+            :name => "#{Default.remote_storage_path}/#{name}.gem", 
+            :source => "#{Base.fileserver_base}/#{name}.gem",
+            :requires => get_host("master")
+          })
+                    
+          has_exec(opts.merge({:name => "#{name}", :cwd =>"#{Default.remote_storage_path}"})) do
+            command "gem install --no-ri --no-rdoc #{Default.remote_storage_path}/#{name}.gem"
+            ifnot "gem list --local #{name} | grep #{name} #{"| grep #{version}" if version}"
+            requires get_file("#{Default.remote_storage_path}/#{name}.gem")
+          end
+          
+        else
+          has_exec(opts.merge({:name => "#{name}", :cwd => "/tmp", :path => "/bin:/usr/bin:/usr/local/bin:/sbin:/usr/sbin:/var/lib/gems/1.8/bin"})) do
+            command "gem install --no-ri --no-rdoc #{"--version #{version}" if version} #{"--source #{source}" if source} #{name}"
+            ifnot "gem list --local #{name} | grep #{name} #{"| grep #{version}" if version}"
+          end
+        end
+      end
+      def virtual_resource?
+        true
+      end
+      def printable?
+        true
+      end
+      def class_type_name
+        "Exec"
+      end
+      
+    end
+    
+  # end
+end

data/lib/poolparty/spec/core/string.rb

@@ -0,0 +1,18 @@
+class String
+  def grab_entry_for(type, name)
+    begin      
+      matches = self.match(/#{type}(.*)\{(.*)"#{name}":(.*)(#{_allowed})*\}/)[0]
+    rescue
+      ""
+    end
+  end
+  def _allowed
+    /[ \$\._\*\-\[\]\n\t\\\/&,\(\)"',|:=\>\<A-Za-z0-9]/
+  end
+  def _grab_key_value_for(type, name, key)
+    grab_entry_for(type, name).scan(/#{key}[ =>]*(.*)[,?]?$/).flatten.first rescue ""
+  end
+  def grab_key_value_for(ty, name, key)
+    _grab_key_value_for(ty,name,key).gsub(/,/, '') rescue ""
+  end
+end

data/lib/poolparty/spec/matchers/a_spec_extensions_base.rb

@@ -0,0 +1,26 @@
+module Spec
+  module Matchers
+    module SpecExtensions
+      # Mainly extensions, these methods are inherent in all of the matchers
+      # and are intended for helping parse the final manifest for spec'ing purposes.
+      class SpecExtensionsBase
+        def ensured_as(ensured="present")
+          str = "ensure => '#{ensured}'"
+          !grab_entry.scan(/#{str}/).empty?
+        end
+        def is_present?
+          !grab_entry.empty? && is_valid_resource?
+        end
+        def grab_entry
+          @target.grab_entry_for(type, @expected)
+        end
+        def type
+          "file"
+        end
+        def is_valid_resource?
+          grab_entry.split(/\n/).select {|l| nil unless l.match(/(.*)=>([\n\t ]*),$/) }.empty?
+        end
+      end
+    end
+  end
+end

data/lib/poolparty/spec/matchers/have_cron.rb

@@ -0,0 +1,28 @@
+module Spec
+  module Matchers
+    module SpecExtensions
+      class HaveCron < SpecExtensionsBase
+        def initialize(expected,extra="")
+          @expected = expected
+          @extra = extra
+        end
+        def matches?(target)
+          @target = target
+          is_present?
+        end
+        def failure_message
+          "expected #{@target.inspect} to have cron #{@expected}"
+        end
+        def negative_failure_message
+          "expected #{@target.inspect} not to have cron #{@expected}"
+        end
+        def type
+          "cron"
+        end
+      end
+    end
+    def have_cron(name, extra="")
+      SpecExtensions::HaveCron.new(name, extra)
+    end
+  end
+end

data/lib/poolparty/spec/matchers/have_deploydirectory.rb

@@ -0,0 +1,15 @@
+module PoolParty
+  class SpecCore
+    # dynamic_matcher_for(:deploydirectory) do
+    #   it "should have the directory" do
+    #     @manifest.should have_directory(@to)
+    #   end
+    #   it "should have the rsyncmirror" do
+    #     @manifest.should have_rsyncmirror("deploydirectory-#{@to}")
+    #   end
+    #   it "should have the exec to unpack the archive" do
+    #     @manifest.should have_exec("deploy-directory-#{@to}")
+    #   end
+    # end
+  end
+end

data/lib/poolparty/spec/matchers/have_directory.rb

@@ -0,0 +1,31 @@
+module Spec
+  module Matchers
+    module SpecExtensions
+      class HaveDirectory < SpecExtensionsBase
+        def initialize(expected,extra="")
+          @expected = expected
+          @extra = extra
+        end
+        def matches?(target)
+          @target = target
+          is_present? && is_a_directory?
+        end
+        def is_a_directory?
+          ensured_as("directory")
+        end
+        def failure_message
+          "expected #{@target.inspect} to have directory #{@expected}"
+        end
+        def negative_failure_message
+          "expected #{@target.inspect} not to have directory #{@expected}"
+        end
+        def type
+          "file"
+        end
+      end
+    end
+    def have_directory(name, extra="")
+      SpecExtensions::HaveDirectory.new(name, extra)
+    end
+  end
+end

data/lib/poolparty/spec/matchers/have_exec.rb

@@ -0,0 +1,28 @@
+module Spec
+  module Matchers
+    module SpecExtensions
+      class HaveExec < SpecExtensionsBase
+        def initialize(expected,extra="")
+          @expected = expected
+          @extra = extra
+        end
+        def matches?(target)
+          @target = target
+          is_present?
+        end
+        def failure_message
+          "expected #{@target.inspect} to have exec #{@expected}"
+        end
+        def negative_failure_message
+          "expected #{@target.inspect} not to have exec #{@expected}"
+        end
+        def type
+          "exec"
+        end
+      end
+    end
+    def have_exec(name, extra="")
+      SpecExtensions::HaveExec.new(name, extra)
+    end
+  end
+end

data/lib/poolparty/spec/matchers/have_file.rb

@@ -0,0 +1,28 @@
+module Spec
+  module Matchers
+    module SpecExtensions
+      class HaveFile < SpecExtensionsBase
+        def initialize(expected,extra="")
+          @expected = expected
+          @extra = extra
+        end
+        def matches?(target)
+          @target = target
+          is_present?
+        end
+        def failure_message
+          "expected #{@target.inspect} to have file #{@expected}"
+        end
+        def negative_failure_message
+          "expected #{@target.inspect} not to have file #{@expected}"
+        end
+        def type
+          "file"
+        end
+      end
+    end
+    def have_file(name, extra="")
+      SpecExtensions::HaveFile.new(name, extra)
+    end
+  end
+end

data/lib/poolparty/spec/matchers/have_gempackage.rb

@@ -0,0 +1,28 @@
+module Spec
+  module Matchers
+    module SpecExtensions
+      class HaveGempackage < SpecExtensionsBase
+        def initialize(expected,extra="")
+          @expected = expected
+          @extra = extra
+        end
+        def matches?(target)
+          @target = target
+          is_present?
+        end
+        def failure_message
+          "expected #{@target.inspect} to have gempackage #{@expected}"
+        end
+        def negative_failure_message
+          "expected #{@target.inspect} not to have gempackage #{@expected}"
+        end
+        def type
+          "exec"
+        end
+      end
+    end
+    def have_gempackage(name, extra="")
+      SpecExtensions::HaveGempackage.new(name, extra)
+    end
+  end
+end

data/lib/poolparty/spec/matchers/have_git.rb

@@ -0,0 +1,28 @@
+module Spec
+  module Matchers
+    module SpecExtensions
+      class HaveGit < SpecExtensionsBase
+        def initialize(expected,extra="")
+          @expected = expected
+          @extra = extra
+        end
+        def matches?(target)
+          @target = target
+          is_present?
+        end
+        def failure_message
+          "expected #{@target.inspect} to have git #{@expected}"
+        end
+        def negative_failure_message
+          "expected #{@target.inspect} not to have git #{@expected}"
+        end
+        def type
+          "git"
+        end
+      end
+    end
+    def have_git(name, extra="")
+      SpecExtensions::HaveGit.new(name, extra)
+    end
+  end
+end

data/lib/poolparty/spec/matchers/have_host.rb

@@ -0,0 +1,28 @@
+module Spec
+  module Matchers
+    module SpecExtensions
+      class HaveHost < SpecExtensionsBase
+        def initialize(expected,extra="")
+          @expected = expected
+          @extra = extra
+        end
+        def matches?(target)
+          @target = target
+          is_present?
+        end
+        def failure_message
+          "expected #{@target.inspect} to have host #{@expected}"
+        end
+        def negative_failure_message
+          "expected #{@target.inspect} not to have host #{@expected}"
+        end
+        def type
+          "host"
+        end
+      end
+    end
+    def have_host(name, extra="")
+      SpecExtensions::HaveHost.new(name, extra)
+    end
+  end
+end

data/lib/poolparty/spec/matchers/have_mount.rb

@@ -0,0 +1,28 @@
+module Spec
+  module Matchers
+    module SpecExtensions
+      class HaveMount < SpecExtensionsBase
+        def initialize(expected,extra="")
+          @expected = expected
+          @extra = extra
+        end
+        def matches?(target)
+          @target = target
+          is_present?
+        end
+        def failure_message
+          "expected #{@target.inspect} to have mount #{@expected}"
+        end
+        def negative_failure_message
+          "expected #{@target.inspect} not to have mount #{@expected}"
+        end
+        def type
+          "mount"
+        end
+      end
+    end
+    def have_mount(name, extra="")
+      SpecExtensions::HaveMount.new(name, extra)
+    end
+  end
+end

data/lib/poolparty/spec/matchers/have_package.rb

@@ -0,0 +1,28 @@
+module Spec
+  module Matchers
+    module SpecExtensions
+      class HavePackage < SpecExtensionsBase
+        def initialize(expected,extra="")
+          @expected = expected
+          @extra = extra
+        end
+        def matches?(target)
+          @target = target
+          is_present?
+        end
+        def failure_message
+          "expected #{@target.inspect} to have package #{@expected}"
+        end
+        def negative_failure_message
+          "expected #{@target.inspect} not to have package #{@expected}"
+        end
+        def type
+          "package"
+        end
+      end
+    end
+    def have_package(name, extra="")
+      SpecExtensions::HavePackage.new(name, extra)
+    end
+  end
+end

data/lib/poolparty/spec/matchers/have_remotefile.rb

@@ -0,0 +1,28 @@
+module Spec
+  module Matchers
+    module SpecExtensions
+      class HaveRemotefile < SpecExtensionsBase
+        def initialize(expected,extra="")
+          @expected = expected
+          @extra = extra
+        end
+        def matches?(target)
+          @target = target
+          is_present?
+        end
+        def failure_message
+          "expected #{@target.inspect} to have remotefile #{@expected}"
+        end
+        def negative_failure_message
+          "expected #{@target.inspect} not to have remotefile #{@expected}"
+        end
+        def type
+          "remotefile"
+        end
+      end
+    end
+    def have_remotefile(name, extra="")
+      SpecExtensions::HaveRemotefile.new(name, extra)
+    end
+  end
+end

data/lib/poolparty/spec/matchers/have_rsyncmirror.rb

@@ -0,0 +1,28 @@
+module Spec
+  module Matchers
+    module SpecExtensions
+      class HaveRsyncmirror < SpecExtensionsBase
+        def initialize(expected,extra="")
+          @expected = expected
+          @extra = extra
+        end
+        def matches?(target)
+          @target = target
+          is_present?
+        end
+        def failure_message
+          "expected #{@target.inspect} to have rsyncmirror #{@expected}"
+        end
+        def negative_failure_message
+          "expected #{@target.inspect} not to have rsyncmirror #{@expected}"
+        end
+        def type
+          "rsyncmirror"
+        end
+      end
+    end
+    def have_rsyncmirror(name, extra="")
+      SpecExtensions::HaveRsyncmirror.new(name, extra)
+    end
+  end
+end

data/lib/poolparty/spec/matchers/have_service.rb

@@ -0,0 +1,28 @@
+module Spec
+  module Matchers
+    module SpecExtensions
+      class HaveService < SpecExtensionsBase
+        def initialize(expected,extra="")
+          @expected = expected
+          @extra = extra
+        end
+        def matches?(target)
+          @target = target
+          is_present?
+        end
+        def failure_message
+          "expected #{@target.inspect} to have service #{@expected}"
+        end
+        def negative_failure_message
+          "expected #{@target.inspect} not to have service #{@expected}"
+        end
+        def type
+          "service"
+        end
+      end
+    end
+    def have_service(name, extra="")
+      SpecExtensions::HaveService.new(name, extra)
+    end
+  end
+end

data/lib/poolparty/spec/matchers/have_sshkey.rb

@@ -0,0 +1,28 @@
+module Spec
+  module Matchers
+    module SpecExtensions
+      class HaveSshkey < SpecExtensionsBase
+        def initialize(expected,extra="")
+          @expected = expected
+          @extra = extra
+        end
+        def matches?(target)
+          @target = target
+          is_present?
+        end
+        def failure_message
+          "expected #{@target.inspect} to have sshkey #{@expected}"
+        end
+        def negative_failure_message
+          "expected #{@target.inspect} not to have sshkey #{@expected}"
+        end
+        def type
+          "sshkey"
+        end
+      end
+    end
+    def have_sshkey(name, extra="")
+      SpecExtensions::HaveSshkey.new(name, extra)
+    end
+  end
+end

data/lib/poolparty/spec/matchers/have_symlink.rb

@@ -0,0 +1,28 @@
+module Spec
+  module Matchers
+    module SpecExtensions
+      class HaveSymlink < SpecExtensionsBase
+        def initialize(expected,extra="")
+          @expected = expected
+          @extra = extra
+        end
+        def matches?(target)
+          @target = target
+          is_present?
+        end
+        def failure_message
+          "expected #{@target.inspect} to have symlink #{@expected}"
+        end
+        def negative_failure_message
+          "expected #{@target.inspect} not to have symlink #{@expected}"
+        end
+        def type
+          "symlink"
+        end
+      end
+    end
+    def have_symlink(name, extra="")
+      SpecExtensions::HaveSymlink.new(name, extra)
+    end
+  end
+end

data/lib/poolparty/spec/matchers/have_variable.rb

@@ -0,0 +1,32 @@
+module Spec
+  module Matchers
+    module SpecExtensions
+      class HaveVariable < SpecExtensionsBase
+        def initialize(varname, expected,extra="")
+          @varname = varname
+          @expected = expected
+          @extra = extra
+        end
+        def matches?(target)
+          @target = target
+          is_present?
+        end
+        def is_present?
+          @target.match(/\$#{@varname}(\W+)=(\W+)#{@expected}/)[0]
+        end
+        def failure_message
+          "expected #{@target.inspect} to have variable #{@expected}"
+        end
+        def negative_failure_message
+          "expected #{@target.inspect} not to have variable #{@expected}"
+        end
+        def type
+          "variable"
+        end
+      end
+    end
+    def have_variable(name, extra="")
+      SpecExtensions::HaveVariable.new(name, extra)
+    end
+  end
+end