jiji 1.2.5

data/test/test_utils.rb

@@ -0,0 +1,112 @@
+
+$: << "../lib"
+
+require 'rubygems'
+require 'runit/testcase'
+require 'runit/cui/testrunner'
+require 'jiji/configuration'
+require 'jiji/plugin/securities_plugin'
+require 'fileutils'
+require 'logger'
+require 'jiji/util/json_rpc_requestor'
+
+# テスト用ユーティリティなど。
+module Test
+  module Constants
+
+    USER="<user-name>"
+    PASSWORD="<password>"
+
+    # テスト用設定値
+    CONF = JIJI::Configuration.new
+
+    Info = Struct.new( :trade_unit )
+    Rate = Struct.new( :bid, :ask, :sell_swap, :buy_swap, :date )
+
+  end
+
+  # テスト用クライアント
+  class MockClient
+    include JIJI::Plugin::SecuritiesPlugin
+    def plugin_id; :mock end
+    def list_pairs
+      [ Pair.new( :EURJPY, 10000 ), Pair.new( :USDJPY, 10000 ) ]
+    end
+    def list_rates
+      {:EURJPY=>Rate.new( 102.01, 102.05, 100, -100 ),
+       :USDJPY=>Rate.new( 102.01, 102.05, 100, -100 )}
+    end
+  end
+
+  # サービスのテストの抽象基底クラス
+  class AbstractServiceTest < RUNIT::TestCase
+    def setup
+    end
+    def teardown
+    end
+  end
+
+  #レジストリを破棄する。
+  def self.destry( registry, dir=nil )
+    begin
+      registry.process_manager.stop
+    ensure
+      begin
+        begin
+          registry.permitter.close
+        ensure
+          registry.server_logger.close
+        end
+      ensure
+        if dir
+          FileUtils.rm_rf "#{dir}/logs"
+          FileUtils.rm_rf "#{dir}/process_logs"
+          FileUtils.rm_rf "#{dir}/rate_datas"
+        end
+      end
+    end
+  end
+
+  # テスト用エージェント
+  class Agent
+    include JIJI::Agent
+
+    @@fail_propset = proc{ |a| false }
+
+    def initialize( cl, properties )
+      @cl = cl
+      @properties = properties
+    end
+
+    # 設定されたプロパティを取得する
+    def properties
+      @properties
+    end
+    # プロパティを設定する
+    def properties=( properties )
+      raise "test" if @@fail_propset.call( self )
+      @properties = properties
+    end
+    def output
+      ["out1","out2"]
+    end
+    attr :cl, true
+
+    def self.set_fail_propset(&block)
+      @@fail_propset = block
+    end
+  end
+
+  #エージェントレジストリのモック
+  class RegistryMock
+    @@fail_create = proc{ |cl,p| false }
+    def create( cl, property )
+      raise "test" if @@fail_create.call( cl, property )
+      Agent.new( cl, property ).taint
+    end
+    def self.set_fail_create(&block)
+      @@fail_create = block
+    end
+  end
+
+end

data/test/util/test_BlockToSession.rb

