ruby_ex 0.1.2 → 0.2.0

data/lib/commands/helpers.rb

@@ -1,7 +1,7 @@
 # Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
 # Copyright:: Copyright (c) 2005 Nicolas Pouillard. All rights reserved.
 # License::   GNU General Public License (GPL).
-# Revision::  $Id: helpers.rb 279 2005-06-05 17:46:53Z ertai $
+# Revision::  $Id: helpers.rb 255 2005-06-01 00:08:46Z ertai $
 
 require 'commands'
 

data/lib/commands/pipe.rb

@@ -1,7 +1,7 @@
 # Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
 # Copyright:: Copyright (c) 2005 Nicolas Pouillard. All rights reserved.
 # License::   GNU General Public License (GPL).
-# Revision::  $Id: pipe.rb 279 2005-06-05 17:46:53Z ertai $
+# Revision::  $Id: pipe.rb 341 2005-09-07 00:01:43Z ertai $
 
 require 'commands'
 
@@ -11,6 +11,7 @@ module Commands
 
     def initialize ( *cmds )
       @cmds = cmds.map { |x| x.dup }
+      @input, @output, @error = nil, nil, nil
     end
 
     def run ( *a )
@@ -56,6 +57,14 @@ module Commands
       @cmds.last.error
     end
 
+    %w[ args command ].each do |meth|
+      class_eval %Q{
+        def #{meth} ( *a, &b )
+          raise ArgumentError, "no method `#{meth}' on a pipe"
+        end
+      }
+    end
+
     def to_sh
       strs = @cmds.map { |cmd| "(#{cmd.to_sh})" }
       "(#{strs.join(' | ')})#{sh_args}"

data/lib/commands/runners.rb

@@ -1,7 +1,7 @@
 # Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
 # Copyright:: Copyright (c) 2005 Nicolas Pouillard. All rights reserved.
 # License::   GNU General Public License (GPL).
-# Revision::  $Id: runners.rb 279 2005-06-05 17:46:53Z ertai $
+# Revision::  $Id: runners.rb 255 2005-06-01 00:08:46Z ertai $
 
 require 'commands'
 

data/lib/commands/runners/exec.rb

@@ -1,7 +1,7 @@
 # Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
 # Copyright:: Copyright (c) 2005 Nicolas Pouillard. All rights reserved.
 # License::   GNU General Public License (GPL).
-# Revision::  $Id: exec.rb 279 2005-06-05 17:46:53Z ertai $
+# Revision::  $Id: exec.rb 255 2005-06-01 00:08:46Z ertai $
 
 require 'commands'
 

data/lib/commands/runners/fork.rb

@@ -1,7 +1,7 @@
 # Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
 # Copyright:: Copyright (c) 2005 Nicolas Pouillard. All rights reserved.
 # License::   GNU General Public License (GPL).
-# Revision::  $Id: fork.rb 279 2005-06-05 17:46:53Z ertai $
+# Revision::  $Id: fork.rb 358 2005-09-16 09:54:04Z ertai $
 
 require 'commands'
 
@@ -30,6 +30,7 @@ module Commands
       def run_impl ( aCommand, data )
         data.pid = Kernel.fork do
           begin
+            TempPath.fork_init
             hook_trigger :son, aCommand, data
             super
           rescue Exception => ex
@@ -80,21 +81,7 @@ module Commands
       class Error < Exception
       end
       def failure ( data )
-        output, error = '', ''
-        output = data.output.read rescue nil
-        error = data.error.read rescue nil
-        output.gsub!(/^/, '    ')
-        error.gsub!(/^/, '    ')
-
-        raise Error, <<end
----
-Command failed:
-  exit: #{data.status.exitstatus}
-  output:
-#{output}
-  error:
-#{error}
-end
+        raise Error, { 'Command failed' => data }.to_yaml
       end
     end
 

data/lib/commands/runners/mock.rb

