scout-essentials 1.0.0

data/test/scout/open/test_util.rb

@@ -0,0 +1,73 @@
+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 TestOpenUtil < Test::Unit::TestCase
+  def test_read_grep
+    content =<<-EOF
+1
+2
+3
+4
+    EOF
+    TmpFile.with_file(content) do |file|
+      sum = 0
+      Open.read(file, :grep => '^1\|3') do |line| sum += line.to_i end
+      assert_equal(1 + 3, sum)
+    end
+
+    TmpFile.with_file(content) do |file|
+      sum = 0
+      Open.read(file, :grep => ["1","3"]) do |line| sum += line.to_i end
+      assert_equal(1 + 3, sum)
+    end
+  end
+
+  def test_read_grep_invert
+    content =<<-EOF
+1
+2
+3
+4
+    EOF
+    TmpFile.with_file(content) do |file|
+      sum = 0
+      Open.read(file, :grep => '^1\|3', :invert_grep => true) do |line| sum += line.to_i end
+      assert_equal(2 + 4, sum)
+    end
+
+    TmpFile.with_file(content) do |file|
+      sum = 0
+      Open.read(file, :grep => ["1","3"]) do |line| sum += line.to_i end
+      assert_equal(1 + 3, sum)
+    end
+  end
+
+  def test_ln_s
+    TmpFile.with_file do |directory|
+      Path.setup(directory)
+      file1 = directory.subdir1.file
+      file2 = directory.subdir2.file
+      Open.write(file1, "TEST")
+      Open.ln_s file1, file2
+      assert_equal "TEST", Open.read(file2)
+      Open.write(file1, "TEST2")
+      assert_equal "TEST2", Open.read(file2)
+    end
+  end
+
+  def test_ln_h
+    TmpFile.with_file do |directory|
+      Path.setup(directory)
+      file1 = directory.subdir1.file
+      file2 = directory.subdir2.file
+      Open.write(file1, "TEST")
+      Open.ln_s file1, file2
+      assert_equal "TEST", Open.read(file2)
+      Open.write(file1, "TEST2")
+      assert_equal "TEST2", Open.read(file2)
+    end
+  end
+end
+

data/test/scout/path/test_find.rb

