scout-gear 9.1.0 → 10.0.1

data/lib/scout/simple_opt/parse.rb

@@ -1,67 +0,0 @@
-module SOPT
-  def self.fix_shortcut(short, long)
-    return short unless short and shortcuts.include?(short)
-
-    current = shortcuts.select{|s,l| l == long}.collect{|s,l| s }.first
-    return current if current
-
-    chars = long.chars.to_a
-    current = [chars.shift]
-    short = current * ""
-
-    if (shortcuts.include?(short) and not shortcuts[short] == long) 
-      if long.index "-" or long.index "_"
-        parts = long.split(/[_-]/)
-        acc = parts.collect{|s| s[0] } * ""
-        return acc unless shortcuts.include? acc
-      elsif m = long.match(/(\d+)/)
-        n = m[0]
-        acc = long[0] + n
-        return acc unless shortcuts.include? acc
-      end
-    end
-
-    while shortcuts.include?(short) && shortcuts[short] != long 
-      next_letter = chars.shift
-      next_letter = chars.shift while %w(. - _).include?(next_letter)
-      return nil if next_letter.nil?
-      current << next_letter
-      short = current * ""
-    end
-
-    return nil if shortcuts.include? short
-
-    short
-  end
-
-  def self.register(short, long, asterisk, description)
-    short = fix_shortcut(short, long)
-    shortcuts[short] = long if short
-    inputs << long
-    input_shortcuts[long] = short
-    input_descriptions[long] = description
-    input_types[long] = asterisk ? :string : :boolean
-  end
-
-  def self.parse(opt_str)
-    inputs = []
-
-    if opt_str.include? "\n"
-      re = /\n+/
-    else
-      re = /:/
-    end
-
-    opt_str.split(re).each do |entry|
-      entry.strip!
-      next if entry.empty?
-      names, _sep, description = entry.partition(/\s+/)
-      short, long, asterisk = names.match(/\s*(?:-(.+))?(?:--(.+?))([*])?$/).values_at 1,2,3 
-
-      inputs << long
-      register short, long, asterisk, description
-    end
-
-    inputs
-  end
-end

data/lib/scout/simple_opt/setup.rb

@@ -1,26 +0,0 @@
-module SOPT
-
-  def self.setup(str)
-    parts = str.split(/\n\n+/)
-
-    summary = parts.shift unless parts.first =~ /^\s*\$-/
-    synopsys = parts.shift if parts.first =~ /^\s*\$/
-
-    description = []
-    while parts.first and parts.first !~ /^\s*-/
-      description << parts.shift
-    end
-    description = description * "\n\n"
-
-    options = parts.collect{|part| part.split("\n").select{|l| l=~ /^\s*-/ }  }.flatten.compact * "\n"
-
-    synopsys.sub!(/^\$\s+/,'') if synopsys
-
-    SOPT.summary = summary.strip if summary
-    SOPT.synopsys = synopsys.strip if synopsys
-    SOPT.description = description.strip if description
-    SOPT.parse options  if options
-
-    SOPT.consume
-  end
-end

data/lib/scout/simple_opt.rb

@@ -1,5 +0,0 @@
-require_relative 'simple_opt/accessor'
-require_relative 'simple_opt/parse'
-require_relative 'simple_opt/doc'
-require_relative 'simple_opt/get'
-require_relative 'simple_opt/setup'

data/lib/scout/tmpfile.rb