@@ -0,0 +1,67 @@
+# Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
+# Copyright:: Copyright (c) 2005 Nicolas Pouillard. All rights reserved.
+# License::   GNU General Public License (GPL).
+# Revision::  $Id: mock.rb 302 2005-06-23 21:03:51Z ertai $
+
+require 'commands'
+
+module Commands
+
+  module Runners
+
+    class Mock < Runner
+      concrete
+
+      attr_reader :log
+
+      def initialize ( *a, &b )
+        @log = []
+        @contents = b
+        super
+      end
+
+      def run_impl ( aCommand, data )
+      end
+
+      def run ( aCommand )
+        d = super
+        d.output.open('w', &@contents)
+        d.status = 0
+        d
+      end
+
+      def display_command ( m )
+        @log << m
+      end
+
+    end # class Mock
+
+
+
+    test_section __FILE__ do
+
+      class MockTest < Test::Unit::TestCase
+
+        def setup
+          assert_nothing_raised { @runner = Mock.new }
+        end
+
+        def test_0_initialize
+        end
+
+        def test_simple
+          assert_nothing_raised do
+            @cmd = 'foo bar baz'.to_cmd
+            @data = @runner.run(@cmd)
+          end
+          assert_kind_of(Commands::Datas::Data, @data)
+          assert_equal([@cmd], @runner.log)
+        end
+
+      end # class SystemTest
+
+    end
+
+  end # module Runners
+
+end # module Commands

data/lib/commands/runners/runner.rb

@@ -1,7 +1,7 @@
 # Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
 # Copyright:: Copyright (c) 2005 Nicolas Pouillard. All rights reserved.
 # License::   GNU General Public License (GPL).
-# Revision::  $Id: runner.rb 279 2005-06-05 17:46:53Z ertai $
+# Revision::  $Id: runner.rb 343 2005-09-08 01:32:57Z ertai $
 
 require 'commands'
 
@@ -11,8 +11,7 @@ module Commands
 
     class Runner
 
-      abstract
-
+      include Abstract
       include Hookable
       include Hooker
 
@@ -42,6 +41,7 @@ module Commands
 
       def initialize
         @command_data_factory = Datas::Factory.new
+        @open_mode = :w
         hooker_subscribe self
       end
 
@@ -58,6 +58,7 @@ module Commands
         hook_trigger :display_command, aCommand
 
         data = @command_data_factory.create
+        data.open_mode = @open_mode
         data.input = aCommand.input unless aCommand.input.nil?
         data.output = aCommand.output unless aCommand.output.nil?
         data.error = aCommand.error unless aCommand.error.nil?
@@ -70,6 +71,7 @@ module Commands
 
       def run_impl ( aCommand, data )
         hook_trigger :before_open, data
+        aCommand = aCommand.instanciate_args
         STDIN.reopen(data.input.to_io_for_commands) unless data.input.nil?
         STDOUT.reopen(data.output.to_io_for_commands) unless data.output.nil?
         STDERR.reopen(data.error.to_io_for_commands) unless data.error.nil?

data/lib/commands/runners/system.rb

@@ -1,7 +1,7 @@
 # Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
 # Copyright:: Copyright (c) 2005 Nicolas Pouillard. All rights reserved.
 # License::   GNU General Public License (GPL).
-# Revision::  $Id: system.rb 279 2005-06-05 17:46:53Z ertai $
+# Revision::  $Id: system.rb 255 2005-06-01 00:08:46Z ertai $
 
 require 'commands'
 

data/lib/commands/seq.rb

@@ -1,7 +1,7 @@
 # Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
 # Copyright:: Copyright (c) 2005 Nicolas Pouillard. All rights reserved.
 # License::   GNU General Public License (GPL).
-# Revision::  $Id: seq.rb 279 2005-06-05 17:46:53Z ertai $
+# Revision::  $Id: seq.rb 341 2005-09-07 00:01:43Z ertai $
 
 require 'commands'
 