@@ -0,0 +1,110 @@
+require File.expand_path(__FILE__).sub(%r(/test/.*), '/test/test_helper.rb')
+require 'scout/path'
+require 'scout/misc'
+require File.expand_path(__FILE__).sub(%r(.*/test/), '').sub(/test_(.*)\.rb/,'\1')
+
+class TestPathFind < Test::Unit::TestCase
+  def test_parts
+    path = Path.setup("share/data/some_file", 'scout')
+    assert_equal "share", path._toplevel
+    assert_equal "data/some_file", path._subpath
+
+    path = Path.setup("data", 'scout')
+    assert_equal "", path._toplevel
+    assert_equal "data", path._subpath
+  end
+
+  def test_find_local
+    map = File.join('/usr/local', "{TOPLEVEL}", "{PKGDIR}", "{SUBPATH}")
+    path = Path.setup("share/data/some_file", 'scout')
+    target = "/usr/local/share/scout/data/some_file"
+    assert_equal target, Path.follow(path, map)
+  end
+
+  def test_find
+    path = Path.setup("share/data/some_file", 'scout')
+    assert_equal "/usr/share/scout/data/some_file", path.find(:usr)
+  end
+
+  def test_current
+    path = Path.setup("share/data/some_file", 'scout')
+    TmpFile.in_dir do |tmpdir|
+      assert_equal_path File.join(tmpdir,"share/data/some_file"),  path.find(:current)
+    end
+  end
+
+  def test_current_find
+    path = Path.setup("share/data/some_file", 'scout')
+    TmpFile.in_dir do |tmpdir|
+      FileUtils.mkdir_p(File.dirname(File.join(tmpdir, path)))
+      File.write(File.join(tmpdir, path), 'string')
+      assert_equal_path File.join(tmpdir,"share/data/some_file"),  path.find
+      assert_equal :current,  path.find.where
+      assert_equal "share/data/some_file",  path.find.original
+    end
+  end
+
+  def test_current_find_all
+    path = Path.setup("share/data/some_file", 'scout')
+    TmpFile.with_dir do |tmpdir|
+      Path.setup tmpdir
+
+      FileUtils.mkdir_p(tmpdir.lib)
+      FileUtils.mkdir_p(tmpdir.share.data)
+      File.write(tmpdir.share.data.some_file, 'string')
+
+      FileUtils.mkdir_p(tmpdir.subdir.share.data)
+      File.write(tmpdir.subdir.share.data.some_file, 'string')
+
+      path.libdir = tmpdir
+      Misc.in_dir tmpdir.subdir do
+        assert_equal 2, path.find_all.length
+      end
+    end
+  end
+
+  def test_located?
+
+    p = Path.setup("/tmp/foo/bar")
+    assert p.located?
+    assert_equal_path p, p.find
+  end
+
+  def test_custom
+    path = Path.setup("share/data/some_file", 'scout')
+    TmpFile.with_file do |tmpdir|
+      path.path_maps[:custom] = [tmpdir, '{PATH}'] * "/"
+      assert_equal_path File.join(tmpdir,"share/data/some_file"),  path.find(:custom)
+
+      path.path_maps[:custom] = [tmpdir, '{TOPLEVEL}/{PKGDIR}/{SUBPATH}'] * "/"
+      assert_equal_path File.join(tmpdir,"share/scout/data/some_file"),  path.find(:custom)
+    end
+  end
+
+  def test_pkgdir
+    path = Path.setup("share/data/some_file", 'scout')
+    TmpFile.with_file do |tmpdir|
+      path.pkgdir = 'scout_alt'
+      path.path_maps[:custom] = [tmpdir, '{TOPLEVEL}/{PKGDIR}/{SUBPATH}'] * "/"
+      assert_equal_path File.join(tmpdir,"share/scout_alt/data/some_file"),  path.find(:custom)
+    end
+  end
+
+  def test_sub
+    path = Path.setup("bin/scout/find")
+
+    assert_equal "/some_dir/bin/scout_commands/find",  Path.follow(path, "/some_dir/{PATH/scout/scout_commands}")
+    assert_equal "/some_dir/scout_commands/find",  Path.follow(path, '/some_dir/{PATH/bin\/scout/scout_commands}')
+  end
+
+  def test_gz
+    TmpFile.with_file do |tmpdir|
+      Path.setup(tmpdir)
+      Open.write(tmpdir.somefile + '.gz', "FOO")
+      assert_equal_path tmpdir.somefile + '.gz', tmpdir.somefile.find
+      assert Open.exist?(tmpdir.somefile)
+    end
+  end
+
+end
+

data/test/scout/path/test_util.rb

@@ -0,0 +1,22 @@
+require File.expand_path(__FILE__).sub(%r(/test/.*), '/test/test_helper.rb')
+require 'scout/path'
+require File.expand_path(__FILE__).sub(%r(.*/test/), '').sub(/test_(.*)\.rb/,'\1')
+
+class TestPathUtil < Test::Unit::TestCase
+  def test_dirname
+    p = Path.setup("/usr/share/scout/data")
+
+    assert_equal "/usr/share/scout", p.dirname
+  end
+
+  def test_glob
+    TmpFile.in_dir :erase => false do |tmpdir|
+      Path.setup tmpdir
+      File.write(tmpdir.foo, 'foo')
+      File.write(tmpdir.bar, 'bar')
+      assert_equal 2, tmpdir.glob.length
+      assert_equal %w(foo bar).sort, tmpdir.glob.collect{|p| p.basename }.sort
+    end
+  end
+end
+

data/test/scout/persist/test_open.rb

@@ -0,0 +1,37 @@
+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 TestPersistOpen < Test::Unit::TestCase
+
+  def obj
+    ["TEST", 2, :symbol, {"a" => [1,2], :b => 3}]
+  end
+
+  def test_json
+    obj = ["TEST", 2]
+    TmpFile.with_file(obj.to_json) do |tmpfile|
+      assert_equal obj, Open.json(tmpfile)
+    end
+  end
+
+  def test_yaml
+    TmpFile.with_file(obj.to_yaml) do |tmpfile|
+      assert_equal obj, Open.yaml(tmpfile)
+    end
+  end
+
+  def test_marshal
+    TmpFile.with_file(Marshal.dump(obj)) do |tmpfile|
+      assert_equal obj, Open.marshal(tmpfile)
+    end
+  end
+
+  def test_yaml_io
+    TmpFile.with_file(obj.to_yaml) do |tmpfile|
+      Open.open(tmpfile) do |f|
+        assert_equal obj, Open.yaml(f)
+      end
+    end
+  end
+end
+

data/test/scout/persist/test_path.rb