@@ -1,129 +0,0 @@
-require_relative 'misc'
-require_relative 'log'
-require 'fileutils'
-
-module TmpFile
-  MAX_FILE_LENGTH = 150
-
-  def self.user_tmp(subdir = nil)
-    if subdir
-      File.join(ENV["HOME"],"/tmp/scout", subdir)
-    else
-      File.join(ENV["HOME"],"/tmp/scout")
-    end
-  end
-
-  def self.tmpdir=(tmpdir)
-    @tmpdir = tmpdir
-  end
-
-  def self.tmpdir
-    @tmpdir ||= self.user_tmp('tmpfiles')
-  end
-
-  # Creates a random file name, with the given suffix and a random number
-  # up to +max+
-  def self.random_name(prefix = 'tmp-', max = 1_000_000_000)
-    n = rand(max)
-    prefix + n.to_s
-  end
-
-  # Creates a random filename in the temporary directory
-  def self.tmp_file(prefix = 'tmp-', max = 1_000_000_000, dir = nil)
-    dir ||= TmpFile.tmpdir
-    File.expand_path(File.join(dir, random_name(prefix, max)))
-  end
-
-  def self.with_file(content = nil, erase = true, options = {})
-    if content.is_a?(Hash)
-      options = content
-      content = nil
-      erase = true
-    end
-    if erase.is_a?(Hash)
-      options = erase
-      erase = true
-    end
-
-    prefix = options[:prefix] || 'tmp-'
-    tmpdir = options[:tmpdir] || TmpFile.tmpdir
-    max = options[:max] || 1_000_000_000
-    tmpfile = tmp_file prefix, max, tmpdir
-    tmpfile += ".#{options[:extension]}" if options[:extension]
-
-    FileUtils.mkdir_p tmpdir
-    if IO === content
-      File.open(tmpfile, 'wb') do |f|
-        begin
-          while c = content.readpartial(1024)
-            f << c
-          end
-        rescue EOFError
-        end
-      end
-    elsif !content.nil?
-      File.open(tmpfile, 'w') { |f| f.write content }
-    end
-
-    result = yield(tmpfile)
-
-    FileUtils.rm_rf tmpfile if File.exist?(tmpfile) && erase
-
-    result
-  end
-
-  def self.with_dir(erase = true, options = {})
-    prefix = options[:prefix] || 'tmpdir-'
-    tmpdir = tmp_file prefix
-
-    FileUtils.mkdir_p tmpdir
-
-    result = yield(tmpdir)
-
-    FileUtils.rm_rf tmpdir if File.exist?(tmpdir) && erase
-
-    result
-  end
-
-  def self.in_dir(*args)
-    with_dir(*args) do |dir|
-      Misc.in_dir dir do
-        yield dir
-      end
-    end
-  end
-
-  SLASH_REPLACE = '·'
-  def self.tmp_for_file(file, tmp_options = {}, other_options = {})
-    tmp_for_file, prefix, key, persistence_dir = IndiferentHash.process_options tmp_options, :file, :prefix, :key, :dir
-    return tmp_for_file unless tmp_for_file.nil?
-
-    if prefix.nil?
-      perfile = file.to_s.sub(/\.b?gz$/,'')
-    else
-      perfile = prefix.to_s + ":" + file.to_s.sub(/\.b?gz$/,'')
-    end
-
-    perfile += "[#{ key }]" if key
-
-    if other_options.include? :filters
-      other_options[:filters].each do |match,value|
-        perfile = perfile + "&F[#{match}=#{Misc.digest(value)}]"
-      end
-    end
-
-    persistence_dir = TmpFile.tmpdir if persistence_dir.nil?
-    Path.setup(persistence_dir) unless Path === persistence_dir
-
-    filename = perfile.gsub(/\s/,'_').gsub('/', SLASH_REPLACE)
-    clean_options = other_options.dup
-    clean_options.delete :unnamed
-    clean_options.delete "unnamed"
-
-    filename = filename[0..MAX_FILE_LENGTH] << Misc.digest(filename[MAX_FILE_LENGTH+1..-1]) if filename.length > MAX_FILE_LENGTH + 10
-
-    filename  += ":" << Misc.digest(clean_options) unless clean_options.empty?
-
-    persistence_dir[filename]
-  end
-end

data/test/scout/indiferent_hash/test_case_insensitive.rb

@@ -1,16 +0,0 @@
-require File.expand_path(__FILE__).sub(%r(/test/.*), '/test/test_helper.rb')
-require File.expand_path(__FILE__).sub(%r(.*/test/), '').sub(/test_(.*)\.rb/,'\1')
-
-class TestCaseInsensitiveHash < Test::Unit::TestCase
-  def test_case_insensitive_hash
-    a = {:a => 1, "b" => 2}
-    a.extend CaseInsensitiveHash
-
-    assert_equal 1, a[:a]
-    assert_equal 1, a["A"]
-    assert_equal 1, a[:A]
-    assert_equal 2, a["B"]
-    assert_equal 2, a[:b]
-  end
-end
-