@@ -11,6 +11,7 @@ module Commands
 
     def initialize ( *cmds )
       @cmds = cmds
+      @input, @output, @error = nil, nil, nil
     end
 
     def run ( *a )

data/lib/config_file.rb

@@ -3,10 +3,9 @@
 # License: Gnu General Public License.
 
 # $LastChangedBy: ertai $
-# $Id: config_file.rb 279 2005-06-05 17:46:53Z ertai $
+# $Id: config_file.rb 339 2005-09-06 23:27:27Z ertai $
 
 
-require 'ruby_ex'
 require 'pathname'
 require 'yaml'
 require 'delegate'
@@ -68,6 +67,15 @@ require 'tempfile'
 
 class ConfigFileTest < Test::Unit::TestCase
 
+  def setup
+    @verbose = $VERBOSE
+    $VERBOSE = false
+  end
+
+  def teardown
+    $VERBOSE = @verbose
+  end
+
   def test_config_file
     tmp_file = nil
     Tempfile.open('config_file') do |f|

data/lib/const_regexp.rb

@@ -3,9 +3,8 @@
 # License: Gnu General Public License.
 
 # $LastChangedBy: ertai $
-# $Id: const_regexp.rb 279 2005-06-05 17:46:53Z ertai $
+# $Id: const_regexp.rb 339 2005-09-06 23:27:27Z ertai $
 
-require 'ruby_ex'
 
 module ConstRegexp
 

data/lib/{dlogger.rb → d_logger.rb}

@@ -3,9 +3,8 @@
 # License: Gnu General Public License.
 
 # $LastChangedBy: ertai $
-# $Id: dlogger.rb 279 2005-06-05 17:46:53Z ertai $
+# $Id: d_logger.rb 339 2005-09-06 23:27:27Z ertai $
 
-require 'ruby_ex'
 require 'logger'
 
 # This Logger subclass permit to use more debug levels

data/lib/daemon.rb

@@ -3,13 +3,12 @@
 # License: Gnu General Public License.
 
 # $LastChangedBy: ertai $
-# $Id: daemon.rb 279 2005-06-05 17:46:53Z ertai $
+# $Id: daemon.rb 339 2005-09-06 23:27:27Z ertai $
 
 
 require 'pathname'
 require 'singleton'
 
-require 'ruby_ex'
 require 'observable'
 require 'observable_pool'
 require 'service_manager'

data/lib/diff.rb

@@ -3,9 +3,8 @@
 # License: Gnu General Public License.
 
 # $LastChangedBy: ertai $
-# $Id: diff.rb 279 2005-06-05 17:46:53Z ertai $
+# $Id: diff.rb 339 2005-09-06 23:27:27Z ertai $
 
-require 'ruby_ex'
 
 module Diff
 

data/lib/drb/drb_observable.rb

@@ -3,10 +3,9 @@
 # License: Gnu General Public License.
 
 # $LastChangedBy: ertai $
-# $Id: drb_observable.rb 279 2005-06-05 17:46:53Z ertai $
+# $Id: drb_observable.rb 339 2005-09-06 23:27:27Z ertai $
 
 
-require 'ruby_ex'
 require 'drb/observer'
 
 require 'observable'

data/lib/drb/drb_observable_pool.rb

@@ -2,8 +2,8 @@
 # Author: Nicolas Despres  <polrop@lrde.epita.fr>.
 # License: Gnu General Public License.
 
-# $LastChangedBy: ertai $
-# $Id: drb_observable_pool.rb 279 2005-06-05 17:46:53Z ertai $
+# $LastChangedBy: polrop $
+# $Id: drb_observable_pool.rb 97 2005-01-13 18:20:49Z polrop $
 
 
 require 'observable_pool'

data/lib/drb/drb_service.rb

@@ -3,10 +3,9 @@
 # License:: Ruby license.
 
 # $LastChangedBy: ertai $