@@ -0,0 +1,37 @@
+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 TestPersistPath < Test::Unit::TestCase
+  def obj
+    ["TEST", 2, :symbol, {"a" => [1,2], :b => 3}]
+  end
+
+  def test_json
+    obj = ["TEST", 2]
+    TmpFile.with_file(obj.to_json) do |tmpfile|
+      Path.setup(tmpfile)
+      assert_equal obj, tmpfile.json
+    end
+  end
+
+  def test_yaml
+    TmpFile.with_file(obj.to_yaml) do |tmpfile|
+      assert_equal obj, Open.yaml(tmpfile)
+    end
+  end
+
+  def test_marshal
+    TmpFile.with_file(Marshal.dump(obj)) do |tmpfile|
+      assert_equal obj, Open.marshal(tmpfile)
+    end
+  end
+
+  def test_yaml_io
+    TmpFile.with_file(obj.to_yaml) do |tmpfile|
+      Open.open(tmpfile) do |f|
+        assert_equal obj, Open.yaml(f)
+      end
+    end
+  end
+end
+

data/test/scout/persist/test_serialize.rb

@@ -0,0 +1,114 @@
+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 TestPersistSerialize < Test::Unit::TestCase
+  def test_string
+    TmpFile.with_file do |tmpfile|
+      obj = "TEST"
+      Persist.save(obj, tmpfile, :string)
+      assert_equal obj, Persist.load(tmpfile, :string)
+    end
+  end
+
+  def test_string_io
+    TmpFile.with_file do |tmpfile|
+      obj = StringIO.new("TEST")
+      obj.rewind
+      Persist.save("TEST", tmpfile, :string)
+      assert_equal "TEST", Persist.load(tmpfile, :string)
+    end
+  end
+
+  def test_integer
+    TmpFile.with_file do |tmpfile|
+      obj = 1
+      Persist.save(obj, tmpfile, :integer)
+      assert_equal obj, Persist.load(tmpfile, :integer)
+    end
+  end
+
+  def test_float
+    TmpFile.with_file do |tmpfile|
+      obj = 1.210202
+      Persist.save(obj, tmpfile, :float)
+      assert_equal obj, Persist.load(tmpfile, :float)
+    end
+  end
+
+  def test_array
+    TmpFile.with_file do |tmpfile|
+      obj = %w(one two)
+      Persist.save(obj, tmpfile, :array)
+      assert_equal obj, Persist.load(tmpfile, :array)
+    end
+  end
+
+  def test_integer_array
+    TmpFile.with_file do |tmpfile|
+      obj = [1, 2]
+      Persist.save(obj, tmpfile, :integer_array)
+      assert_equal obj, Persist.load(tmpfile, :integer_array)
+    end
+  end
+
+  def test_float_array
+    TmpFile.with_file do |tmpfile|
+      obj = [1.1, 2.2]
+      Persist.save(obj, tmpfile, :float_array)
+      assert_equal obj, Persist.load(tmpfile, :float_array)
+    end
+  end
+
+  def test_boolean_array
+    TmpFile.with_file do |tmpfile|
+      obj = [true, false, true]
+      Persist.save(obj, tmpfile, :boolean_array)
+      assert_equal obj, Persist.load(tmpfile, :boolean_array)
+    end
+  end
+
+  def test_path_array
+    TmpFile.with_file do |tmpfile|
+      dir = Path.setup("test/dir")
+      obj = [dir.foo, dir.bar]
+      Persist.save(obj, tmpfile, :path_array)
+      assert_equal obj, Persist.load(tmpfile, :path_array)
+      assert_equal dir.foo.find, obj.first.find
+    end
+  end
+
+  def test_path_array_hash
+    TmpFile.with_file do |tmpfile|
+      dir = Path.setup("test/dir")
+      obj = [dir.foo, dir.bar]
+      hash = {}
+      Persist.save(obj, tmpfile, hash)
+      assert_equal obj, Persist.load(tmpfile, hash)
+      assert_equal dir.foo.find, obj.first.find
+    end
+  end
+
+  def test_relative_path
+    TmpFile.with_file do |dir|
+      Path.setup(dir)
+      file = dir.subdir.file
+      Open.write(file, "TEST")
+      Persist.save('./subdir/file', dir.file, :file)
+      assert_equal 'TEST', Open.read(Persist.load(dir.file, :file))
+    end
+  end
+
+  def test_relative_file_array
+    TmpFile.with_file do |dir|
+      Path.setup(dir)
+      file1 = dir.subdir1.file
+      Open.write(file1, "TEST1")
+      file2 = dir.subdir2.file
+      Open.write(file2, "TEST2")
+      Persist.save(["./subdir1/file", "./subdir2/file"], dir.file, :file_array)
+      assert_equal 'TEST1', Open.read(Persist.load(dir.file, :file_array)[0])
+      assert_equal 'TEST2', Open.read(Persist.load(dir.file, :file_array)[1])
+    end
+  end
+end
+