data/test/scout/indiferent_hash/test_options.rb

@@ -1,46 +0,0 @@
-require File.expand_path(__FILE__).sub(%r(/test/.*), '/test/test_helper.rb')
-require File.expand_path(__FILE__).sub(%r(.*/test/), '').sub(/test_(.*)\.rb/,'\1')
-
-class TestOptions < Test::Unit::TestCase
-
-
-  def test_add_defaults
-    options = {:a => 1, "b" => 2}
-    assert_equal 2, IndiferentHash.add_defaults(options, :b => 3)["b"]
-    assert_equal 2, IndiferentHash.add_defaults(options, "b" => 3)["b"]
-    assert_equal 3, IndiferentHash.add_defaults(options, :c => 3)["c"]
-    assert_equal 3, IndiferentHash.add_defaults(options, "c" => 4)[:c]
-    assert_equal 3, IndiferentHash.add_defaults(options, "c" => 4)["c"]
-  end
-
-  def test_positions2hash
-    inputs = IndiferentHash.positional2hash([:one, :two, :three], 1, :two => 2, :four => 4)
-    assert_equal 1, inputs[:one]
-    assert_equal 2, inputs[:two]
-    assert_equal nil, inputs[:three]
-    assert_equal nil, inputs[:four]
-  end
-
-  def test_process_to_hash
-    list = [1,2,3,4]
-    assert_equal 4, IndiferentHash.process_to_hash(list){|l| l.collect{|e| e * 2 } }[2]
-  end
-
-  def test_hash2string
-    hash = {}
-    assert_equal hash, IndiferentHash.string2hash(IndiferentHash.hash2string(hash))
-
-    hash = {:a => 1}
-    assert_equal hash, IndiferentHash.string2hash(IndiferentHash.hash2string(hash))
-
-    hash = {:a => true}
-    assert_equal hash, IndiferentHash.string2hash(IndiferentHash.hash2string(hash))
-
-    hash = {:a => :b}
-    assert_equal hash, IndiferentHash.string2hash(IndiferentHash.hash2string(hash))
-
-    hash = {:a => /test/}
-    assert_equal({}, IndiferentHash.string2hash(IndiferentHash.hash2string(hash)))
-  end
-end
-

data/test/scout/log/test_progress.rb

@@ -1,108 +0,0 @@
-require File.expand_path(__FILE__).sub(%r(/test/.*), '/test/test_helper.rb')
-require File.expand_path(__FILE__).sub(%r(.*/test/), '').sub(/test_(.*)\.rb/,'\1')
-
-class TestProgress < Test::Unit::TestCase
-  SLEEP_TIME=0.0001
-  def test_bar
-    t1 = Thread.new do
-      Log::ProgressBar.with_bar(20, :desc => "Bar 1") do |bar|
-        20.times do
-          bar.tick
-          sleep SLEEP_TIME
-        end
-        Log.debug "Done progress"
-        assert_equal 100, bar.percent
-      end
-    end
-
-    t2 = Thread.new do
-      Log::ProgressBar.with_bar(20, :desc => "Bar 2") do |bar|
-        20.times do
-          bar.tick
-          sleep SLEEP_TIME
-        end
-        Log.debug "Done progress"
-        assert_equal 100, bar.percent
-      end
-    end
-    t1.join
-    t2.join
-  end
-
-  def test_bar_no_size
-    t1 = Thread.new do
-      Log::ProgressBar.with_bar(nil, :desc => "Bar 1", :frequency => 0) do |bar|
-        20.times do
-          bar.tick
-          sleep SLEEP_TIME
-        end
-        assert bar.history.length > 0
-      end
-    end
-
-    t2 = Thread.new do
-      Log::ProgressBar.with_bar(nil, :desc => "Bar 2", :frequency => 0) do |bar|
-        20.times do
-          bar.tick
-          sleep SLEEP_TIME
-        end
-        assert bar.history.length > 0
-      end
-    end
-    t1.join
-    t2.join
-  end
-
-  def test_bar_nested
-    Log::ProgressBar.with_bar(20, :desc => "Bar 1") do |bar|
-      bar.init
-      20.times do
-        Log::ProgressBar.with_bar(5, :desc => "Bar 2") do |bar|
-          5.times do
-            bar.tick
-            sleep SLEEP_TIME
-          end
-        end
-        bar.tick
-        sleep SLEEP_TIME
-      end
-    end
-  end
-
-  def test_pos
-    size = 10000
-
-    Log::ProgressBar.with_bar(size, :desc => "Bar 1") do |bar|
-      bar.init
-      nums = []
-      100.times do
-        nums << rand(size)
-      end
-      nums.sort.each do |num|
-        bar.pos num
-        sleep SLEEP_TIME
-      end
-      bar.tick
-    end
-  end
-
-  def test_file
-    size = 10000
-
-    TmpFile.with_file do |file|
-
-      Log::ProgressBar.with_bar(size, :desc => "Bar 1", :file => file) do |bar|
-        bar.init
-        nums = []
-        100.times do
-          nums << rand(size)
-        end
-        nums.sort.each do |num|
-          bar.pos num
-          sleep SLEEP_TIME
-        end
-        bar.tick
-      end
-    end
-  end
-end