@@ -0,0 +1,121 @@
+#!/usr/bin/ruby
+
+$: << "../lib"
+
+require "runit/testcase"
+require "runit/cui/testrunner"
+require 'jiji/util/block_to_session'
+require 'logger'
+require 'csv'
+
+class BlockToSessionTest <  RUNIT::TestCase
+  
+  # 基本動作のテスト
+  def test_basic
+    
+    buff = ""
+    s = Session.new {|wait|
+      do_as( "a", "b", buff ) {|a,b,log|
+        log << "#{a}.#{b}.wait."
+        wait.call( a, b, log )
+      }
+    }
+    assert_equals buff, "start.a.b.wait."
+    
+    # リクエストを送る
+    assert_equals "result", s.request {|a,b,log|
+      log << "#{a}.#{b}.req."
+      "result"
+    }
+    assert_equals buff, "start.a.b.wait.a.b.req."
+    
+    assert_equals "result2", s.request {|a,b,log|
+      log << "#{a}.#{b}.req."
+      "result2"
+    }
+    assert_equals buff, "start.a.b.wait.a.b.req.a.b.req."
+    
+    # リクエスト中にエラー#呼び出し元に伝搬される
+    begin
+      s.request {|a,b,log|
+        raise NameError.new("test")
+      }
+      fail
+    rescue NameError
+    end
+    begin
+      s.request {|a,b,log|
+        raise Exception.new
+      }
+      fail
+    rescue Exception
+    end
+    
+    assert_equals "result3", s.request {|a,b,log|
+      log << "#{a}.#{b}.req."
+      "result3"
+    }
+    assert_equals buff, "start.a.b.wait.a.b.req.a.b.req.a.b.req."
+    assert_equals "result4", s.request {|a,b,log|
+      log << "#{a}.#{b}.req."
+      "result4"
+    }
+    assert_equals buff, "start.a.b.wait.a.b.req.a.b.req.a.b.req.a.b.req."
+    
+    s.close
+    assert_equals buff, "start.a.b.wait.a.b.req.a.b.req.a.b.req.a.b.req.end."
+    
+  end
+
+  def do_as( a,b,log ) 
+    begin
+      log << "start."
+      yield a, b, log
+    ensure
+      log << "end."
+    end
+  end
+
+  # 基本動作のテスト
+  def test_error_session
+    s = create_session
+    begin
+      s.request {|x| x.call }
+      fail
+    rescue
+      s.close
+      s = create_session
+      begin
+        s.request {|x| x.call }
+        fail
+      rescue
+      end
+    end
+    
+    begin
+      s.request {|x| x.call }
+      fail
+    rescue 
+    end
+  
+  end
+
+  def create_session
+      return Session.new { |wait|
+          wait.call( ErrorSession.new( "test" ) )
+      }
+  end
+
+
+  #接続エラー時に使用するセッション
+  #常にエラーをスローする。
+  class ErrorSession
+    def initialize(error)
+      @error = error
+    end
+    def method_missing(name, *args, &block)
+      raise @error
+    end
+  end
+
+end

data/test/util/test_CSV.rb

@@ -0,0 +1,84 @@
+#!/usr/bin/ruby
+
+$: << "../lib"
+
+require 'runit/testcase'
+require 'runit/cui/testrunner'
+require 'jiji/util/csv_append_support'
+require 'fileutils'
+
+class CSVTest <  RUNIT::TestCase
+  
+  def setup
+    @dir = File.dirname(__FILE__) + "/CSVTest.tmp"
+    FileUtils.mkdir_p @dir    
+  end
+
+  def teardown
+    FileUtils.rm_rf @dir
+  end
+
+  def test_append
+    
+    CSV.open( "#{@dir}/test.csv", "w" ){ |csv|
+      csv << ["a", 1,  "c"]
+      csv << ["b", 10,  "x"]
+    }
+    
+    list = CSV.read( "#{@dir}/test.csv")
+    assert_equals list, [["a", "1",  "c"], ["b", "10",  "x"]]
+    
+    # 追記
+    CSV.open( "#{@dir}/test.csv", "a"){ |csv|
+      csv << ["c", 2,  "あ"]
+    }
+    list = CSV.read( "#{@dir}/test.csv")
+    assert_equals list, [["a", "1",  "c"], ["b", "10",  "x"],["c", "2",  "あ"]]
+    
+    # さらに追記
+    CSV.open( "#{@dir}/test.csv", "a"){ |csv|
+      csv << ["d", "x",  "い"]
+      csv << ["d", "x",  "い"]
+    }
+    list = CSV.read( "#{@dir}/test.csv")
+    assert_equals list, [["a", "1",  "c"], ["b", "10",  "x"],["c", "2",  "あ"],["d", "x",  "い"],["d", "x",  "い"]]
+  
+    # 更新
+    CSV.open( "#{@dir}/test.csv", "w" ){ |csv|
+    }
+    
+    list = CSV.read( "#{@dir}/test.csv")
+    assert_equals list, []
+    
+    
+    # 空の状態から追記
+    CSV.open( "#{@dir}/test.csv", "a"){ |csv|
+      csv << ["d", "x",  "い"]
+      csv << ["d", "x",  "い"]
+    }
+    list = CSV.read( "#{@dir}/test.csv")
+    assert_equals list, [["d", "x",  "い"],["d", "x",  "い"]]
+  
+    CSV.open( "#{@dir}/test2.csv", "a" ){ |csv|
+      csv << ["d", "x",  "い"]
+      csv << ["d", "x",  "い"]
+    }
+    list = CSV.read( "#{@dir}/test.csv")
+    assert_equals list, [["d", "x",  "い"],["d", "x",  "い"]]
+    
+  end
+  
+  def test_escape
+    
+    # 「改行」や「,」「半角スペース」を書いてみる
+    CSV.open( "#{@dir}/test.csv", "w" ){ |csv|
+      csv << ["\n\t, ", 1,  "\n\t, "]
+      csv << ["\n\t, ", 10,  "\n\t, "]
+    }
+    
+    list = CSV.read( "#{@dir}/test.csv")
+    assert_equals list, [["\n\t, ", "1",  "\n\t, "], ["\n\t, ", "10",  "\n\t, "]]
+    
+  end
+  
+end

