logical-construct 0.0.1.localtesting

data/lib/logical-construct/target/unpack-cookbook.rb

@@ -0,0 +1,40 @@
+module LogicalConstruct
+  class UnpackCookbook < Mattock::TaskLib
+    def default_namespace
+      :cookbook
+    end
+
+    def default_settings(provision)
+      settings(
+        :construct_dir => provision.construct_dir,
+        :cookbook_metadata => nil,
+        :cookbook_dir => nil,
+        :cookbook_name => "cookbook",
+        :cookbook_archive => nil
+      )
+    end
+
+    def resolve_settings
+      self.cookbook_archive ||= File::join(construct_dir, "cookbook.tbz")
+      self.cookbook_dir ||= File::join(construct_dir, cookbook_name)
+
+      self.cookbook_metadata ||= File::join(cookbook_dir, "metadata.rb")
+    end
+
+    def untar_command
+      Mattock::CommandLine.new("tar", "-xjf") do |cmd|
+        cmd.options << cookbook_archive
+      end
+    end
+
+    def define
+      in_namespace do
+        file cookbook_archive
+        file cookbook_metadata => cookbook_archive do
+          untar_command.run
+        end
+        task :unpack => cookbook_metadata
+      end
+    end
+  end
+end

data/lib/logical-construct/testing/resolve-configuration.rb

@@ -0,0 +1,24 @@
+require 'mattock/tasklib'
+require 'logical-construct/testing/resolving-task'
+
+module LogicalConstruct
+  module Testing
+    class ResolveConfiguration < Mattock::Tasklib
+      default_namespace 'configuration'
+
+      setting :resolutions, {}
+
+      def default_configuration(provision)
+      end
+
+      def define
+        in_namespace do
+          LogicalConstruct::Testing::ResolvingTask.new do |task|
+            task.task_name = "resolve"
+            copy_settings_to(task)
+          end
+        end
+      end
+    end
+  end
+end

data/lib/logical-construct/testing/resolving-task.rb

@@ -0,0 +1,15 @@
+require 'logical-construct/resolving-task'
+
+module LogicalConstruct
+  module Testing
+    class ResolvingTask < ::LogicalConstruct::ResolvingTask
+      setting :resolutions, {}
+
+      def action
+        unsatisfied_prerequisites.each do |task|
+          task.fulfill(resolutions.fetch(task.name))
+        end
+      end
+    end
+  end
+end

data/lib/templates/Gemfile.erb

@@ -0,0 +1,3 @@
+source "http://rubygems.org/"
+
+gem "logical-construct"

data/lib/templates/Rakefile.erb

@@ -0,0 +1,14 @@
+require 'logical-construct/target'
+
+include LogicalConstruct
+include LogicalConstruct::Platform()
+
+provision = Provision.new
+
+provision.in_namespace do
+  resolution = ResolveConfiguration.new(provision)
+  chef_config = ChefConfig.new(provision, resolution)
+  chef_solo = ChefSolo.new(chef_config)
+end
+
+task :default => :provision

data/lib/templates/chef.rb.erb

@@ -0,0 +1,4 @@
+file_cache_path "<%= file_cache_path %>"
+cookbook_path "<%= cookbook_path %>"
+json_attribs "<%= json_attribs %>"
+<% unless role_path.nil? %>role_path "<%= role_path %>"<% end %>

data/lib/templates/resolver/finished.html.erb

@@ -0,0 +1 @@
+<p>Congratulations!  That was all we needed, and we should be finishing up.</p>

data/lib/templates/resolver/index.html.erb

@@ -0,0 +1,8 @@
+<p>The following conditions must be satisfied in order to provision this machine:</p>
+<ul>
+  <% unsatisfied_prerequisites.each do |task| %>
+    <li>
+    <a href="<%= web_path(task)%>"><%= task.name %></a>
+    </li>
+  <% end %>
+</ul>

data/lib/templates/resolver/task-form.html.erb

@@ -0,0 +1,6 @@
+<form action="<%= task_path %>" method="post">
+  <textarea name="data"></textarea>
+  <button type="submit" class="button" value="" name="" >
+    Submit
+  </button>
+</form>

data/spec/target/chef-config.rb

