ruote 2.2.0 → 2.3.0

data/lib/ruote/log/test_logger.rb

@@ -1,204 +0,0 @@
-#--
-# Copyright (c) 2005-2011, John Mettraux, jmettraux@gmail.com
-#
-# Permission is hereby granted, free of charge, to any person obtaining a copy
-# of this software and associated documentation files (the "Software"), to deal
-# in the Software without restriction, including without limitation the rights
-# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
-# copies of the Software, and to permit persons to whom the Software is
-# furnished to do so, subject to the following conditions:
-#
-# The above copyright notice and this permission notice shall be included in
-# all copies or substantial portions of the Software.
-#
-# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
-# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
-# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
-# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
-# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
-# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
-# THE SOFTWARE.
-#
-# Made in Japan.
-#++
-
-require 'ruote/log/pretty'
-
-
-module Ruote
-
-  class TestLogger
-
-    include PrettyLogging
-
-    attr_reader :seen
-    attr_reader :log
-
-    attr_accessor :noisy
-
-    def initialize(context)
-
-      @context = context
-
-      if @context.worker
-        #
-        # this is a worker context, DO log
-        #
-        @context.worker.subscribe(:all, self)
-      #else
-        #
-        # this is not a worker context, DO NOT log, but be ready to
-        # be queried
-        #
-      end
-
-      @seen = []
-      @log = []
-      @waiting = []
-
-      @count = -1
-      @color = 33
-      @noisy = false
-    end
-
-    def notify(msg)
-
-      puts(pretty_print(msg)) if @noisy
-
-      @seen << msg
-      @log << msg
-
-      check_waiting
-    end
-
-    # Blocks until one or more interests are satisfied.
-    #
-    # interests must be an array of interests. Please refer to
-    # Engine#wait_for documentation for allowed values of each interest.
-    #
-    # If multiple interests are given, wait_for blocks until
-    # all of the interests are satisfied.
-    #
-    # wait_for may only be used by one thread at a time. If one
-    # thread calls wait_for and later another thread calls wait_for
-    # while the first thread is waiting, the first thread's
-    # interests are lost and the first thread will never wake up.
-    #
-    def wait_for(interests)
-
-      @waiting << [ Thread.current, interests ]
-
-      check_waiting
-
-      Thread.stop if @waiting.find { |w| w.first == Thread.current }
-
-      # and when this thread gets woken up, go on and return __result__
-
-      Thread.current['__result__']
-    end
-
-    # Debug only : dumps all the seen events to STDOUTS
-    #
-    def dump
-
-      @seen.collect { |msg| pretty_print(msg) }.join("\n")
-    end
-
-    def color=(c)
-
-      @color = c
-    end
-
-    def self.pp(msg)
-
-      @logger ||= TestLogger.new(nil)
-      puts @logger.send(:pretty_print, msg)
-    end
-
-    protected
-
-    def check_waiting
-
-      return if @waiting.size < 1
-
-      while msg = @seen.shift
-        check_msg(msg)
-      end
-    end
-
-    def check_msg(msg)
-
-      wakeup = []
-
-      @waiting.each do |thread, interests|
-
-        wakeup << thread if matches(interests, msg)
-      end
-
-      @waiting.delete_if { |t, i| i.size < 1 }
-
-      wakeup.each do |thread|
-
-        thread['__result__'] = msg
-        thread.wakeup
-      end
-    end
-
-    FINAL_ACTIONS = %w[ terminated ceased error_intercepted ]
-
-    # Checks whether message msg matches any of interests being waited for.
-    #
-    # Some interests look for actions on particular workflows (e.g.,
-    # waiting for some workflow to finish). Other interests are not
-    # attached to any particular workflow (e.g., :inactive waits until
-    # the engine finishes processing all active and pending workflows)
-    # but are still satisfied when actions happen on workflows (e.g.,
-    # the last workflow being run finishes).
-    #
-    # Returns true if all interests being waited for have been satisfied,
-    # false otherwise.
-    #
-    def matches(interests, msg)
-
-      action = msg['action']
-
-      interests.each do |interest|
-
-        satisfied = case interest
-
-          when :inactive
-
-            (FINAL_ACTIONS.include?(action) && @context.worker.inactive?)
-
-          when :empty
-
-            (action == 'terminated' && @context.storage.empty?('expressions'))
-
-          when Symbol
-
-            (action == 'dispatch' && msg['participant_name'] == interest.to_s)
-
-          when Fixnum
-
-            interests.delete(interest)
-
-            if (interest > 1)
-              interests << (interest - 1)
-              false
-            else
-              true
-            end
-
-          else # wfid
-
-            (FINAL_ACTIONS.include?(action) && msg['wfid'] == interest)
-        end
-
-        interests.delete(interest) if satisfied
-      end
-
-      interests.size < 1
-    end
-  end
-end
-