data/test/util/test_SynchronizeInterceptor.rb

@@ -0,0 +1,76 @@
+#!/usr/bin/ruby
+
+$: << "../lib"
+
+require 'rubygems'
+require 'runit/testcase'
+require 'runit/cui/testrunner'
+require 'rubygems'
+require 'needle'
+require 'jiji/util/synchronize_interceptor'
+require 'fileutils'
+
+class SynchronizeInterceptorTest <  RUNIT::TestCase
+  
+  def setup
+    @dir = File.dirname(__FILE__) + "/CSVTest.tmp"
+    FileUtils.mkdir_p @dir    
+  end
+
+  def teardown
+    FileUtils.rm_rf @dir
+  end
+
+  def test_basic
+    
+    # レジストリ
+    p = proc {
+      5.times {|i| print "#{i},"; sleep 0.1 }
+    }
+    registry = Needle::Registry.define {|builder|
+      builder.loop_no { p }
+      builder.loop_x1 { p }
+      builder.loop_x2 { p }
+      builder.loop_y1 { p }
+      builder.loop_y2 { p }
+    }
+    
+    # インターセプタを適用
+    registry.intercept( :loop_x1 ).with { SynchronizeInterceptor }.with_options( :id=>"x" )
+    registry.intercept( :loop_x2 ).with { SynchronizeInterceptor }.with_options( :id=>"x" )
+    registry.intercept( :loop_y1 ).with { SynchronizeInterceptor }.with_options( :id=>"y" )
+    registry.intercept( :loop_y2 ).with { SynchronizeInterceptor }.with_options( :id=>"y" )
+    
+    loops = [
+      :loop_no, :loop_x1, :loop_x2, :loop_y1, :loop_y2
+    ]
+    loops.each {|a|
+      loops.each {|b|
+        puts "\n\n---#{a} x #{b}"
+        [registry[a],registry[b]].map {|x|
+          Thread.fork(x) {|l| l.call }
+        }.each{|t| t.value }
+      }
+    }
+  end
+  
+  # 同じインターセプタが2重に適用されている場合のテスト
+  def test_dual
+    registry = Needle::Registry.new {|r|
+        r.register( :a ) {
+          proc { puts "aaa" }
+        }
+        r.register( :b ) {
+          a = r.a
+          proc { a.call; puts "bbb" }
+        }
+    }
+    registry.intercept( :a ).with { SynchronizeInterceptor }.with_options( :id=>"x" )
+    registry.intercept( :b ).with { SynchronizeInterceptor }.with_options( :id=>"x" )
+    
+    b = registry.b
+    3.times{|i| b.call }
+  end
+ 
+  
+end

data/test/util/util_tests.rb

@@ -0,0 +1,9 @@
+#!/usr/bin/ruby
+
+require 'rubygems'
+require 'runit/testcase'
+require 'runit/cui/testrunner'
+
+require 'util/test_BlockToSession'
+require 'util/test_CSV'
+require 'util/test_SynchronizeInterceptor'