@@ -0,0 +1,64 @@
+require 'logical-construct/target/platforms'
+require 'mattock/testing/rake-example-group'
+
+describe LogicalConstruct::VirtualBox::ChefConfig do
+  include Mattock::RakeExampleGroup
+  include Mattock::CommandLineExampleGroup
+  include FileSandbox
+
+  before :each do
+    sandbox.new :directory => "construct-dir"
+    sandbox.new :directory => "chef-dir"
+  end
+
+  let :provision do
+    require 'logical-construct/target/provision'
+    LogicalConstruct::Provision.new do |prov|
+      prov.construct_dir = "construct-dir"
+    end
+  end
+
+  let :resolution do
+    require 'logical-construct/testing/resolve-configuration'
+    LogicalConstruct::Testing::ResolveConfiguration.new(provision) do |resolve|
+      resolve.resolutions = {
+        'chef_config:cookbook_tarball' => "",
+        'chef_config:json_attribs' => "",
+      }
+    end
+  end
+
+  let! :chef_config do
+    LogicalConstruct::VirtualBox::ChefConfig.new(provision, resolution) do |cc|
+      cc.file_cache_path = "chef-dir"
+      cc.solo_rb = "chef-solo.rb"
+    end
+  end
+
+  it "should make an absolute path for solo.rb" do
+    chef_config.solo_rb.should =~ /\A\//
+  end
+
+  describe "invoked" do
+    before :each do
+      expect_command /tar/, 0
+      rake[File::join(sandbox["chef-dir"].path, "chef-solo.rb")].invoke
+    end
+
+    it "should generate the chef-solo.rb file" do
+      sandbox["chef-dir/chef-solo.rb"].should be_exist
+    end
+
+    describe "resulting config file" do
+      subject do
+        sandbox["chef-dir/chef-solo.rb"].contents
+      end
+
+      it{ should =~ %r{file_cache_path\s*(["']).*\1} }
+      it{ should =~ %r{cookbook_path\s*(["']).*/cookbooks\1} }
+      it{ should =~ %r{json_attribs\s*(["']).*/node.json\1} }
+      it{ should_not =~ /role_path/ }
+    end
+
+  end
+end

data/spec/target/chef-solo.rb

@@ -0,0 +1,47 @@
+require 'logical-construct/target/chef-solo'
+require 'logical-construct/target/platforms'
+require 'mattock/testing/rake-example-group'
+require 'mattock/testing/mock-command-line'
+
+describe LogicalConstruct::ChefSolo do
+  include Mattock::RakeExampleGroup
+  include FileSandbox
+
+  let :provision do
+    require 'logical-construct/target/provision'
+    LogicalConstruct::Provision.new
+  end
+
+  let :resolver do
+    require 'logical-construct/testing/resolve-configuration'
+    LogicalConstruct::Testing::ResolveConfiguration.new(provision) do |resolve|
+      resolve.resolutions = {
+        'chef_config:cookbook_tarball' => '',
+        'chef_config:json_attribs' => '',
+      }
+    end
+  end
+
+  let! :chef_config do
+    LogicalConstruct::VirtualBox::ChefConfig.new(provision, resolver) do |cc|
+      cc.file_cache_path = "chef-dir"
+      cc.solo_rb = "chef-solo.rb"
+    end
+  end
+
+  let! :chef_solo do
+    LogicalConstruct::ChefSolo.new(chef_config)
+  end
+
+  describe "invoked" do
+    include Mattock::CommandLineExampleGroup
+
+    it "should run chef-solo" do
+      Rake.verbose(true)
+      expect_command /tar/, 0
+      expect_command /chef-solo/, 0
+
+      rake["chef_solo:run"].invoke
+    end
+  end
+end

data/spec/target/platforms.rb

@@ -0,0 +1,36 @@
+require 'logical-construct/target/platforms'
+
+describe LogicalConstruct do
+  after :each do
+    ENV['LOGCON_DEPLOYMENT_PLATFORM'] = nil
+    $DEPLOYMENT_PLATFORM = nil
+  end
+
+  describe "Platform()" do
+    it "should fail for unset plaform" do
+      expect do
+        LogicalConstruct::Platform()
+      end.to raise_error(KeyError)
+    end
+
+    it "should succeed for ENV VirtualBox" do
+      ENV['LOGCON_DEPLOYMENT_PLATFORM'] = 'VirtualBox'
+      LogicalConstruct::Platform().should == LogicalConstruct::VirtualBox
+    end
+
+    it "should succeed for global VirtualBox" do
+      $DEPLOYMENT_PLATFORM = 'VirtualBox'
+      LogicalConstruct::Platform().should == LogicalConstruct::VirtualBox
+    end
+  end
+
+  describe "including VirtualBox" do
+    before :each do
+      ENV['LOGCON_DEPLOYMENT_PLATFORM'] = 'VirtualBox'
+    end
+
+    it "should make ChefConfig available" do
+      LogicalConstruct::Platform()::ChefConfig.should == ::LogicalConstruct::VirtualBox::ChefConfig
+    end
+  end
+end

data/spec_help/file-sandbox.rb

@@ -0,0 +1,164 @@
+#require 'ftools'
+require 'fileutils'
+
+module FileSandbox
+  def self.included(spec)
+    return unless spec.respond_to? :before
+
+    spec.before do
+      setup_sandbox
+    end
+
+    spec.after do
+      teardown_sandbox
+    end
+  end
+
+  class HaveContents
+    def initialize(contents)
+      @contents = contents
+    end
+
+    def matches?(target)
+      case @contents
+      when Regexp
+	@contents =~ target.contents
+      when String
+	@contents == target.contents
+      end
+    end
+  end
+
+  def have_contents(expected)
+    HaveContents.new(expected)
+  end
+
+  attr_reader :sandbox
+
+  def in_sandbox(&block)
+    raise "I expected to create a sandbox as you passed in a block to me" if !block_given?
+
+    setup_sandbox
+    original_error = nil
+
+    begin
+      yield @sandbox
+    rescue => e
+      original_error = e
+      raise
+    ensure
+      begin
+        teardown_sandbox
+      rescue
+        if original_error
+          STDERR.puts "ALERT: a test raised an error and failed to release some lock(s) in the sandbox directory"
+          raise(original_error)
+        else
+          raise
+        end
+      end
+    end
+  end
+
+  def setup_sandbox(path = '__sandbox')
+    unless @sandbox
+      @sandbox = Sandbox.new(path)
+      @__old_path_for_sandbox = Dir.pwd
+      Dir.chdir(@sandbox.root)
+    end
+  end
+
+  def teardown_sandbox
+    if @sandbox
+      Dir.chdir(@__old_path_for_sandbox)
+      @sandbox.clean_up
+      @sandbox = nil
+    end
+  end
+
+  class Sandbox
+    attr_reader :root
+
+    def initialize(path = '__sandbox')
+      @root = File.expand_path(path)
+      clean_up
+      FileUtils.mkdir_p @root
+    end
+
+    def [](name)
+      SandboxFile.new(File.join(@root, name), name)
+    end
+
+    # usage new :file=>'my file.rb', :with_contents=>'some stuff'
+    def new(options)
+      if options.has_key? :directory
+        dir = self[options.delete(:directory)]
+        FileUtils.mkdir_p dir.path
+      else
+        file = self[options.delete(:file)]
+        if (binary_content = options.delete(:with_binary_content) || options.delete(:with_binary_contents))
+          file.binary_content = binary_content
+        else
+          file.content = (options.delete(:with_content) || options.delete(:with_contents) || '')
+        end
+      end
+
+      raise "unexpected keys '#{options.keys.join(', ')}'" unless options.empty?
+
+      dir || file
+    end
+
+    def remove(options)
+      name = File.join(@root, options[:file])
+      FileUtils.remove_file name
+    end
+
+    def clean_up
+      FileUtils.rm_rf @root
+      if File.exists? @root
+        raise "Could not remove directory #{@root.inspect}, something is probably still holding a lock on it"
+      end
+    end
+  end
+
+
+  class SandboxFile
+    attr_reader :path
+
+    def initialize(path, sandbox_path)
+      @path = path
+      @sandbox_path = sandbox_path
+    end
+
+    def inspect
+      "SandboxFile: #@sandbox_path"
+    end
+
+    def exist?
+      File.exist? path
+    end
+
+    def content
+      File.read path
+    end
+
+    def content=(content)
+      FileUtils.mkdir_p File.dirname(@path)
+      File.open(@path, "w") {|f| f << content}
+    end
+
+    def binary_content=(content)
+      FileUtils.mkdir_p File.dirname(@path)
+      File.open(@path, "wb") {|f| f << content}
+    end
+
+    def create
+      self.content = ''
+    end
+
+    alias exists? exist?
+    alias contents content
+    alias contents= content=
+    alias binary_contents= binary_content=
+  end
+end