data/lib/ruote/util/serializer.rb

@@ -1,103 +0,0 @@
-#--
-# Copyright (c) 2005-2011, John Mettraux, jmettraux@gmail.com
-#
-# Permission is hereby granted, free of charge, to any person obtaining a copy
-# of this software and associated documentation files (the "Software"), to deal
-# in the Software without restriction, including without limitation the rights
-# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
-# copies of the Software, and to permit persons to whom the Software is
-# furnished to do so, subject to the following conditions:
-#
-# The above copyright notice and this permission notice shall be included in
-# all copies or substantial portions of the Software.
-#
-# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
-# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
-# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
-# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
-# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
-# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
-# THE SOFTWARE.
-#
-# Made in Japan.
-#++
-
-
-module Ruote
-
-  #
-  # To get a YAML serializer :
-  #
-  #   serializer = Serializer.new(:yaml)
-  #
-  # A marshal + base64 one :
-  #
-  #   serializer = Serializer.new(:marshal64)
-  #
-  # A marshal only one :
-  #
-  #   serializer = Serializer.new(:marshal)
-  #
-  # For the rest, it's the classical :
-  #
-  #   data = serializer.encode(object)
-  #
-  #   object = serializer.decode(data)
-  #
-  class Serializer
-
-    #--
-    # prepare / encode / decode lambda pairs
-    #++
-
-    # plain marshal serialization
-    #
-    MARSHAL = [
-      lambda { },
-      lambda { |o| Marshal.dump(o) },
-      lambda { |s| Marshal.load(s) }
-    ]
-
-    # marshal serialization with base64 encoding
-    #
-    MARSHAL64 = [
-      lambda { require 'base64' },
-      lambda { |o| Base64.encode64(Marshal.dump(o)) },
-      lambda { |s| Marshal.load(Base64.decode64(s)) }
-    ]
-
-    # YAML serialization
-    #
-    YAML = [
-      lambda { require 'yaml' },
-      lambda { |o| ::YAML.dump(o) },
-      lambda { |s| ::YAML.load(s) }
-    ]
-
-    #JASH = ...
-
-    # The flavour map
-    #
-    FLAVOURS = {
-      :marshal => MARSHAL, :marshal64 => MARSHAL64, :yaml => YAML
-    }
-
-    def initialize(flavour)
-
-      @flavour = FLAVOURS[flavour] || MARSHAL64
-
-      @flavour[0].call # initializes the flavour
-    end
-
-    def encode(o)
-
-      @flavour[1].call(o)
-    end
-
-    def decode(s)
-
-      @flavour[2].call(s)
-    end
-  end
-end
-

data/phil.txt

@@ -1,14 +0,0 @@
-
-persist then dispatch
-
-==
-
-concurrence (and concurrent-iterator) :
-
-  persist, then fire all children
-  prepare all children then fire them !!!
-
-==
-
-it can't be perfect, but there can be tools for fixing the consequences of those flaws.
-

data/test/functional/eft_33_let.rb

@@ -1,31 +0,0 @@
-
-#
-# testing ruote
-#
-# Fri Dec 24 15:35:17 JST 2010
-#
-
-require File.join(File.dirname(__FILE__), 'base')
-
-
-class EftLetTest < Test::Unit::TestCase
-  include FunctionalBase
-
-  def test_let
-
-    pdef = Ruote.process_definition do
-      set 'v:var' => 'val'
-      echo "out:${v:var}"
-      let do
-        set 'v:var' => 'val1'
-        echo "in:${v:var}"
-      end
-      echo "out:${v:var}"
-    end
-
-    #noisy
-
-    assert_trace %w[ out:val in:val1 out:val ], pdef
-  end
-end
-

data/test/functional/ft_19_alias.rb