data/test/scout/resource/test_path.rb

@@ -0,0 +1,58 @@
+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/resource'
+require 'scout/resource/scout'
+
+class TestResourcePath < Test::Unit::TestCase
+  module TestResource
+    extend Resource
+
+    self.subdir = Path.setup('tmp/test-resource_alt')
+
+    claim self.tmp.test.string, :string, "TEST"
+  end
+
+  def teardown
+    FileUtils.rm_rf TestResource.root.find
+  end
+
+  def test_read
+    assert_include TestResource.tmp.test.string.read, "TEST"
+  end
+
+  def test_open
+    str = ""
+    TestResource.tmp.test.string.open do |f|
+      str = f.read
+    end
+    assert_include str, "TEST"
+  end
+
+  def test_write
+    TmpFile.with_file do |tmpfile|
+      Path.setup(tmpfile)
+      tmpfile.foo.bar.write do |f|
+        f.puts "TEST"
+      end
+      assert_include tmpfile.foo.bar.read, "TEST"
+    end
+  end
+
+  def test_identify
+    p = Scout.data.file.find(:lib)
+    assert p.located?
+    assert_equal "data/file", p.identify
+  end
+
+  def test_with_extension
+    dir = tmpdir.directory[__method__]
+    list = %w(a b)
+    Misc.in_dir(dir) do
+      file = dir.foo
+      Open.write(file.set_extension('list'), list * "\n")
+      assert_equal list, file.list
+    end
+  end
+end
+

data/test/scout/resource/test_produce.rb

@@ -0,0 +1,94 @@
+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 File.expand_path(__FILE__).sub(%r(.*/test/), '').sub(/test_(.*)\.rb/,'../resource')
+
+require 'scout/resource/scout'
+
+class TestResourceUnit < Test::Unit::TestCase
+  module TestResource
+    extend Resource
+
+    self.subdir = Path.setup('tmp/test-resource')
+
+    claim self.tmp.test.google, :url, "http://google.com"
+    claim self.tmp.test.string, :string, "TEST"
+    claim self.tmp.test.proc, :proc do
+      "PROC TEST"
+    end
+
+    claim self.tmp.test.rakefiles.Rakefile , :string , <<-EOF
+file('foo') do |t|
+  Open.write(t.name, "FOO")
+end
+
+rule(/.*/) do |t|
+  Open.write(t.name, "OTHER")
+end
+    EOF
+
+    claim self.tmp.test.work.footest, :rake, TestResource.tmp.test.rakefiles.Rakefile
+
+    claim self.tmp.test.work.file_proc, :file_proc do |file,filename|
+      Open.write(filename, file)
+      nil
+    end
+  end
+
+  def teardown
+    FileUtils.rm_rf TestResource.root.find
+  end
+
+  def test_proc
+    TestResource.produce TestResource.tmp.test.proc
+    assert_include File.open(TestResource.tmp.test.proc.find).read, "PROC TEST"
+  end
+
+  def test_string
+    TestResource.produce TestResource.tmp.test.string
+    assert_include File.open(TestResource.tmp.test.string.find).read, "TEST"
+  end
+
+  def test_url
+    TestResource.produce TestResource.tmp.test.google
+    assert_include File.open(TestResource.tmp.test.google.find).read, "html"
+  end
+
+  def test_rake
+    TestResource.produce TestResource.tmp.test.work.footest.foo
+    TestResource.produce TestResource.tmp.test.work.footest.bar
+    TestResource.produce TestResource.tmp.test.work.footest.foo_bar
+    assert_include File.open(TestResource.tmp.test.work.footest.foo.find).read, "FOO"
+    assert_include File.open(TestResource.tmp.test.work.footest.bar.find).read, "OTHER"
+    assert_include File.open(TestResource.tmp.test.work.footest.foo_bar.find).read, "OTHER"
+  end
+
+  def test_produce_with_extension
+    dir = tmpdir.directory[__method__]
+    dir.pkgdir = Scout
+    list = %w(a b)
+
+    Scout.claim dir["foo.list"], :proc do
+      list
+    end
+
+    Misc.in_dir(dir) do
+      file = dir.foo
+      assert_equal list, file.list
+    end
+  end
+
+  def test_produce_compressed
+    dir = tmpdir.directory[__method__]
+    dir.pkgdir = Scout
+    list = %w(a b)
+
+    Scout.claim dir["foo.gz"], :proc do |filename|
+      list
+    end
+
+    Misc.in_dir(dir) do
+      file = dir.foo
+      assert_include file.produce.find, '.gz'
+    end
+  end
+end