-# $Id: drb_service.rb 279 2005-06-05 17:46:53Z ertai $
+# $Id: drb_service.rb 339 2005-09-06 23:27:27Z ertai $
 
 
-require 'ruby_ex'
 require 'drb/drb'
 
 

data/lib/drb/drb_undumped_attributes.rb

@@ -3,10 +3,9 @@
 # License: Gnu General Public License.
 
 # $LastChangedBy: ertai $
-# $Id: drb_undumped_attributes.rb 279 2005-06-05 17:46:53Z ertai $
+# $Id: drb_undumped_attributes.rb 339 2005-09-06 23:27:27Z ertai $
 
 
-require 'ruby_ex'
 require 'drb/drb'
 
 

data/lib/drb/drb_undumped_indexed_object.rb

@@ -3,10 +3,9 @@
 # License:: Ruby license.
 
 # $LastChangedBy: ertai $
-# $Id: drb_undumped_indexed_object.rb 279 2005-06-05 17:46:53Z ertai $
+# $Id: drb_undumped_indexed_object.rb 339 2005-09-06 23:27:27Z ertai $
 
 
-require 'ruby_ex'
 require 'drb'
 
 

data/lib/drb/insecure_protected_methods.rb

@@ -3,10 +3,9 @@
 # License: Gnu General Public License.
 
 # $LastChangedBy: ertai $
-# $Id: insecure_protected_methods.rb 279 2005-06-05 17:46:53Z ertai $
+# $Id: insecure_protected_methods.rb 339 2005-09-06 23:27:27Z ertai $
 
 
-require 'ruby_ex'
 require 'drb/drb'
 
 

data/lib/drb_ex.rb

@@ -1,9 +1,9 @@
 # Copyright:: Copyright (c) 2005  Nicolas Pouillard. All rights reserved.
 # Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
 # License::   Gnu General Public License.
-# Revision::  $Id: drb_ex.rb 279 2005-06-05 17:46:53Z ertai $
+# Revision::  $Id: drb_ex.rb 344 2005-09-08 01:44:18Z ertai $
 
-require 'module/autoload_tree'
+AutoloadTree.import!
 
 module DRb
 

data/lib/file_type.rb