@@ -1,33 +0,0 @@
-
-#
-# testing ruote
-#
-# Thu Jul 16 16:11:57 JST 2009
-#
-
-require File.join(File.dirname(__FILE__), 'base')
-
-
-class FtAliasTest < Test::Unit::TestCase
-  include FunctionalBase
-
-  def test_var_alias
-
-    pdef = Ruote.process_definition :name => 'def0' do
-      set :v => 'alpha', :val => 'bravo'
-      sequence do
-        alpha
-        bravo
-      end
-    end
-
-    alpha = @engine.register_participant :bravo do |workitem|
-      @tracer << "b:#{workitem.fields['params']['original_ref']}\n"
-    end
-
-    #noisy
-
-    assert_trace(%w[ b:alpha b: ], pdef)
-  end
-end
-

data/test/functional/ft_47_wfid_generator.rb

@@ -1,54 +0,0 @@
-
-#
-# testing ruote
-#
-# Sat Oct 23 14:22:15 JST 2010
-#
-
-require File.join(File.dirname(__FILE__), 'base')
-
-
-class FtWfidGeneratorTest < Test::Unit::TestCase
-  include FunctionalBase
-
-  # an old test, brought back
-  #
-  def test_generate_unique_ids
-
-    n = 147
-
-    wfids = []
-    n.times { wfids << @engine.context.wfidgen.generate }
-
-    assert_equal n, wfids.uniq.size
-  end
-
-  # making a purge! doesn't incapacitate wfid generation
-  # (had a false alert when working with @hassox)
-  #
-  def test_generate_even_after_a_purge
-
-    assert_not_nil @engine.context.wfidgen.generate
-
-    @engine.storage.purge!
-    #@engine.context.wfidgen.instance_eval { @last = nil }
-
-    assert_not_nil @engine.context.wfidgen.generate
-  end
-
-  def test_generate_after_a_put_failed
-
-    assert_not_nil @engine.context.wfidgen.generate
-
-    @engine.context.wfidgen.instance_eval do
-      if @last['_rev'].is_a?(String)
-        @last['_rev'] = '1-cc9bc774f00b65ee28a6c0e4f26474de'
-      else # integer
-        @last['_rev'] = 123456789
-      end
-    end
-
-    assert_not_nil @engine.context.wfidgen.generate
-  end
-end
-

data/test/unit/storage.rb