data/test/scout/misc/test_digest.rb

@@ -1,30 +0,0 @@
-require File.expand_path(__FILE__).sub(%r(/test/.*), '/test/test_helper.rb')
-require File.expand_path(__FILE__).sub(%r(.*/test/), '').sub(/test_(.*)\.rb/,'\1')
-
-class TestMiscDigest < Test::Unit::TestCase
-  def test_digest_str
-    o = {:a => [1,2,3], :b => [1.1, 0.00001, 'hola']}
-    assert Misc.digest_str(o).include? "hola"
-  end
-
-  def test_digest_stream_located
-    TmpFile.with_file("TEST") do |filename|
-      Open.open(filename) do |f|
-        assert_equal 32, Misc.digest_str(f).length
-      end
-    end
-  end
-
-  def test_digest_stream_unlocated
-    TmpFile.with_file do |directory|
-      Path.setup(directory)
-      Open.write(directory.share.file, "TEST")
-      Misc.in_dir directory do
-        Open.open(Path.setup('share/file')) do |f|
-          assert_equal '\'share/file\'', Misc.digest_str(Path.setup('share/file'))
-        end
-      end
-    end
-  end
-end
-

data/test/scout/misc/test_filesystem.rb

@@ -1,30 +0,0 @@
-require File.expand_path(__FILE__).sub(%r(/test/.*), '/test/test_helper.rb')
-require File.expand_path(__FILE__).sub(%r(.*/test/), '').sub(/test_(.*)\.rb/,'\1')
-
-class TestFilesystem < Test::Unit::TestCase
-  def test_in_dir
-    TmpFile.with_file do |tmpdir|
-      Misc.in_dir tmpdir do
-        assert_equal tmpdir, FileUtils.pwd
-      end
-    end
-  end
-
-  def test_relative
-    assert_equal 'bar', Misc.path_relative_to("/tmp/foo", "/tmp/foo/bar")
-    assert_equal 'bar/other', Misc.path_relative_to("/tmp/foo", "/tmp/foo/bar/other")
-
-    refute Misc.path_relative_to("/tmp/bar", "/tmp/foo/bar/other")
-    refute Misc.path_relative_to("/tmp/foo", "tmp/foo/bar/other")
-
-    TmpFile.with_file do |tmpdir|
-      Misc.in_dir tmpdir do
-        assert Misc.path_relative_to(tmpdir, "foo")
-        assert Misc.path_relative_to(tmpdir, File.join(tmpdir, "foo"))
-      end
-      assert Misc.path_relative_to(tmpdir, File.join(tmpdir, "foo"))
-      assert Misc.path_relative_to(File.dirname(tmpdir), File.join(tmpdir, "foo"))
-    end
-  end
-end
-

data/test/scout/misc/test_insist.rb