@@ -0,0 +1,466 @@
+require 'abstract'
+require 'commands'
+require 'active_support/class_attribute_accessors'
+require 'active_support/class_inheritable_attributes'
+
+module FileType
+
+  @@subclasses = []
+
+  def self.register ( klass )
+    @@subclasses << klass
+  end
+
+
+  GZIP  = 'gzip'.to_cmd
+  BZIP2 = 'bzip2'.to_cmd
+  UNZIP = 'unzip'.to_cmd
+  TAR   = 'tar'.to_cmd
+  GEM   = 'gem'.to_cmd
+
+
+  class Generic
+    abstract
+
+    attr_reader :path, :base, :ext
+
+    def initialize ( path )
+      @path = Pathname.new(path)
+      re = self.class.extension
+      raise ArgumentError, "bad class #{self.class}" if re.nil?
+      unless @path.to_s =~ re
+        raise ArgumentError, "#{@path} do not match /#{re.source}/"
+      end
+      @base, @ext = $`, $&
+      if @ext.empty?
+        @base = self
+      else
+        @base = FileType.guess(@base)
+      end
+    end
+
+    def extsplit
+      [@base, @ext]
+    end
+
+    def self.inherited ( klass )
+      FileType.register(klass)
+      super
+    end
+
+    def to_s
+      @path.to_s
+    end
+
+    def self.match_type ( path, max, best )
+      ext_re = self.extension
+      if path.to_s =~ ext_re
+        cur = $&.size * self.priority
+        return [cur, self] if cur > max
+      end
+      return [max, best]
+    end
+
+    def + ( arg )
+      @path + arg.to_s
+    end
+
+    def self.extractable ( aCommand )
+      include Extractable
+      self.extract_command = aCommand
+    end
+
+    def self.extractable_dir ( aCommand )
+      include ExtractableDir
+      self.extract_command = aCommand
+    end
+
+    def extractable?
+      false
+    end
+
+    def installable?
+      false
+    end
+
+    def self.filetype_extension ( anObject, priority=1 )
+      class_eval do
+        self.extension = anObject
+        self.priority = priority
+        concrete
+      end
+    end
+
+    cattr_accessor :runner
+    class_inheritable_accessor :extension
+    class_inheritable_accessor :priority # 0 .. +inf
+
+    self.runner = Commands::Runners::System.new
+
+  end # class Generic
+
+
+
+  class Unknown < Generic
+    filetype_extension(/(\.[^.\/]+)?$/, 0)
+  end # class Unknown
+
+
+
+  class ExtractError < Exception
+  end
+
+
+
+  module Extractable
+
+    def self.included ( aClass )
+
+      aClass.class_inheritable_accessor :extract_command
+
+      aClass.module_eval do
+
+        def extractable?
+          true
+        end
+
+        def mk_cmd ( out )
+          extract_command < @path > out
+        end
+
+        def extract
+          base, ext = @base.extsplit
+          @tmp = TempPath.new(base.path.basename, ext)
+          cmd = mk_cmd(@tmp)
+          data = cmd.run(self.class.runner)
+          if data.status != 0
+            @tmp.rmtree if @tmp.exist?
+            raise ExtractError, "Cannot extract a file:
+            |  path: #{to_s}
+            |  type: #{self.class}
+            |  command: #{cmd}
+            |  exit status: #{data.status.exitstatus}".head_cut!
+          end
+          FileType.guess(@tmp)
+        end
+
+        alias :default :extract
+
+      end
+
+    end
+
+  end # module Extractable
+
+
+
+  # FIXME Use the zlib if gzip not available.
+  class Gz < Generic
+    filetype_extension(/(\.(gz|z|Z)|-gz|-z|_z)$/)
+    extractable GZIP + %w[-d -c %i]
+  end # class Gz
+
+
+
+  class Bz2 < Generic
+    filetype_extension(/\.bz2?$/)
+    extractable BZIP2 + %w[-d -c %i]
+  end # class Bz2
+
+
+
+  class Zip < Generic
+    filetype_extension(/\.zip$/)
+    extractable UNZIP + %w[-p %i]
+  end # class Zip
+
+
+  class CorruptedTarballError < Exception
+  end
+
+
+  module ExtractableDir
+
+    def self.included ( aClass )
+
+      aClass.module_eval do
+
+        include Extractable
+
+        remove_method :mk_cmd
+
+        def mk_cmd ( out )
+          @log = TempPath.new('log')
+          cmd = extract_command[@tmp] < @path > @log
+          @tmp.mkpath
+          cmd
+        end
+
+        alias :extract_extractable :extract
+
+        def extract
+          dir = extract_extractable
+          FileType.guess(dir.path + longest_common_path(@log).join('/'))
+        end
+
+      end
+
+    end
+
+    # We want the longest common path
+    def longest_common_path ( log )
+      longest = nil
+      raise CorruptedTarballError, 'tar output empty' if log.zero?
+      log.each_line do |line|
+        line.chomp!
+        path = line.split(/\//)
+        longest = path if longest.nil?
+        longest &= path
+        raise CorruptedTarballError, log.read if longest.empty?
+      end
+      raise CorruptedTarballError, log.read if longest.nil?
+      longest
+    end
+    module_function :longest_common_path
+
+  end # module ExtractableDir
+
+
+
+  class Tar < Generic
+    filetype_extension(/\.tar$/)
+    extractable_dir TAR + %w[xvf %i -C]
+  end # class Tar
+
+
+
+  class TarGz < Generic
+    filetype_extension(/\.(tar(\.(gz|z|Z)|-gz|-z|_z)|tgz)$/)
+    extractable_dir TAR + %w[xvzf %i -C]
+  end # class TarGz
+
+
+
+  class TarBz2 < Generic
+    filetype_extension(/\.(tar\.bz2|tbz2|tbz)$/)
+    # FIXME Use this pipe beacause -j is not portable
+    # extractable_dir (BZIP2 + %w[-c -d]) | (TAR + %w[xvf - -C])
+    # problem: a pipe command doesn't properly implement `[]'
+    extractable_dir TAR + %w[xvjf %i -C]
+  end # class TarBz2
+
+
+
+  class Ruby < Generic
+    filetype_extension(/\.rbw?$/)
+
+    def load
+      path.load
+    end
+
+    def require
+      path.require
+    end
+
+  end # class Ruby
+
+
+
+  class Yaml < Generic
+    filetype_extension(/\.ya?ml$/)
+
+    def load
+      YAML::load(path.read)
+    end
+
+  end # class Yaml
+
+
+
+  class Gem < Generic
+    filetype_extension(/\.gem$/)
+
+    def installable?
+      true
+    end
+
+    def install ( install_dir=nil )
+      cmd = GEM + 'install' + path
+      cmd << '--install-dir' << install_dir unless install_dir.nil?
+      cmd.run(runner)
+    end
+
+  end # class Gem
+
+
+
+  class Directory < Generic
+    filetype_extension(/()$/)
+
+    def self.match_type ( path, max, best )
+      if path.exist? and path.directory?
+        return [path.to_s.size, self]
+      end
+      return [max, best]
+    end
+
+  end # class Directory
+
+
+
+  def self.guess_class ( path )
+    lazy_init
+    max = -1
+    best = Unknown
+    path = path.to_path
+    @@subclasses.each do |klass|
+      max, best = klass.match_type(path, max, best)
+    end
+    return best
+  end
+
+  def self.guess ( path )
+    guess_class(path).new(path)
+  end
+
+  def self.lazy_init
+    return if defined? @@init
+    @@init = true
+    @@subclasses.delete_if do |klass|
+      klass.abstract? or not (klass.is_a? Class) # and constants.include? klass)
+    end
+    @@subclasses.each do |klass|
+      ext = klass.extension
+      raise ArgumentError, "Bad extension #{ext}" unless ext.is_a? Regexp
+    end
+  end
+
+end # module FileType
+
+
+test_section __FILE__ do
+
+  class FileTypeTest < Test::Unit::TestCase
+
+    def setup
+      @tmp = TempPath.new
+      (@tmp + 'foo').mkpath
+      @mr = Commands::Runners::Mock.new do |out|
+        out.write("#@tmp/foo/bar/baz\n#@tmp/foo\n#@tmp/foo/f/f/foo/baz\n")
+      end
+      FileType::Generic.runner = @mr
+      @res_dir = __FILE__.to_path.dirname.parent + 'test/resources'
+    end
+
+    def assert_guess ( type, *files )
+      files.flatten.each do |file|
+        assert_nothing_raised do
+          @file = FileType.guess(file)
+        end
+        assert_kind_of(FileType.const_get(type), @file)
+      end
+    end
+
+    def assert_extract ( type, command, file )
+      assert_nothing_raised { @inp = FileType.guess(file) }
+      assert(@inp.extractable?, "#@inp not extractable")
+      assert_nothing_raised { @res = @inp.extract }
+      assert_kind_of(FileType.const_get(type), @res)
+      assert_match(command, @mr.log.last.to_sh)
+    end
+
+    def assert_real_extract ( type, file )
+      FileType::Generic.runner = Commands::Runners::System.new
+      assert_nothing_raised { @inp = FileType.guess(file) }
+      assert(@inp.extractable?, "#@inp not extractable")
+      assert_nothing_raised { @res = @inp.extract }
+      assert_kind_of(FileType.const_get(type), @res)
+    end
+
+    def assert_install ( command, file, *args )
+      assert_nothing_raised { @inp = FileType.guess(file) }
+      assert(@inp.installable?, "#@inp not installable")
+      assert_nothing_raised { @res = @inp.install(*args) }
+      assert_match(command, @mr.log.last.to_sh)
+    end
+
+
+    def test_gz
+      assert_guess :Gz, %w[ foo.gz foo.z foo.Z foo-z foo-gz foo_z ]
+    end
+    def test_bz2
+      assert_guess :Bz2, %w[ foo.bz2 foo.bz ]
+    end
+    def test_zip
+      assert_guess :Zip, %w[ foo.zip ]
+    end
+    def test_tar_bz2
+      assert_guess :TarBz2, %w[ foo.tar.bz2 foo.tbz2 foo/bar.tbz ]
+    end
+    def test_tar_gz
+      assert_guess :TarGz, %w[ foo.tar.gz foo.tgz foo/bar.tar.gz foo.tar.Z ]
+    end
+    def test_tar
+      assert_guess :Tar, %w[ foo.tar /foo/bar.tar ]
+    end
+    def test_ruby
+      assert_guess :Ruby, 'foo.rb', 'foo.rbw'
+    end
+    def test_yaml
+      assert_guess :Yaml, 'foo.yml', 'foo.yaml'
+    end
+    def test_gem
+      assert_guess :Gem, 'foo.gem'
+    end
+    def test_unknown
+      assert_guess :Unknown, 'foo.dne', 'foo', '.foo'
+      assert(! @file.extractable?, "#@file is extractable")
+    end
+    def test_dir
+      TempPath.new do |tmp|
+        tmp.mkpath
+        assert_guess :Directory, tmp, '.', '/', '..'
+      end
+    end
+
+    def test_extract_gz
+      assert_extract :Ruby, /^"gzip" "-d" "-c" "[^%]*" > "[^%]*"$/, 'foo.rb.gz'
+    end
+    def test_extract_bz2
+      assert_extract :Unknown, /^"bzip2" "-d" "-c" "[^%]*" > "[^%]*"$/, 'foo.bz2'
+    end
+    def test_extract_zip
+      assert_extract :Gz, /^"unzip" "-p" "[^%]*" > "[^%]*"$/, 'foo.gz.zip'
+    end
+    def test_extract_tar_bz2
+      assert_extract :Directory,
+        # /^"bzip2" -d -c "foo.tar.bz2" | "tar" "xvf" "-" "-C" "[^%]*" > "[^%]*"$/,
+        /^"tar" "xvjf" "foo.tar.bz2" "-C" "[^%]*" > "[^%]*"$/, 'foo.tar.bz2'
+    end
+    def test_extract_tar_gz
+      assert_extract :Directory,
+        /^"tar" "xvzf" "foo.tar.gz" "-C" ".*foo.*" > ".*log.*"$/, 'foo.tar.gz'
+      assert_real_extract :Directory, @res_dir + 'foo.tar.gz'
+    end
+    def test_extract_tar
+      assert_extract :Directory,
+        /^"tar" "xvf" "foo.tar" "-C" "[^%]*" > "[^%]*"$/, 'foo.tar'
+    end
+
+    def test_install_gem
+      assert_install(/^"gem" "install" "foo.gem"$/, 'foo.gem')
+      assert_install(/^"gem" "install" "foo.gem" "--install-dir" "\/tmp"$/,
+                     'foo.gem', '/tmp')
+    end
+
+    def test_longest_common_path
+      assert_nothing_raised do
+        res = @res_dir + 'tar.gz.log'
+        @longest = FileType::ExtractableDir.longest_common_path(res)
+      end
+      assert_equal(['core_ex-0.1.4'], @longest)
+    end
+
+  end # class FileTypeTest
+
+end