@@ -1,403 +0,0 @@
-
-#
-# testing ruote
-#
-# Mon Dec 14 15:03:13 JST 2009
-#
-
-require File.join(File.dirname(__FILE__), %w[ .. test_helper.rb ])
-
-require_json
-
-require File.join(File.dirname(__FILE__), %w[ .. functional storage_helper.rb ])
-
-require 'ruote/fei'
-require 'ruote/participant'
-
-
-#
-# note : using the 'errors' type, but this test is about generic storage, not
-#        about errors per se.
-#
-
-class UtStorage < Test::Unit::TestCase
-
-  def setup
-
-    @s = determine_storage({})
-
-    #@s.add_type('errors')
-
-    @s.purge_type!('errors')
-    @s.purge_type!('expressions')
-    @s.purge_type!('msgs')
-    @s.purge_type!('workitems')
-
-    @s.put(
-      '_id' => 'toto',
-      'type' => 'errors',
-      'message' => 'testing')
-  end
-
-  def teardown
-
-    @s.purge_type!('errors')
-    @s.purge_type!('expressions')
-    @s.purge_type!('msgs')
-    @s.purge_type!('workitems')
-
-    @s.shutdown
-  end
-
-  def test_get_configuration
-
-    assert_not_nil @s.get_configuration('engine')
-  end
-
-  def test_get
-
-    h = @s.get('errors', 'toto')
-
-    assert_not_nil h['_rev']
-
-    h = @s.get('errors', 'nada')
-
-    assert_nil h
-  end
-
-  def test_put
-
-    doc =  {
-      '_id' => 'test_put', 'type' => 'errors', 'message' => 'testing (2)' }
-
-    @s.put(doc)
-
-    assert_nil doc['_rev']
-
-    h = @s.get('errors', 'test_put')
-
-    assert_not_nil h['_rev']
-    assert_not_nil h['put_at']
-  end
-
-  def test_put_fail
-
-    r = @s.put('_id' => 'toto', 'type' => 'errors', 'message' => 'more')
-
-    assert_equal 'toto', r['_id']
-    assert_not_nil r['_rev']
-  end
-
-  def test_put_update_rev
-
-    doc = { '_id' => 'tpur', 'type' => 'errors', 'message' => 'more' }
-
-    r = @s.put(doc, :update_rev => true)
-
-    assert_not_nil doc['_rev']
-  end
-
-  def test_put_put_and_put
-
-    doc = { '_id' => 'whiskas', 'type' => 'errors', 'message' => 'miam' }
-
-    r = @s.put(doc)
-    doc = @s.get('errors', 'whiskas')
-
-    r = @s.put(doc)
-    assert_nil r
-
-    doc = @s.get('errors', 'whiskas')
-
-    assert_not_nil doc['put_at']
-
-    r = @s.put(doc)
-    assert_nil r
-  end
-
-  def test_put_update_rev_twice
-
-    doc = { '_id' => 'tpurt', 'type' => 'errors', 'message' => 'more' }
-
-    r = @s.put(doc, :update_rev => true)
-    assert_nil r
-
-    doc = { '_id' => 'tpurt', 'type' => 'errors', 'message' => 'more' }
-
-    r = @s.put(doc, :update_rev => true)
-    assert_not_nil r
-  end
-
-  def test_delete_fail
-
-    # missing _rev
-
-    assert_raise(ArgumentError) do
-      @s.delete('_id' => 'toto')
-    end
-  end
-
-  def test_delete
-
-    doc = @s.get('errors', 'toto')
-
-    r = @s.delete(doc)
-
-    assert_nil r
-  end
-
-  def test_delete_missing
-
-    r = @s.delete('_id' => 'x', '_rev' => '12-13231123132', 'type' => 'errors')
-
-    assert_equal true, r
-  end
-
-  def test_keys_should_be_string
-
-    doc = { '_id' => 'h0', 'type' => 'errors', :m0 => :z, :m1 => [ :a, :b ] }
-
-    @s.put(doc)
-
-    doc = @s.get('errors', 'h0')
-
-    assert_equal 'z', doc['m0']
-    assert_equal %w[ a b ], doc['m1']
-  end
-
-  # Updating a gone document must result in a 'true' reply.
-  #
-  def test_put_gone
-
-    h = @s.get('errors', 'toto')
-
-    assert_nil @s.delete(h)
-
-    h['colour'] = 'blue'
-
-    assert_equal true, @s.put(h)
-  end
-
-  def test_purge_type
-
-    @s.purge_type!('errors')
-
-    assert_equal 0, @s.get_many('errors').size
-  end
-
-  def test_clear
-
-    @s.clear
-
-    assert_equal 0, @s.get_many('errors').size
-  end
-
-  #def test_purge
-  #  @s.purge!
-  #  assert_equal 0, @s.get_many('errors').size
-  #end
-
-  def test_ids
-
-    @s.put('_id' => 't_ids0', 'type' => 'errors', 'message' => 'testing')
-    @s.put('_id' => 't_ids1', 'type' => 'errors', 'message' => 'testing')
-    @s.put('_id' => 't_ids2', 'type' => 'errors', 'message' => 'testing')
-
-    assert_equal %w[ t_ids0 t_ids1 t_ids2 toto ], @s.ids('errors').sort
-  end
-
-  def test_get_many
-
-    30.times do |i|
-      @s.put(
-        '_id' => "xx!#{i}",
-        'type' => 'errors',
-        'wfid' => i.to_s,
-        'msg' => "whatever #{i}")
-    end
-
-    assert_equal 31, @s.get_many('errors').size
-    assert_equal 1, @s.get_many('errors', '7').size
-    assert_equal 1, @s.get_many('errors', /!7$/).size
-    assert_equal 30, @s.get_many('errors', /^xx!/).size
-    assert_equal 30, @s.get_many('errors', /x/).size
-    assert_equal 10, @s.get_many('errors', nil, :limit => 10).size
-  end
-
-  def test_get_many_options
-
-    load_30_errors
-
-    # limit
-
-    assert_equal 10, @s.get_many('errors', nil, :limit => 10).size
-
-    # count
-
-    assert_equal 31, @s.get_many('errors', nil, :count => true)
-
-    # skip and limit
-
-    assert_equal(
-      %w[ toto yy!00 yy!01 yy!02 ],
-      @s.get_many(
-        'errors', nil, :skip => 0, :limit => 4
-      ).collect { |d| d['_id'] })
-    assert_equal(
-      %w[ yy!02 yy!03 yy!04 ],
-      @s.get_many(
-        'errors', nil, :skip => 3, :limit => 3
-      ).collect { |d| d['_id'] })
-
-    # skip, limit and reverse
-
-    assert_equal(
-      %w[ yy!29 yy!28 yy!27 ],
-      @s.get_many(
-        'errors', nil, :skip => 0, :limit => 3, :descending => true
-      ).collect { |d| d['_id'] })
-    assert_equal(
-      %w[ yy!29 yy!28 yy!27 ],
-      @s.get_many(
-        'errors', nil, :skip => 0, :limit => 3, :descending => true
-      ).collect { |d| d['_id'] })
-  end
-
-  def test_dump
-
-    load_30_errors
-
-    assert @s.dump('errors').length > 0
-  end
-
-  def test_ids_and_errors
-
-    load_30_errors
-
-    assert_equal 31, @s.ids('errors').length
-  end
-
-  def test_ids_are_sorted
-
-    load_30_errors
-
-    assert_equal @s.ids('errors').sort, @s.ids('errors')
-  end
-
-  def test_reserve
-
-    taoe = Thread.abort_on_exception
-    Thread.abort_on_exception = true
-
-    reserved = []
-    threads = []
-
-    threads << Thread.new do
-      i = 0
-      loop do
-        @s.put_msg('launch', 'tree' => i)
-        i = i + 1
-      end
-    end
-
-    2.times do
-
-      threads << Thread.new do
-        loop do
-          msgs = @s.get_msgs
-          msgs[0, 100].each do |msg|
-            next if msg['tree'].nil?
-            next unless @s.reserve(msg)
-            if reserved.include?(msg['tree'])
-              puts "=" * 80
-              p [ :dbl, :r, msg['_rev'], :t, msg['tree'] ]
-            end
-            reserved << msg['tree']
-            sleep(rand * 0.01)
-          end
-        end
-      end
-    end
-
-    sleep 7
-
-    threads.each { |t| t.terminate }
-
-    Thread.abort_on_exception = taoe
-
-    assert_equal false, reserved.empty?
-    assert_equal reserved.size, reserved.uniq.size
-  end
-
-  def test_by_field
-
-    return unless @s.respond_to?(:by_field)
-
-    load_workitems
-
-    assert_equal 3, @s.by_field('workitems', 'place', 'kyouto').size
-    assert_equal 1, @s.by_field('workitems', 'place', 'sendai').size
-    assert_equal Hash, @s.by_field('workitems', 'place', 'sendai').first.class
-  end
-
-  def test_by_participant
-
-    return unless @s.respond_to?(:by_participant)
-
-    load_workitems
-
-    assert_equal 2, @s.by_participant('workitems', 'fujiwara', {}).size
-    assert_equal 1, @s.by_participant('workitems', 'shingen', {}).size
-    assert_equal Hash, @s.by_participant('workitems', 'shingen', {}).first.class
-  end
-
-  def test_query_workitems
-
-    return unless @s.respond_to?(:query_workitems)
-
-    load_workitems
-
-    assert_equal 3, @s.query_workitems('place' => 'kyouto').size
-    assert_equal 1, @s.query_workitems('place' => 'kyouto', 'at' => 'kamo').size
-
-    assert_equal(
-      Ruote::Workitem, @s.query_workitems('place' => 'kyouto').first.class)
-  end
-
-  protected
-
-  def load_30_errors
-
-    30.times do |i|
-      @s.put(
-        '_id' => sprintf("yy!%0.2d", i),
-        'type' => 'errors',
-        'msg' => "whatever #{i}")
-    end
-  end
-
-  def put_workitem(wfid, participant_name, fields)
-
-    @s.put(
-      'type' => 'workitems',
-      '_id' => "wi!0_0!12ff!#{wfid}",
-      'participant_name' => participant_name,
-      'wfid' => wfid,
-      'fields' => fields)
-  end
-
-  def load_workitems
-
-    put_workitem(
-      '20110218-nadanada', 'fujiwara', 'place' => 'kyouto')
-    put_workitem(
-      '20110218-nedenada', 'fujiwara', 'place' => 'kyouto', 'at' => 'kamo')
-    put_workitem(
-      '20110218-nadanodo', 'taira', 'place' => 'kyouto')
-    put_workitem(
-      '20110218-nodonada', 'date', 'place' => 'sendai')
-    put_workitem(
-      '20110218-nadanudu', 'shingen', 'place' => 'nagoya')
-  end
-end
-