@@ -1,13 +0,0 @@
-require File.expand_path(__FILE__).sub(%r(/test/.*), '/test/test_helper.rb')
-require File.expand_path(__FILE__).sub(%r(.*/test/), '').sub(/test_(.*)\.rb/,'\1')
-
-class TestMiscInsist < Test::Unit::TestCase
-  def test_insist
-    i = 0
-    Misc.insist do 
-      i += 1
-      raise "Not yet" if i < 3
-    end
-  end
-end
-

data/test/scout/misc/test_system.rb

@@ -1,21 +0,0 @@
-require File.expand_path(__FILE__).sub(%r(/test/.*), '/test/test_helper.rb')
-require File.expand_path(__FILE__).sub(%r(.*/test/), '').sub(/test_(.*)\.rb/,'\1')
-
-class TestMiscSystem < Test::Unit::TestCase
-  setup do
-    ENV.delete "TEST_VAR"
-  end
-
-  def test_env_add
-    Misc.env_add "TEST_VAR", "test_value1"
-    Misc.env_add "TEST_VAR", "test_value2"
-    assert_equal "test_value2:test_value1", ENV["TEST_VAR"]
-  end
-
-  def test_env_add_prepend
-    Misc.env_add "TEST_VAR", "test_value1", ":", false
-    Misc.env_add "TEST_VAR", "test_value2", ":", false
-    assert_equal "test_value1:test_value2", ENV["TEST_VAR"]
-  end
-end
-

data/test/scout/open/test_lock.rb

@@ -1,52 +0,0 @@
-require File.expand_path(__FILE__).sub(%r(/test/.*), '/test/test_helper.rb')
-require File.expand_path(__FILE__).sub(%r(.*/test/), '').sub(/test_(.*)\.rb/,'\1')
-
-require 'scout/tmpfile'
-
-class TestLock < Test::Unit::TestCase
-  def test_locks
-    num = 10
-    TmpFile.with_file do |lockfile|
-      TmpFile.with_file do |output|
-        f = File.open(output, 'w') 
-        thrs = num.times.collect do 
-          Thread.new do
-            Open.lock lockfile, true, min_sleep: 0.01, max_sleep: 0.05, sleep_inc: 0.001 do
-              f.write "["
-              sleep 0.01
-              f.write "]"
-            end
-          end
-        end
-        thrs.each{|t| t.join }
-        f.close
-        assert_equal "[]" * num, File.open(output).read 
-      end
-    end
-  end
-
-  def test_keep_locked
-    num = 10
-    TmpFile.with_file do |lockfile|
-      TmpFile.with_file do |output|
-        f = File.open(output, 'w') 
-        thrs = num.times.collect do 
-          Thread.new do
-            lock = Lockfile.new(lockfile, min_sleep: 0.01, max_sleep: 0.05, sleep_inc: 0.001)
-            res = Open.lock lock do
-              f.write "["
-              raise KeepLocked, "1"
-            end
-            f.write res
-            f.write "]"
-            lock.unlock
-          end
-        end
-        thrs.each{|t| t.join }
-        f.close
-        assert_equal "[1]" * num, File.open(output).read 
-      end
-    end
-  end
-end
-

data/test/scout/open/test_remote.rb

@@ -1,25 +0,0 @@
-require File.expand_path(__FILE__).sub(%r(/test/.*), '/test/test_helper.rb')
-require File.expand_path(__FILE__).sub(%r(.*/test/), '').sub(/test_(.*)\.rb/,'\1')
-
-require 'scout/open'
-
-class TestOpenRemote < Test::Unit::TestCase
-  def test_wget
-    teardown
-    5.times do
-      assert(Misc.fixutf8(Open.wget('http://google.com', :quiet => true, :nocache => true).read) =~ /html/)
-      assert(Misc.fixutf8(Open.wget('http://google.com', :quiet => true).read) =~ /html/)
-    end
-  end
-
-  def test_ssh
-    TmpFile.with_file("TEST") do |f|
-      begin
-        assert_equal "TEST", Open.ssh("ssh://localhost:#{f}").read
-      rescue ConcurrentStreamProcessFailed
-        raise $! unless $!.message.include? "Connection refused"
-      end
-    end if false
-  end
-end
-