data/test/scout/resource/test_software.rb

@@ -0,0 +1,24 @@
+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 TestResourceSoftware < Test::Unit::TestCase
+  module TestResource
+    extend Resource
+
+    self.subdir = Path.setup('tmp/test-resource')
+  end
+
+  def test_install
+    Resource.install nil, "scout_install_example", tmpdir.software do
+      <<-EOF
+echo "#!/bin/bash\necho WORKING" > $OPT_BIN_DIR/scout_install_example
+chmod +x $OPT_BIN_DIR/scout_install_example
+      EOF
+    end
+    assert_nothing_raised do
+      CMD.cmd(tmpdir.software.opt.bin.scout_install_example).read
+    end
+    assert_equal "WORKING", CMD.cmd('scout_install_example').read.strip
+  end
+end
+

data/test/scout/resource/test_util.rb

@@ -0,0 +1,38 @@
+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/resource/scout'
+
+class TestResourceUtil < Test::Unit::TestCase
+  def test_identify
+    path = Path.setup('share/data/somedir/somepath').find
+    assert_equal 'share/data/somedir/somepath', Scout.identify(path)
+  end
+
+  def test_identify_with_subdir
+    m = Module.new
+    m.extend Resource
+    m.subdir = 'test/subdir'
+    path = m.root['share/data/somedir/somepath'].find
+    assert_equal 'share/data/somedir/somepath', m.identify(path)
+  end
+
+
+  def test_relocate
+    TmpFile.with_file do |dir|
+      Path.setup dir
+
+      path_base = Path.setup("basedir").someother.file
+      path_base.path_maps[:subdir1] = File.join(dir, 'subdir1', '{PATH}')
+      path_base.path_maps[:subdir2] = File.join(dir, 'subdir2', '{PATH}')
+
+      path1 = path_base.find(:subdir1)
+      path2 = path_base.find(:subdir2)
+
+      Open.write(path1, "TEST")
+      Open.mv path1, path2
+      assert_equal path2, Resource.relocate(path1)
+    end
+  end
+end
+

data/test/scout/simple_opt/test_doc.rb

@@ -0,0 +1,16 @@
+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 TestSimpleOptDoc < Test::Unit::TestCase
+  def test_input_format
+    assert_match 'default: :def', SOPT.input_format(:name, :type, :def, :n)
+  end
+  def test_input_doc
+    inputs =<<-EOF.split("\n").collect{|l| l.split(" ") }
+input1 integer Integer_input 10 i1
+input2 float Float_input 0.2 i2
+    EOF
+    assert SOPT.input_array_doc(inputs).include?('-i1,--input1')
+  end
+end
+

data/test/scout/simple_opt/test_get.rb

@@ -0,0 +1,11 @@
+require File.expand_path(__FILE__).sub(%r(/test/.*), '/test/test_helper.rb')
+require 'scout/simple_opt'
+require File.expand_path(__FILE__).sub(%r(.*/test/), '').sub(/test_(.*)\.rb/,'\1')
+
+class TestSOPTParse < Test::Unit::TestCase
+  def test_consume
+    SOPT.parse("-f--first* first arg:-f--fun")
+    args = "-f myfile --fun".split(" ")
+    assert_equal "myfile", SOPT.consume(args)[:first]
+  end
+end

data/test/scout/simple_opt/test_parse.rb

@@ -0,0 +1,10 @@
+require File.expand_path(__FILE__).sub(%r(/test/.*), '/test/test_helper.rb')
+require 'scout/path'
+require File.expand_path(__FILE__).sub(%r(.*/test/), '').sub(/test_(.*)\.rb/,'\1')
+
+class TestSOPTParse < Test::Unit::TestCase
+  def test_parse
+    SOPT.parse("-f--first* first arg:-f--fun")
+    assert_equal "fun", SOPT.shortcuts["fu"]
+  end
+end