fairchild-poolparty 1.1.3

data/vendor/gems/suitcase/lib/suitcase/zipper.rb

@@ -0,0 +1,103 @@
+require 'rubygems'
+
+module Suitcase
+  class Zipper
+
+    def self.items(default_dirs={})
+      @items ||= default_dirs
+    end
+    
+    def self.zip!(filepath)
+      require 'archive/tar/minitar'
+      filepath = filepath.include?(".tar.gz") ? filepath : "#{filepath}.tar.gz"
+      File.open(filepath,"w") do |tarfile|
+        Archive::Tar::Minitar::Writer.open(tarfile) do |tar|
+          items.each do |name, path|
+            data = open(path).read
+            tar.add_file_simple(name, :size=>data.size, :mode=>0644) { |f| f.write(data) }
+          end
+        end
+      end
+      filepath
+    end
+    
+    def self.build_dir!(dirpath)
+      ::FileUtils.mkdir_p dirpath unless ::File.directory? dirpath
+      items.each do |name, path|
+        end_path = "#{dirpath}/#{name}"
+        unless name == ::File.basename(name)
+          ::FileUtils.mkdir_p ::File.dirname(end_path) unless ::File.directory? ::File.dirname(end_path)
+        end
+        ::FileUtils.cp path, end_path
+      end
+      dirpath
+    end
+    
+    def self.flush!
+      @items = nil
+    end
+
+    def self.add(files_and_directories=[], namespace="")
+      files_and_directories.each do |file|
+        f = ::File.expand_path(file)        
+        if ::File.file? f
+          items.merge!(("#{namespace}/#{::File.basename(f)}").to_s => f)
+        elsif ::File.directory? f
+          Dir["#{f}/*"].each do |f|
+            add(f, "#{namespace.empty? ? "" : "#{namespace}/"}#{::File.basename(::File.dirname(f))}")
+          end
+        end
+      end
+    end
+
+    def self.gems(gem_list, gem_location)
+      require 'rubygems/dependency_installer'
+      gem_list = [gem_list] unless gem_list.is_a?(Array)
+      ensure_location_exists gem_location
+
+      cache_dir = "#{gem_location}/cache"
+      ::FileUtils.mkdir_p cache_dir rescue nil unless File.exist? cache_dir
+
+      locally_installed_gems = Gem::SourceIndex.from_installed_gems.map {|n,s| s.name }
+      
+      locally_installable_gems = gem_list & locally_installed_gems
+      remotely_installable = gem_list - locally_installable_gems
+      
+      # First, add the locally installed gems
+      locally_installable_gems.each do |spec|
+        spec = Gem::SourceIndex.from_installed_gems.find_name(spec).last#.sort_by {|a,b| a.version <=> b.version }.last                
+        f = Dir[File.join(Gem.dir, 'cache', "#{spec.full_name}.gem")].first
+        add(f, "gems")
+      end
+      
+      remotely_installable.each do |g|
+        di = Gem::DependencyInstaller.new
+        spec, url = di.find_spec_by_name_and_version(g).first
+        f = begin
+          Gem::RemoteFetcher.fetcher.download spec, "http://gems.github.com", gem_location
+        rescue Exception => e
+          Gem::RemoteFetcher.fetcher.download spec, url, gem_location
+        end
+        add(f, "gems")
+      end
+    end
+
+    def self.packages(package_list, package_location="#{Dir.pwd}/packages")
+      ensure_location_exists package_location
+      package_list.each do |package|
+        f = "#{package_location}/#{package.split('/').last}"
+        unless ::File.file? f
+          puts "downloading #{package} to #{f}"
+          `curl -L #{package} > #{package_location}/#{package.split('/').last}`
+        end
+        
+        add(f, "packages")
+      end
+    end
+    
+    def self.ensure_location_exists(loc)
+      ::FileUtils.mkdir_p loc unless ::File.directory? loc
+    end
+
+  end
+end

data/vendor/gems/suitcase/lib/suitcase.rb

@@ -0,0 +1,5 @@
+$:.unshift(File.join(File.dirname(__FILE__), "suitcase"))
+
+%w(zipper unzipper).each do |lib|
+  require lib
+end

data/vendor/gems/suitcase/suitcase.gemspec

@@ -0,0 +1,52 @@
+# -*- encoding: utf-8 -*-
+
+Gem::Specification.new do |s|
+  s.name = %q{suitcase}
+  s.version = "0.0.3"
+
+  s.required_rubygems_version = Gem::Requirement.new(">= 0") if s.respond_to? :required_rubygems_version=
+  s.authors = ["Ari Lerner"]
+  s.date = %q{2009-04-12}
+  s.email = %q{arilerner@mac.com}
+  s.extra_rdoc_files = [
+    "LICENSE",
+    "README.rdoc"
+  ]
+  s.files = [
+    "LICENSE",
+    "README.rdoc",
+    "Rakefile",
+    "VERSION.yml",
+    "lib/suitcase.rb",
+    "lib/suitcase/unzipper.rb",
+    "lib/suitcase/zipper.rb",
+    "test/suitcase_test.rb",
+    "test/test_dir/box.rb",
+    "test/test_dir/test.txt",
+    "test/test_helper.rb"
+  ]
+  s.has_rdoc = true
+  s.homepage = %q{http://github.com/auser/suitcase}
+  s.rdoc_options = ["--charset=UTF-8"]
+  s.require_paths = ["lib"]
+  s.rubygems_version = %q{1.3.1}
+  s.summary = %q{TODO}
+  s.test_files = [
+    "test/suitcase_test.rb",
+    "test/test_dir/box.rb",
+    "test/test_helper.rb"
+  ]
+
+  if s.respond_to? :specification_version then
+    current_version = Gem::Specification::CURRENT_SPECIFICATION_VERSION
+    s.specification_version = 2
+
+    if Gem::Version.new(Gem::RubyGemsVersion) >= Gem::Version.new('1.2.0') then
+      s.add_runtime_dependency(%q<tarruby>, [">= 0"])
+    else
+      s.add_dependency(%q<tarruby>, [">= 0"])
+    end
+  else
+    s.add_dependency(%q<tarruby>, [">= 0"])
+  end
+end

data/vendor/gems/suitcase/test/suitcase_test.rb

@@ -0,0 +1,89 @@
+require 'test_helper'
+
+class DependenciesTest < Test::Unit::TestCase
+  context "basics" do
+    should "should have a method called dedependencies" do
+      assert Suitcase::Zipper.respond_to?(:items)
+    end
+    should "should have a package(file) method" do
+      assert Suitcase::Zipper.respond_to?(:add)
+    end
+  end
+  context "adding gems" do
+    before do
+      Suitcase::Zipper.flush!
+    end
+    should "should have no gems before any are added" do
+      assert_equal Suitcase::Zipper.items.size, 0
+      assert_equal Suitcase::Zipper.items.class, Hash
+    end
+    should "be able to add files to the suitcase" do
+      Suitcase::Zipper.add("#{::File.dirname(__FILE__)}/test_helper.rb")
+      assert_equal Suitcase::Zipper.items.size, 1
+    end
+    should "be able to add directories to the suitcase" do
+      Suitcase::Zipper.add("#{::File.dirname(__FILE__)}/test_dir")
+      assert_equal Suitcase::Zipper.items.size, 2
+      assert Suitcase::Zipper.items["test_dir/box.rb"] =~ /test_dir\/box\.rb/
+    end
+    should "be able to add directories into namespaces" do
+      Suitcase::Zipper.add("#{::File.dirname(__FILE__)}/test_dir", "box")
+      assert Suitcase::Zipper.items["box/test_dir/box.rb"] =~ /test_dir\/box\.rb/
+    end
+    # UNCOMMENT THESE TO LIVE-TEST THE USAGE
+    should "be able to add gems to the suitcase" do
+      Suitcase::Zipper.gems("rake", Dir.pwd)
+      Suitcase::Zipper.build_dir! "#{Dir.pwd}/cache"
+      assert ::File.file?(::File.expand_path("#{Dir.pwd}/cache/gems/rake-0.8.4.gem"))
+    end
+    should "find the gem online if it is not locally installed" do
+      Suitcase::Zipper.gems("aaronp-meow", Dir.pwd)
+      assert ::File.file?(::File.expand_path("#{Dir.pwd}/cache/aaronp-meow-1.1.0.gem"))
+    end
+    # should "be able to add packages to the suitcase" do
+    #   Suitcase::Zipper.packages("ftp://ftp.ruby-lang.org/pub/ruby/stable-snapshot.tar.gz", "#{Dir.pwd}/packages")
+    #   assert_equal Suitcase::Zipper.items["packages/stable-snapshot.tar.gz"], ::File.expand_path("packages/stable-snapshot.tar.gz")
+    # end
+    should "zip the packages into a tarball without the extension" do
+      filepath = "#{::File.dirname(__FILE__)}/package"
+      Suitcase::Zipper.add("test_dir")
+      Suitcase::Zipper.add("test_helper.rb")
+      Suitcase::Zipper.zip!(filepath)
+      assert ::File.file?("#{filepath}.tar.gz")
+    end
+    should "zip the packages into a tarball with the extension" do
+      filepath = "#{::File.dirname(__FILE__)}/package.tar.gz"
+      Suitcase::Zipper.add("test_dir")
+      Suitcase::Zipper.add("test_helper.rb")
+      Suitcase::Zipper.zip!(filepath)
+      assert ::File.file?("#{filepath}")
+    end
+    should "be able to unpack the packages" do
+      filepath = "#{::File.dirname(__FILE__)}/package.tar.gz"
+      Suitcase::Zipper.add("test_dir")
+      Suitcase::Zipper.add("test_helper.rb")
+      Suitcase::Zipper.zip!(filepath)
+      
+      Suitcase::UnZipper.unzip!(filepath, "#{Dir.pwd}")
+      assert ::File.directory?("#{::File.dirname(filepath)}")
+    end
+    should "have a method called build_dir!" do
+      assert Suitcase::Zipper.respond_to?(:build_dir!)
+    end
+    should "call build_dir" do
+      Suitcase::Zipper.add("test_dir")
+      Suitcase::Zipper.add("test_helper.rb")
+      
+      pth = Suitcase::Zipper.build_dir!("/tmp/poolparty/deps")
+      
+      assert ::File.directory?("/tmp/poolparty/deps")
+      assert_equal pth, "/tmp/poolparty/deps"
+      ::FileUtils.rm_rf "/tmp/poolparty/deps"
+    end
+    after do
+      ::FileUtils.rm_rf "#{Dir.pwd}/packages"
+      ::FileUtils.rm_rf "#{Dir.pwd}/cache"
+      ::FileUtils.rm_rf "#{Dir.pwd}/package.tar.gz"
+    end
+  end
+end

data/vendor/gems/suitcase/test/test_dir/box.rb

@@ -0,0 +1 @@
+puts "I'm in a box!"

data/vendor/gems/suitcase/test/test_dir/test.txt

@@ -0,0 +1 @@
+Test txt file

data/vendor/gems/suitcase/test/test_helper.rb

@@ -0,0 +1,12 @@
+require 'rubygems'
+require 'test/unit'
+require 'shoulda'
+require "context"
+
+$LOAD_PATH.unshift(File.join(File.dirname(__FILE__), '..', 'lib'))
+$LOAD_PATH.unshift(File.dirname(__FILE__))
+require 'suitcase/zipper'
+require 'suitcase/unzipper'
+
+class Test::Unit::TestCase
+end