scout-essentials 1.0.0

data/test/scout/misc/test_digest.rb

@@ -0,0 +1,30 @@
+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

@@ -0,0 +1,30 @@
+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

@@ -0,0 +1,13 @@
+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

@@ -0,0 +1,21 @@
+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

@@ -0,0 +1,52 @@
+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

@@ -0,0 +1,25 @@
+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
+